asp

<%
dim rs
dim username
username=request.form("username")
session("username")=username
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select 用户名,问题 from User where 用户名='"&username&"'",conn,1,1
If rs.eof Then
response.write "没有该用户名，请注册新用户!!! <br><br>"
response.write "<a href='login.asp'>返回</a>"
response.end
End If
%>
<html>
<head>
<title>忘记密码——第二步</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/style1.css" type="text/css">
</head>
<BODY marginheight="0" marginwidth="0" leftmargin="0" topmargin="0">
<table width="758" border="0" cellspacing="1" cellpadding="1" align="center" height="30">
<tr> <td><BR><BR><BR><BR></td></tr> </table><TABLE WIDTH="758" BORDER="0" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER"><TR><TD HEIGHT="63"><DIV ALIGN="CENTER"><B><FONT SIZE="2">密码恢复第二步：
请输入你的密码提示问题答案<BR><BR>你的密码提示问题：<%=rs("问题")%></FONT></B><BR><BR><form action="getpass2.asp" method="post" name="form"><input type=text name="ok" SIZE="20">
<input type=submit value="下一步"></FORM></DIV></TD></TR></TABLE><p> </p>
<p> </p>

补充：asp教程,高级应用