密  码：

<% if request("send")="send" then set conn=server.CreateObject ("ADODB.connection") conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=www;UID=sa;PWD=aaa;DATABASE=hhmb" sql="select * from t_ywyh where name='"&request("login")&"' and password='"&request("password")&"'" set Application("conn") = conn set rs=server.CreateObject("adodb.recordset") set rs=application("conn").execute(sql) if not rs.EOF then session("login")=request("login") Response.Redirect("http://hhmb.hh.gov.cn/qxfw/qxqb.htm") else ' Response.Write "姓名或密码错误！" Response.Redirect("http://hhmb.hh.gov.cn") conn.close end if else response.end end if %>