saveshjiainfo2.asp

来自「商业网站开发有源代码可以运行」· ASP 代码 · 共 28 行

<!--#include file="conn.asp"-->
<!--#include file="../md5.asp"-->
<%
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function
dim id
shjiaid=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shjia] where shjiaid="&shjiaid,conn,1,3
rs("useremail")=trim(request.form("useremail"))
rs("name")=trim(request("name"))
rs("name2")=trim(request("name2"))
rs("username")=trim(request("username"))
rs("dz")=trim(request("dz"))
rs("tel")=trim(request("tel"))
rs("pc")=trim(request("pc"))
rs("oicq")=trim(request("qq"))
rs("content")=htmlencode2(trim(request("content")))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('资料修改成功！');history.go(-1);</script>"
response.end%>