get_protect.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/myinc.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: get_protect.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:24:06
'Script Written by www.aspease.com 
'=========================================================
stats=easegetprotectstats
header
call activeonline()
sql="select * from users where regUsername="&sqlstr(user)&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
qu=rs("regquestion")
an=rs("reganswer")
rs.close
set rs=nothing
mytabletop
mynavtop easegetprotectstats
response.Write("<script language=""javascript"">")
response.Write(chr(10))
response.Write("<!--")
response.Write(chr(10))
response.Write("function isok(theform)")
response.Write(chr(10))
response.Write("{")
response.Write(chr(10))
response.Write("if (theform.qu.value=="""")")
response.Write(chr(10))
response.Write("  {")
response.Write(chr(10))
response.Write("    alert("""&easegetprotecterr1&""");")
response.Write(chr(10))
response.Write("    theform.qu.focus();")
response.Write(chr(10))
response.Write("    return (false);")
response.Write(chr(10))
response.Write("  }")
response.Write(chr(10))
response.Write("if (theform.an.value=="""")")
response.Write(chr(10))
response.Write("  {")
response.Write(chr(10))
response.Write("    alert("""&easegetprotecterr2&""");")
response.Write(chr(10))
response.Write("    theform.an.focus();")
response.Write(chr(10))
response.Write("    return (false);")
response.Write(chr(10))
response.Write("  }")
response.Write(chr(10))
response.Write("return (true);")
response.Write(chr(10))
response.Write("}")
response.Write(chr(10))
response.Write("-->")
response.Write(chr(10))
response.Write("</script>")
if rst("submit")<>"" then
sqls="update users set regquestion="&sqlstr(rst("qu"))&",reganswer="&sqlstr(rst("an"))&" where regusername="&sqlstr(user)&""
conn.execute(sqls)
response.write easegetprotectokmsg
else
response.Write(aspeasetablehopen & tr)
response.Write("    <th height=25>（<font id=""f1"">*</font>）")
response.Write(easeness)
response.Write("</th>" & ctr & aspeasetableclose)
response.Write("      <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""5"" class=border1b>")
response.Write("       <form name=""mainform"" action=""get_protect.asp"" method=""post"" onsubmit=""return isok(this)""> ")
response.Write("		 <tr class=tdbg1> ")
response.Write("          <td width=""27%"" align=""right"" nowrap id=""b1""><font id=""f1"">*</font>")
response.Write(easegetprotectqu)
response.Write("：          </td>")
response.Write("          <td width=""27%"" id=""b1""> ")
response.Write("              <input type='text' name='qu' size='30' value='")
response.Write(qu)
response.Write("'>")
response.Write("            </td>")
response.Write("          </tr>")
response.Write("        <tr class=tdbg1> ")
response.Write("          <td id=""b1"" colspan=""1"" align=""right""><font id=""f1"">*</font>")
response.Write(easegetprotectan)
response.Write("：</td>")
response.Write("          <td id=""b1"" align=""left""> ")
response.Write("			     <input type='text' name='an' size='30' value='")
response.Write(an)
response.Write("'>				")
response.Write("            </td>")
response.Write("          </tr>     ")
response.Write("        <tr align=""center"" class=tdbg1>")
response.Write("            <td id=""b1"" colspan=""2"">")
response.Write("              <input type=""submit"" name=""Submit"" value=""")
response.Write(easesubmitbutton)
response.Write(""">")
response.Write("              <input type=""reset"" name=""Submit2"" value=""")
response.Write(easeresetbutton)
response.Write(""">")
response.Write("              &nbsp;&nbsp;&nbsp;&nbsp; " & ctdr)
response.Write("        </form>   "& aspeasetableclose)
End If
mynavfoot
mytablefoot
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: get_protect.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:24:06
'Script Written by www.aspease.com 
'=========================================================%>