澶т綔涓氭簮浠ｇ爜 - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 1 

 

婧愪唬鐮佸�備笅锛�

 

<%@ import namespace="system.data"%> 

<%@ import namespace="system.data.SqlClient"%> 

<%@ page language="vb" debug="true"%> 

<script language="vb" runat=server> 

sub page_load(sender as object,e as eventargs) 

 

end sub 

 

sub checkuser(sender as object,e as eventargs) 

 

dim conn as Sqlconnection 

 

dim querystring as string 

 

querystring="select 

* 

from 

userinfo 

where(username='"+username.text+"' 

and 

userpassword='"+password.text+"')" 

 

conn=new 

Sqlconnection("Data 

Source=(local);user 

id=bbs;password=bbs;Initial Catalog=bbs") 

    

dim ds as dataset=new dataset 

 

 

 

dim 

mycommand 

as 

SqlDataAdapter=new 

SqlDataAdapter(querystring,conn) 

    

mycommand.fill(ds)