<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<%@ Page Language="vb" Debug="true" %>
<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
if not page.ispostback then
list.visible=true
info.visible=false
end if
end sub
sub retrieve()
dim conn as oledbconnection
conn=new oledbconnection
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("mylist.mdb")
conn.open
dim da as oledbdataadapter
dim sqlstr as string
sqlstr="select * from userinfo where username='" & username.text & "' and password='" & password.text & "'"
da=new oledbdataadapter(sqlstr,conn)
dim ds as new dataset()
da.fill(ds,"info2")
dim dt as datatable
dt=ds.tables("info2")
if dt.rows.count=1 then
dim dv as dataview=dt.defaultview
display.datasource=dv
display.databind()
list.visible=false
info.visible=true
else
response.Write("输入有误，请重试！")
end if
conn.close
end sub
sub button1_click(sender as object,e as eventargs)
retrieve()
end sub
sub datalist_itemcommand(sender as object, e as datalistcommandeventargs)
info.visible=true
list.visible=false
select case e.commandsource.text
case "用户信息"
display.selectedindex=e.item.itemindex
retrieve()
case "关闭"
display.selectedindex=-1
retrieve()
case "修改信息"
display.edititemindex=e.item.itemindex
retrieve()
case "更新"
dim passwd,repwd,email1,addr1,phone1 as string
dim tt as textbox
tt=e.item.findcontrol("pwd")
passwd=tt.text
tt=e.item.findcontrol("pwd2")
repwd=tt.text
tt=e.item.findcontrol("email")
email1=tt.text
tt=e.item.findcontrol("phone")
phone1=tt.text
tt=e.item.findcontrol("addr")
addr1=tt.text
if strcomp(passwd,repwd) then
response.write("请重新输入密码！")
else
dim conn as oledbconnection
conn=new oledbconnection
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("mylist.mdb")
conn.open
dim cd as oledbcommand
dim sqlstr as string
sqlstr="update userinfo set [password]='" & passwd & "',"
sqlstr &="email='" & email1 & "',addr1='" & addr1 & "',phone='"
sqlstr &=phone1 & "' where username='" & username.text & "'"
cd=new oledbcommand(sqlstr,conn)
cd.executenonquery()
response.write("<p>更新成功！<p>")
conn.close
display.edititemindex=-1
display.selectedindex=e.item.itemindex
retrieve()
end if
case "取消"
display.edititemindex=-1
retrieve()
end select
end sub
</script>
