save_info.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%id=changechr(Request("id"))
	Dim editinfo
            set editinfo = Server.CreateObject("ADODB.Recordset")
			editinfo.Open "Dat_Information Where MemberKey="&Session("intMemberKey")&" and InfoKey = "&id,Conn,3,3
			editinfo("InfoAdd") = changechr(Request.Form("InfoAdd"))
			editinfo("InfoClass") = changechr(Request.Form("InfoClass"))
			editinfo("Topic") = changechr(Request.Form("Topic"))
			editinfo("Content") =dvHTMLEncode(Request.Form("Content"))
			editinfo("ContactMan") = changechr(Request.Form("ContactMan"))
			editinfo("CompanyName") = changechr(Request.Form("CompanyName"))
			editinfo("Add") = changechr(Request.Form("Add"))
			editinfo("Postalcode") = changechr(Request.Form("Postalcode"))
			editinfo("Tel") = changechr(Request.Form("Tel"))
			editinfo("qq") = changechr(Request.Form("qq"))
			editinfo("Homepage") = changechr(Request.Form("Homepage"))
			editinfo("Email") = changechr(Request.Form("Email"))
			editinfo("dl") = changechr(Request.Form("BigClassName"))
	editinfo("xl") = changechr(Request.Form("SmallClassName"))
		editinfo("jg") = changechr(Request.Form("jg"))
	editinfo("pic") = changechr(Request.Form("pic"))

			editinfo.Update
			editinfo.Close
			set editinfo = nothing
			
              response.write"<SCRIPT language=JavaScript>alert('恭喜你，编辑成功！');"
              response.write"javascript:window.close();</SCRIPT>"  
%>