revert.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 49 行

<!--#include file="Connections.asp" -->
<%
Function rp(s)
s=Replace(s,"'","’")
s=Replace(s,"<","&lt;")
s=Replace(s,">","&gt;")
s=Replace(s,"%","％")
s=Replace(s,"&","＆")
rp=s
End Function

message_id=rp(Request("message_id"))
name=rp(Request("guest_name"))
from=rp(Request("guest_from"))
qq=rp(Request("guest_qq"))
email=rp(Request("guest_email"))
homepage=rp(Request("guest_homepage"))
title=rp(Request("guest_title"))
content=rp(Request("guest_content"))
If from="" Then from="未知"
If qq="" Then qq="未知"
If email="" Then email="未知"
If homepage="" Then homepage="未知"
ip=Request.ServerVariables("remote_addr")
If message_id<>"" And name<>"" And content<>"" And Title<>"" Then
	set revert = Server.CreateObject("ADODB.Recordset")
	revert.ActiveConnection = datalink
	revert.Source = "SELECT * FROM revert"
	revert.CursorType = 1
	revert.CursorLocation = 2
	revert.LockType = 3
	revert.Open()
	revert.addnew
	revert("message_id")=message_id
	revert("name")=name
	revert("from")=from
	revert("qq")=qq
	revert("email")=email
	revert("homepage")=homepage
	revert("title")=title
	revert("content")=content
	revert("revertdate")=date
	revert("reverttime")=time
	revert("ip")=ip
	revert.Update
	revert.close()
	Response.Write("action=complete")
End If
%>