192.asp

来自「JavaScript精彩网页特效实例精粹」· ASP 代码 · 共 18 行

<% 
Response.ContentType="text/xml"

DbPath = SERVER.MapPath("192.mdb")     '打开数据库ACCESS
	Set c1 = Server.CreateObject("ADODB.Connection")
	c1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
rs.open "select * from 用户表 where 用户名='"&trim(request.querystring("username"))&"'" ,c1,1,1
if rs.recordcount=0 then
response.write("<SUCCESS/>")
else
response.write("<ERROR/>")
end if
rs.close
set rs=nothing
c1.close
set c1=nothing%>