Question

asp.net (vb)编写登陆页面（100分）

我想请问用asp.net (vb)编写登陆页面

就是先在sql server 中先建一张表，然后调用里面的用户名，密码，或者说可以先注册，写入表里，然后在调用 登陆 登陆后符合表里的内容的转到页面一，如果错误的转到页面二，可以把代码详细的写出来吗，或者给个例子，有实例的最好，谢谢了

Answer 1

system.data.sqlclient,而access则是引用的system.data.oledb

sub qd1(sender as object,e as eventargs)
dim user,pas as string
user = xm.text
pas = mm.text

dim myconn as string
myconn = "provider=microsoft.jet.oledb.4.0;" & "data source="& server.mappath("data/fang.mdb")
dim xm1,zw,qx as string
'检查用户名是否为空
if xm.text<>"" then
try
dim mysql as string
mysql="select * from 管理 where 用户名='"& user &"' and 密码='"& mm &"'"
dim mycmd as oledbdataadapter = new oledbdataadapter(mysql,myconn)
dim ds as dataset = new dataset()
mycmd.fill(ds,"管理")
dim mytable1 as datatable
mytable1=ds.tables("管理")
if user=mytable1.rows(0).item(1) and pas=mytable1.rows(0).item(3) then

xm.text=""
else
message.text="请重新输入！"
end if
catch ex as exception
message.text="用户名或密码有问题，请确认后重新输入！"
end try
else
message.text="用户名或密码有问题，请确认后重新输入！"

end if
end sub

下面是注册用的，可以同时检查是否有重名。

dim myconn as oledbconnection
dim mycmd,mycmd1,mycmd2,mycmd3 as oledbcommand
dim strcon as string
dim strsql,strsql1,strsql2 as string

strcon ="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("data/fang.mdb")
myconn = new oledbconnection(strcon)
myconn.open()
strsql = "select * from 管理 where 管理.用户名='"& m_1 &"'"
mycmd = new oledbcommand(strsql,myconn)
dim reader as oledbdatareader
reader = mycmd.executereader()
if reader.read() then '若存在
message.text="您输入的用户名已存在，请重新输入！"
reader.close()
myconn.close()
else '不存在，写入数据库
reader.close()
if m_4="管理员" then
strsql1="insert into 管理() values()"
mycmd1 = new oledbcommand(strsql1,myconn)
mycmd1.executenonquery
myconn.close()
message.text="您已成功注册！"
else
strsql2="insert into 管理() values()"
mycmd2 = new oledbcommand(strsql2,myconn)
mycmd2.executenonquery
myconn.close()
message.text="您已成功注册！"
end if
end if

else
message.text = "请检查页面中是否有错误！"
end if
end if
end sub