set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin where admin='"&trim(request("admin"))&"'" ,conn,1,1
if rs.recordcount>0 then
response.write "<script language=javascript>"
response.write "alert('已经有此用户名!');"
response.write "this.location.href='vbscript:history.back()';</script>"
Response.end
else
从数据库中读取加入的数据判断是否读取到了数据,就不是知道了存不存在了吗
比如
<%
Dim rsHave
Set rsHave=con.Execute("select * From [user] where username='"&username&"'")
IF rsHave.EOF Then
Response.Write "alert('您输入的用户名不存在可以注册');"
'TODO:这里可以写添加数据的代码。
Else
Response.Write "alert('您输入的用户名存在不可以注册');"
End IF
%>