下面是源代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim RsZhuce
Dim RsZhuce_numRows
Dim checkname
checkname=Request.Form("name")
Set RsZhuce = Server.CreateObject("ADODB.Recordset")
RsZhuce.ActiveConnection = MM_cntest_STRING
RsZhuce.Source = "SELECT * FROM zhuce WHERE name='checkname'"
RsZhuce.CursorType = 0
RsZhuce.CursorLocation = 2
RsZhuce.LockType = 1
RsZhuce.Open()
RsZhuce_numRows = 0
%>
<%
dim TheMessage
dim TheError1
dim TheError2
TheMessage="注册失败！"
TheError1="出错原因："
if Request.Form("name")="" then
TheError2="您的大名不能为空！"
elseif RsZhuce.RecordCount<>0 then
TheError2="抱歉，已经有人注册此用户名！"
elseif Request.Form("email")="" then
TheError2="邮箱不能为空！"
else
TheMessage="恭喜！注册成功！"
TheError1=""
TheError2=""
end if
%>
Untitled Document
|
<%Response.Write TheMessage%> |
|
<%Response.Write TheError1%> |
<% Response.Write TheError2 %> |
|
<%
RsZhuce.Close()
Set RsZhuce = Nothing
%>
问题：数据库里没有的用户，它也提示有人注册了，是不是语法哪里错了？我对不VB太熟，麻烦各位指点一下！
