<% response.charset="utf-8" %> <% call SiteInfo %> Create a marketing value of enterprise website
驿马互联企业网站管理系统

打造具有营销价值的企业网站

Create a marketing value of enterprise website

<%=WebContent()%> <% function WebContent() dim rs,sql,NewPassword if request.QueryString("Step")="" then %>
ID :
Email :
<% elseif request.QueryString("Step")="EnterNameMail" then set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Members where MemName='"&request.form("MemName")&"' and Email='"&request.form("Email")&"'" rs.open sql,conn,1,1 if rs.eof then response.write ("") exit function end if %> " method="post" name="form" id="form">
ID : <%=rs("MemName")%>
Email : <%=rs("Email")%>
Protection question : <%=rs("Question")%>
Protection answer :
<% elseif request.QueryString("Step")="EnterAnswer" then set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Members where ID="&request.QueryString("ID") rs.open sql,conn,1,3 if rs.eof then response.write ("") exit function end if if rs("Answer")<>MD5(trim(request("Answer"))) then response.write ("") exit function end if randomize timer NewPassword=Int(899999*Rnd() +100000) rs("Password")=MD5(NewPassword) rs.update rs.close set rs=nothing response.write ("") exit function end if end function %>