write.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#include file="../../ACT_inc/ACT.User.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% 
		Server.ScriptTimeOut=999
		Response.Buffer = True
		Response.Expires = -1
		Response.ExpiresAbsolute = Now() - 1
		Response.CacheControl = "no-cache"
		response.Charset = "gb2312"
		ConnectionDatabase
		Dim Rs1,ActCMS_BookSetting,Content,Book_Code,url
		Set Rs1=Conn.Execute("Select PlusConfig,IsUse from Plus_ACT where PlusID='lyxt_ACT'")
		If Rs1("IsUse")=1 Then Call actcms.alert("该系统已经被管理员关闭","")
		ActCMS_BookSetting=Split(Rs1(0),"^@$@^")
		Dim server_v1,server_v2,rs,nr,sh,sms
		server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
		server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
		Content=ACTCMS.HTMLcode(ACTCMS.s("nr"))
		if ActCMS_BookSetting(0)=1 then call ACTCMS.Alert("请不要从外部提交数据.留言功能已经被关闭",""):response.end
		if ActCMS_BookSetting(2)=0 then sh=1 else sh=0
		if  ActCMS_BookSetting(3) = 0 Then
		 Book_Code = Request.Form("Code")
			If Book_Code <>CStr(Session("GetCode")) then
				Call ACTCMS.Alert("验证码有误，重新输入","")		
				Response.End
			End if
		End  If
		If Len(Content)>CLng(ActCMS_BookSetting(5)) and ActCMS_BookSetting(5)<>0 Then
		 Call  ACTCMS.alert("留言内容内容必须在" &ActCMS_BookSetting(5) & "个字符以内!","")
		 Response.End
		End if
		if  mid(server_v1,8,len(server_v2))<>server_v2  then
			call ACTCMS.alert("警告！你正在从外部提交数据！！请立即终止！！","")
			response.end
		end if
		if ACTCMS.s("name") ="" then
			call ACTCMS.alert("请输入您的姓名,按确定返回上一页","")
			response.end
		End  if
		if len(request.Form("name"))>12 then
			call ACTCMS.alert("请输入您的正确姓名,并且不能超过6个字,按确定返回上一页","")
			response.end
		end if
		if len(ACTCMS.s("qq"))>12 and isnumeric(ACTCMS.s("qq")) then
			call ACTCMS.alert("请输入您的正确QQ,按确定返回上一页","")
			response.end
		End  if
		if Content ="" then
			call ACTCMS.alert("请输入内容,按确定返回上一页","")
			response.end
		End  if
		If Trim(url)="http://" Then 
			url=""
		Else
			url= server.HTMLEncode(Request.Form("url"))
		End If 
		set rs=server.CreateObject("adodb.recordset")
		rs.open "Book_ACT",conn,3,3
		rs.addnew
		rs("show")=server.HTMLEncode(Request.Form("show"))
		rs("qq")=server.HTMLEncode(Request.Form("qq"))
		rs("name")=server.HTMLEncode(Request.Form("name"))
		rs("mail")=server.HTMLEncode(Request.Form("mail"))
		rs("url")=url
		rs("xq")=ACTCMS.ChkNumeric(Request.Form("xq"))
		rs("sh")=sh
		rs("nr")=replace(server.HTMLEncode(Content),chr(13)&chr(10),"<br>")
		rs("ip")=Request.serverVariables("REMOTE_ADDR")
		rs("addtime")= now
		rs.Update 
		rs.close:set rs =nothing  
		If  sh=1 then sms="您的留言需要管理员审核才可以看到"
		Call  ACTCMS.alert("留言成功,"&sms&",谢谢支持,按确定返回首页","index.asp")
		response.End 

 %>