Asp.net 登陆代码问题

sub addclick (sender as object,e as eventargs)
if textbox1.text="" then
s.text="请输入用户名"
else
dim mysql as new sqlconnection
mysql=new sqlconnection("server=local;database=business;uid=sa;pwd=sa")
dim sqlcmd as new sqlcommand
dim mystr as string
dim mystr1 as string
dim mystr2 as string="select id,pwd from Tab_customer where id='&trim(textbox1.text)&'"
mysql.open()
sqlcmd =new sqlcommand(mystr2,mysql)
dim user as sqldatareader=sqlcmd.executereader()
while user.read()
mystr=user.item(0)
mystr1=user.item(1)
end while
mysql.close()
if mystr="" then
s.text="用户名不存在,请重新输入"
textbox1.text=""
textbox2.text=""

else
if te

Asp.net 登陆代码问题 asp.net 登陆代码问题 asp.net代码问题？ asp 登陆代码问题 ASP.NET一段代码问题 asp.net用户登陆问题 asp.net 邮箱登陆问题 asp登陆检查代码问题 ASP登陆验证代码问题 asp.net 2.o代码的问题