查人人中国名人网做了腰间盘突出后遗症:如何判断用户名是真还是假??
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 01:49:42
<%
If Trim(Request("name"))<>"" Then
Dim rs,strSql
strSql="Select * From users Where name='"& Request("name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql)
If Not rs.Bof And Not rs.Eof Then
Session("id")=rs("id")
Response.Redirect "index.asp"
Else
Response.Write"对不起，密码不正确，请重新输入"
End If
End if
%>
老说缺少对象
If Trim(Request("name"))<>"" Then
Dim rs,strSql
strSql="Select * From users Where name='"& Request("name") & "' And password='" & Request("password") & "'"
Set rs=db.Execute(strSql)
If Not rs.Bof And Not rs.Eof Then
Session("id")=rs("id")
Response.Redirect "index.asp"
Else
Response.Write"对不起，密码不正确，请重新输入"
End If
End if
%>
老说缺少对象
dim rs
sql1="select * from registry where 用户名='"&name&"'
set rs=server.createobject("adodb.recordset")
rs.open sql1,conn,1,1
if rs.bof and rs.eof then
dim sql
--没有注册过
sql="insert into registry (用户名,性别,密码) values ('"&name&"','"&sex&"','"&pwd&"')"
conn.execute sql
rs.close
set rs=nothing
conn.close
set conn=nothing
else
response.write "用户名已存在！"
response.End()
end if