append.asp

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

<!--#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

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 name<>"" And content<>"" And Title<>"" Then
	set guestbook = Server.CreateObject("ADODB.Recordset")
	guestbook.ActiveConnection = datalink
	guestbook.Source = "SELECT * FROM message"
	guestbook.CursorType = 1
	guestbook.CursorLocation = 2
	guestbook.LockType = 3
	guestbook.Open()

	guestbook.addnew
	guestbook("name")=name
	guestbook("from")=from
	guestbook("qq")=qq
	guestbook("email")=email
	guestbook("homepage")=homepage
	guestbook("title")=title
	guestbook("content")=content
	guestbook("sdate")=date
	guestbook("stime")=time
	guestbook("ip")=ip
	guestbook.Update
	guestbook.close()
	Response.Write("action=complete")
End If
%>