asp读取数据表值的问题

来源：百度知道编辑：UC知道时间：2024/06/20 08:57:29

表单
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已经存在，请重新

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

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

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