www.gusucode.com > 雨点单用户免雨点单用户免费留言板 2.0 Build 080828 > modify_save.asp

    <!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="cookies.asp"-->
<%
'response.Write("<font color='#FF0000'><strong>演示版不提供修改资料功能，只做演示用，请<a href='http://www.ywask.com/democode.html' target='_blank'>下载源码</a>查看功能。</strong></font>")
'response.Write("<a href='javascript:history.go(-1)'>返回</a>")
'response.End()
Call Remote()
web=HtmlEnCode(request.Form("web"))
url=HtmlEnCode(request.Form("url"))
color_id=Cint(request.Form("color_id"))
forbid=request.Form("forbid")
ischeck=request.Form("ischeck")
Call RsName(rs,"select * from [userlist]",3,3)
if request.Form("pwd1")<>"" and request.Form("pwd2")<>"" then
	rs("password")=md5(request.Form("pwd1"))
end if
rs("web")=web
rs("url")=url
rs("color_id")=color_id
rs("forbid")=forbid
rs("ischeck")=ischeck
rs("everypage")=cint(request.Form("everypage"))
rs.update
Call CloseRs()
Call CloseConn()
Call ShowErrorTo("修改成功!","Index.asp")
%>