www.gusucode.com > 新锐领秀网络相册 1.1 > postcomment.asp
<!--#include file="conn.asp"--> <!--#include file="head.asp"--> <% '---------------------------------------------------- ' [Gong] (C)2007-2008 . ' This is NOT a freeware, use is subject to license terms ' Id: postcomment.asp 2008-03-26 00:53:29 Gong '---------------------------------------------------- Dim id,comment,username id = gSafeRequest("id",1) If Not id > 0 Then Response.Redirect "index.asp" username = gCheckStr(Request.Form("username")) if username = "" Then username = "匿名人士" comment = gCheckStr(Request.Form("comment")) sql = "Insert Into gComment(Comment,UserName,ip,pid) Values('" & comment & "','" & username & "','" & gGetTrueIP() & "','" & id & "')" If Not IsObject(conn) Then Call ConnectionDatabase conn.Execute sql Response.Redirect "viewphoto.asp?id=" & id %> <!--#include file="foot.asp"-->