tjkl.asp

大家好

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="..\ADOVBS.INC"-->
<%
DbPath = SERVER.MapPath("..\runhao.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqltext="select *  from  hy where username='"&request("username")&"' and pw='"&request("pw")&"'"
rs.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
    response.write "此帐号不存在，或您输错。"
    response.write "<br>"
    response.write "<a href='javascript:window.history.go(-1)'>返回</a>"
    rs.close
    conn.close
    response.end
else
    username=request.form("username")
    pw=request.form("pw") 
    rs.close
    conn.close
    response.redirect"xgzl.asp?username="&username&"&pw="&pw&" "
end if  
%>