源码: if page.isvalid then dim mycommand as OLEDBcommand dim countnum as integer dim conn as OLEDBconnection dim querystring as string querystring="insert into userinfo(username,headimg,userpassword)values('"+login_name.text+"','"+imglist.selecteditem.value+"','"+login_pass.text+"')" conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db\bbs.mdb")) mycommand=new OLEDBcommand(querystring,conn) dim querystring2 as string="select * from userinfo where (username='"+trim(login_name.text)+"')" dim ds as dataset=new dataset dim mycommand2 as OLEDBDataAdapter=new OLEDBDataAdapter(querystring2,conn) mycommand2.fill(ds) mydatagrid.datasource=new dataview(ds.tables(0)) mydatagrid.databind() if mydatagrid.items.count<>0 then statues.style("color")="red" statues.text="注册失败,此用户名已被注册,请重新选择一个用户名!" else TRY conn.open CATCH SS AS EXCEPTION STATUES.TEXT=SS.MESSAGE END TRY 'TRY mycommand.executenonquery() statues.style("color")="red" statues.text="注册成功,请直接进入!" 'CATCH D AS EXCEPTION 'STATUES.TEXT=D.MESSAGE 'END TRY
if page.isvalid then
dim mycommand as OLEDBcommand
dim countnum as integer
dim conn as OLEDBconnection
dim querystring as string
querystring="insert into userinfo(username,headimg,userpassword)values('"+login_name.text+"','"+imglist.selecteditem.value+"','"+login_pass.text+"')"
conn=new OLEDBconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("db\bbs.mdb"))
mycommand=new OLEDBcommand(querystring,conn)
dim querystring2 as string="select * from userinfo where (username='"+trim(login_name.text)+"')"
dim ds as dataset=new dataset
dim mycommand2 as OLEDBDataAdapter=new OLEDBDataAdapter(querystring2,conn)
mycommand2.fill(ds)
mydatagrid.datasource=new dataview(ds.tables(0))
mydatagrid.databind()
if mydatagrid.items.count<>0 then
statues.style("color")="red"
statues.text="注册失败,此用户名已被注册,请重新选择一个用户名!"
else
TRY
conn.open
CATCH SS AS EXCEPTION
STATUES.TEXT=SS.MESSAGE
END TRY
'TRY
mycommand.executenonquery()
statues.style("color")="red"
statues.text="注册成功,请直接进入!"
'CATCH D AS EXCEPTION
'STATUES.TEXT=D.MESSAGE
'END TRY
怎么点分?我是初级用户,能给吗?