savehf1.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<!--#Include file="Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
id=changechr(Request.Form("xxid"))
set rdsAddCls = Server.CreateObject("ADODB.Recordset")
			rdsAddCls.Open "Dat_hf",Conn,3,3
			
			rdsAddCls.AddNew
			rdsAddCls("name") = changechr(Request.Form("name"))
			rdsAddCls("xxid") = id
			rdsAddCls("xxtime") = Request("xxtime")
			rdsAddCls("xxts") = Request("xxts")
			rdsAddCls("sex") = changechr(Request.Form("sex"))
			rdsAddCls("tit") = changechr(Request.Form("tit"))
			rdsAddCls("neirong") =replace(replace(replace(replace(Request.Form("neirong"),"'","’"),"<%","&lt;%"),"靠你","（脏话）"),"日你妈","（脏话）")
			rdsAddCls("email") = Request.Form("email")
			rdsAddCls("tel") = changechr(Request.Form("tel"))
			rdsAddCls("xxmem") = changechr(Request.Form("xxmem"))
			rdsAddCls("hfsj") = now()
			rdsAddCls("ip") = Request.ServerVariables("REMOTE_HOST")
			rdsAddCls.Update
			rdsAddCls.Close
			set rdsAddCls = nothing
			
			'写入留言数
sqlUpdateInfoHits = "Update Dat_Information Set hf = hf + 1 Where InfoKey = "& id
Conn.Execute sqlUpdateInfoHits
			Response.Write "<script language=""javascript"">this.close();this.opener.location='review.asp?id="&id&"';</script>"
%>