ini_login.inc

来自「该软件是采用微软的.net技术编写的bbs论坛」· INC 代码 · 共 47 行

<script language="VB" runat="server">
sub btnsubmit_click( sender as object,e as eventargs)
if txtID.text="" or txtPWD.text="" then
lblmessage.text="请输入用户名密码"
else
dim strsqlstring as string  
dim mysqlcommstring as string
dim mysqlconn as SQLConnection
dim sqlcomm as SQLCommand
dim mydr as sqldatareader

strsqlstring="server=localhost;uid=sa;pwd=chicken;database=mybbs"			'注意密码
mysqlconn=new sqlconnection(strsqlstring)
mysqlcommstring="select * from memberinfo where  id='" & txtID.text & "'"
sqlcomm=new sqlcommand(mysqlcommstring,mysqlconn)
mysqlconn.open
mydr=sqlcomm.executereader()
  if  mydr.read then 
      if txtPWD.text=mydr.item("pwd") then
         session("id")=mydr.item("id")					'将用户id放入session中
         txtID.text="check ok"
		 mysqlconn.close
		  'response.redirect("register.aspx")
		  '从这里跳到主页面上去
		 response.Redirect("mainframe.aspx")
	   else
		    lblmessage.text="用户名密码错误"
			mysqlconn.close
	   end if
  else
  lblmessage.text="用户不存在，请先注册"
  mysqlconn.close
  end if
end if
end sub  

sub  btnreset_click (sender as object,e as eventargs)
txtID.text=""

end sub

sub btnregister_click (sender as object,e as eventargs)
response.redirect("regist.aspx")

end sub
</script>