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"-->