神马品牌网许嵩海蝶音乐总监年薪:菜鸟求助"vbscript"？？？？？
来源：百度文库 编辑：神马品牌网 时间：2024/05/11 18:47:57
请问如何用vbscript编写一段代码已达到在用户注册系统中用户注册的用户名不重复，急用！！！！！！！！！！希望高手帮忙写出，谢谢！！！！！！！！！！！！！
'定义用户名参数及获取表单传过来的用户名。
dim MM_name:MM_name=trim(request("username"))
'建立记录集，历遍数据表中的用户名，寻找用户名为传递过来的值，如果用户名存在，记录就不为空，如果用户名不存在，记录就为空
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "SELECT UserName FROM member WHERE UserName = '" + Replace(MM_name, "'", "''") + "'"
rs.open sql , connStr,1,3
'判断记录是否为空，若为空，则输出错误信息
if not rs.eof then
response.write"用户名已经被注册，请选用其它用户名尝试"
else
...
end if