Question

asp读取数据表值的问题

表单
username,word,sitename,url

username=hx.checkstr(request.form("username"),20)
word=hx.checkstr(request.form("word"),20)
sitename=hx.checkstr(request.form("sitename"),12)

判断是否存在
if blnerror=false then
dim rs,sql
set rs=hx.execute("select username from CL_Link where username='"&username&"'")
if not rs.eof then
blnerror=true
strerror=strerror & "<li>抱歉，username已经存在，请重新选择一个用户名"
end if

set rs=hx.execute("select sitename from CL_Link where sitename='"&sitename&"'")
if not rs.eof then

strerror=strerror & "<li>抱歉，sitename已经存在，请重新选择一个"
end if

【 set rs=hx.execute("select word from CL_Link where word='"&word&"'")
if not rs.eof then

strerror=strerror & "<li>抱歉，word已经存在，请重新选择一个"
end if】

我现在想把【】中这部分变成 检测数据表单中已经存在的一个username才能进行注册，而不是现在判断word不存在才进行注册。
应该怎么做我会加300分 如果测试成功。

另外还有首页index.asp的一个问题。当在别的网站点击进入一个链接：http://index.asp?id=username 时候

在首页中排列一行或几行的用户链接。http://index.asp?word=word 与 word 关联的url 而不是链入username的一个url

这个问题就相当于来路username的记录和排列一样

有看不明白的请提出
谢谢 ootw 用百度hi的 帮助和qq远程的帮助 可用代码为下 希望给其他人一个借鉴 我把【】改为下面的代码完全通过，ootw可能忙不修改，那我就在这里补充上。
set rs=hx.execute("select word from CL_Link where username='"&word&"'")
if not rs.eof then
blnerror=false
strerror=strerror & "<li>恭喜，username已经存在，可以注册"
else
blnerror=true
strerror=strerror & "<li>抱歉，没有符合推荐人的用户名"
if isnumeric(word) then
set rs=hx.execute("select word from CL_Link where username='"&word&"'")
if rs.eof then
blnerror=true
strerror=strerror & "<li>请填写正确的推荐人,推荐人为系统自动提取来访者id"
else
blnerror=false
strerror=strerror & "<li>恭喜，username已经存在，可以注册"
end if
end if
end if

Answer 1

if blnerror=false then
dim rs,sql
set rs=hx.execute("select username from CL_Link where username='"&username&"'")
if rs.eof then
blnerror=true
strerror=strerror & "<li>恭喜，username已经存在，可以注册"
'这里写注册语句
else
set rs=hx.execute("select sitename from CL_Link where sitename='"&sitename&"'")
if not rs.eof then

strerror=strerror & "<li>抱歉，sitename已经存在，请重新选择一个"
end if

set rs=hx.execute("select word from CL_Link where word='"&word&"'")
if not rs.eof then

strerror=strerror & "<li>抱歉，word已经存在，请重新选择一个"
end if
end if

Answer 2

set rs=hx.execute("select word from CL_Link where word='"&word&"'")
if rs.eof then

strerror=strerror & "<li>抱歉，word不存在，请重新选择一个"
end if