getpws2.asp

来自「本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 43 行

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->
   
	
<!--#include file="Inc/msgbox.asp"-->
<%
dim user_name,strsql,rs,user_answer
user_answer=request.Form("user_answer")
user_name=request.QueryString("user_name")
strsql="select user_answer from [user_info] where user_name='"& user_name &"'"
set rs=conn.execute(strsql)
session("user_name")=user_name
if user_answer<>rs("user_answer") then
  call msgbox("答案错误","Back","")
  response.End()
end if
%>

<form name="form1" method="post" action="GetPws3.asp">
      <table width="580" border="0" align="center" cellpadding="4" cellspacing="4" >
        <tr>
          <td width="109">请输入新密码：</td>
          <td width="361"><input name="user_password" type="text" id="user_password">
            <input type="submit" name="Submit"  class=input value="提交"></td>
        </tr>
      </table>
      <%=session("user_name")%>
    </form>

		<!--#include file="bottom.asp"--></td>
		</tr>
	</table>
</div>

</body>

</html>

<%
conn.Close
Set conn=Nothing
%>