saveshjiainfo.asp

21世纪人才www.51zy.net 网站源码

<!--#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("username")=trim(request("username"))
if trim(request("password"))<>"" then
rs("userpassword")=md5(trim(request("password")))
end if
rs("logo")=trim(request("logo"))
rs("logo2")=trim(request("logo2"))
rs("name2")=trim(request("name2"))
rs("dz")=trim(request("dz"))
rs("tel")=trim(request("tel"))
rs("pc")=trim(request("pc"))
rs("oicq")=trim(request("qq"))
rs("url")=trim(request("url"))
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%>