replycheck.asp

来自「ASP仿QQ程序 web版的」· ASP 代码 · 共 28 行

<!--#include file=conn.asp-->
<!--#include file=password.asp-->
<!--#include file=func.dat-->
<%
	dim id,content

	id=request.querystring("id")
	sql="select reply from users where id="&id&""
'	response.write sql
	set rs=server.createobject("adodb.recordset")
	rs.open sql, conn,1,1

	if request.form("password")=password then
		if rs("reply")<>"" then
			response.write "<script>alert('你已经回复了该留言，不能重复！');window.location='index.asp';</script>"
		else
			content=request.form("replycon")
			content=txttourls(content)

			sql="update users set reply='"&content&"', replytime='"&now()&"' where id="&id&""
'			response.write sql
			conn.execute sql
			response.redirect("index.asp")
		end if		
	else
		response.write "<script>alert('密码不正确！请重试……');history.go(-1)</script>"
	end if
%>