ck.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")&"' "
rs.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if not(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("username")
    rs.close
    conn.close
    response.redirect"zc.asp?username="&username&" "
end if  
%>