用户注册协议

<% set rs_set=server.CreateObject("adodb.recordset") sql="select * from hl_web" rs_set.open sql,conn,1,1 HSiteNameL=rs_set("hl_webname") HweburlL=rs_set("hl_weburl") %>

| 首页 | 商机大全 | 产品大全 | 企业黄页 | 退出 |

<%=HSiteNameL%>助手首页
一证拥有全网通行
新用户注册
修改密码
修改密码提示问题
找回密码
通过用户名
通过提示问题
恒浪新闻管理
动网论坛管理
博 客

·为了您的帐户安全，请不要使用IE的自动完成和记忆密码功能

服务 | 热线：0571-85027110 |

Copyright©<%=HSiteNameL%> 版权所有

<% If Request("action")="SavePWD" then Call SavePWD() End IF Sub SavePWD() Dim NewPassword NewPassword=MD5(Replace(Trim(request("UserNewPassword")),"'",""),32) set rs=server.CreateObject("Adodb.recordset") sql="select * from hl_user where id="&replace(request("ID"),"'","") rs.open sql,conn,1,3 if rs("userpassword")=NewPassword then AdminName=rs("username") password=NewPassword Interface_Action="ModifyInfo" Call Interface rs("userpassword")=NewPassword rs.update rs.close set rs=nothing end if End Sub Sub Interface() Dim Md5Info Md5Info=MD5(AdminName & SecurityKey, 32) Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write ""&vbCrLf Response.Write "正在更新管理员资料" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "正在更新管理员资料，请稍等..." & vbCrLf If IsNull(SecurityKey) = False And SecurityKey <> "" And IsNull(arrUpiUrls) = False And arrUpiUrls <> "" Then HLUpi = Split(arrUpiUrls, "|") RegSiteId=split(RegSiteIds,",") For iNums = 0 To UBound(HLUpi) Response.Write "
"& vbCrLf Next End If Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf End Sub %>