body{
font-size:14px;
}
请输入用户名:
请输入密码:
点击
Response.buffer=true
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
ConnSQL = "driver={sql server};database=test;server=.;uid=sa;pwd="
Conn.open ConnSQL
uid = Request.QueryString("uid")
pwd = Request.QueryString("pwd")
Function ResponseText(val)
Response.Write val
End Function
If Trim(uid) <> "" And pwd <> "" Then
Sql = "Select * From test..test Where aa='"&uid&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Sql = "Insert Into test..test values('"&uid&"','"&pwd&"')"
Conn.Execute Sql
ResponseText("0")
Else
ResponseText("1")
End If
Rs.Close
Else
ResponseText("2")
End If
Conn.Close
%>
posted on 2007-05-28 19:50 叶子 阅读(303) 评论(0) 编辑 收藏 引用 所属分类: Ajax