[求助]
| <% MySelf=Request.ServerVariables("PATH_INFO") No=Request("No") Name=Request("Name") If Request("Send")<> Empty Then SQL="Select * From caiwu where mima = '" & No & "' and user = '" & Name & "'" Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath ("caiwu.mdb") Set rsScore=conn.Execute (sql) If rsScore Is Nothing or rsScore.eof Then Msg="输入信息错误，请重新输入！" Else Response.Redirect"managerc.asp?" & Request.QueryString End if End if %> <html> <head> <title>验证 </title> </head> <body bgcolor=#6699dd> <br><br><hr><br><br> <blockquote> <form action="caiwu.asp" method="GET"> <p align =center >姓名：<input type ="text" name="Name" Value="<% =Name%>" size ="20"> </p> <p align =center >密码：<input type ="password" name="No" Value="<% =No%>" size="20"> </p> <p align =center ><input type="submit" name="Send" Value="登陆页面"> <input type="reset" value="重新输入" style="WIDTH: 120px; HEIGHT: 24px" size=30> </p> </form> </blockquote> <center>忘记密码</center> <br><hr><br> <center><%=Msg%></center> </body> </html> 哪位大哥帮忙给上面的程序加一个验证码语句，并做简单数据库，要求能有登陆回复 |
