<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
user_name=Request("user_name")
answer=Request("answer")
sql="select * from user where user_name='"&user_name&"'"
set rs=server.CreateObject ("ADODB.recordset")
 rs.Open sql,conn1,3

if rs("passwd_answer")=request("answer") then
	password=rs("passwd")
   rs.Close 
   set rs=nothing
else
   rs.Close 
   set rs=nothing
  	Response.Redirect "error.asp?cause=2"   '回答出错
end if
%>

 <form name=login action=answer.asp method=post>
      <table width="100%" border="0" >
        <tr> 
         <TD height=30 align=center><br><FONT color=red size=5><b>身份认证系统</b></FONT></TD>
        </tr>
        </table>
        <table width="100%" border="0" bgcolor="#e6e6e6">
       
   
      <tr>
      <td width=100>
      </td>
      <td align=left>您的密码为
    </td>
    <td height=30>
		<%=password%>
    </td>
    </tr>
   <tr>
   <td width=100>
      </td>
      <td align=left>
     </td>
    <td height=30>
   <input type=button value="关闭窗口" onclick=window.close() id=button1 name=button1>
    </td>
    </tr>
      </table>
       </form>
