28,391
社区成员
发帖
与我相关
我的任务
分享
<%Set Rs = Server.CreateObject("adodb.RecordSet")
Sql = "Select * from [user] Where username='zhangsan'"
Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then
Response.Write("此用户名称已经存在,请选择其它用户名称")
Else
Response.Write("您可以注册此用户名称,确定下一步完善资料")
End if
RS.Close%>
<%
sConn = "....."
Set conn = CreateObject("ADODB.Connection")
conn.Open sConn
sql = "SELECT COUNT(*) FROM asset WHERE [name]='zhangsan'"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 1
c = rs(0).Value
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
If c = 0 Then
Response.Write 2
Else
Response.Write 1
End If
%>