' 注册输入合法性验证代码从略
dim sqlReg,rsReg
sqlReg="select * from [client] where username='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,1
if not(rsReg.bof and rsReg.eof) then
founderr=true
errmsg=errmsg & "<br><li>你注册的用户已经存在!请换一个用户名再试试!</li>"
rsReg.Close
else
rsReg.addnew
rsReg("username")=UserName
rsReg("password")=md5(Password)
rsReg("comanyname")=Comane
rsReg("address")=Add
rsReg("telephone")=Phone
rsReg.update
response.redirect"test.asp"/////这种做就可以达到你的结果.
founderr=false
end if
set rsReg=nothing
%>
' 注册输入合法性验证代码从略
dim sqlReg,rsReg
sqlReg="select * from [client] where username='" & Username & "'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,1
if not(rsReg.bof and rsReg.eof) then
founderr=true
errmsg=errmsg & "<br><li>你注册的用户已经存在!请换一个用户名再试试!</li>"
rsReg.Close
else
rsReg.addnew
rsReg("username")=UserName
rsReg("password")=md5(Password)
rsReg("comanyname")=Comane
rsReg("address")=Add
rsReg("telephone")=Phone
rsReg.update
founderr=false
end if
set rsReg=nothing
%>