ini_regist.inc

该软件是采用微软的.net技术编写的bbs论坛

<script language="vb" runat="server">
sub regist_in()
  dim strinsert as string
  dim mycomm as sqlcommand
  dim strconn as string
  dim mysqlconn as sqlconnection
  'strconn=application("connectionstring")	'存于application中
  strconn="data source=localhost;uid=sa;pwd=chicken;database=mybbs"
  mysqlconn=new sqlconnection(strconn)
  'strinsert="insert userinfo(id,email,qq,pwd,sex) values(@id,@email,@qq,@pwd,@sex)"
  'mycomm=new sqlcommand(strinsert,mysqlconn)
  'mycomm.parameters.add(new sqlparameter("@id",sqldatatype.varchar,10))
  'mycomm.parameters("@id").value=txtid.text
  'mycomm.parameters.add(new sqlparameter("@email",sqldatatype.varchar,50))
  'mycomm.parameters("@email").value=txtemail.text
  'mycomm.parameters.add(new sqlparameter("@qq",sqldatatype.varchar,10))
  'mycomm.parameters("@qq").value=txtqq.text
  'mycomm.parameters.add(new sqlparameter("@pwd",sqldatatype.varchar,50))
  'mycomm.parameters("@pwd").value=txtpwd1.text
  'mycomm.parameters.add(new sqlparameter("@sex",sqldatatype.bit,1))
  'mycomm.parameters("@sex").value=droplistsex.selecteditem.value
  'mycomm.open()   '打开连接
  strinsert="insert into memberinfo (id,email,qq,pwd,sex) values "
  strinsert=strinsert & "('" & txtid.text & "',"
  strinsert=strinsert & "'" & txtemail.text & "',"
  strinsert=strinsert & "'" & txtqq.text & "',"
  strinsert=strinsert & "'" & txtpwd1.text & "',"
  strinsert=strinsert & "'" & droplistsex.selecteditem.value & "')"
  mycomm=new sqlcommand(strinsert,mysqlconn)
  mysqlconn.open()
  'if checkid()=true then
  '  lblid_message.text=""
    try
       mycomm.executenonquery()
       lblmessage.text="注册成功！"
       lblmessage.forecolor=color.green
	   session("id")=txtid.text
	   mysqlconn.close()
       catch exp as sqlexception
       lblmessage.text="错误，请检查输入信息是否正确。"
       lblmessage.forecolor=color.red
	   mysqlconn.close()
    end try
  'else
  '   lblid_message.text="该用户ID已被使用，请另选用户ID"
  '   lblid_message.forecolor=color.red
  '   lblmessage.text="对不起，注册失败!"
  '   lblmessage.forecolor=color.red
  'end if
   
end sub
sub btnenter_onclick(sender as object,e as eventargs)
if session("id")="" then
    lblmessage.text="你还没有注册，请先注册。"
	lblmessage.forecolor=color.red
else
     session("id")=txtid.text
    response.redirect("mainframe.aspx")
end if		
end sub
'提交按钮的响应时间
     sub btnsubmit_onclick(sender as object,e as eventargs)
	 
        if Page.IsValid=true then			'验证通过
		     session("id")=txtid.text		'放入session中
		    regist_in()  					'将数据加入数据库
			'lblmessage.text="注册!"
             '进入论坛主页面
             'response.write("main.aspx")
             'lblmessage.text=droplistsex.selecteditem.value
			 'lblmessage.text="ddd"
        end if
        if Page.IsValid=false then 
             lblmessage.text="对不起，注册失败!"
			 lblmessage.forecolor=color.red
        end if
		'lblmessage.text="ddd"
     end sub
'重置按钮的响应时间
     sub btnreset_onclick(sender as object,e as eventargs)
        lblmessage.text=""
		txtid.text=""
        txtpwd1.text=""
        txtpwd2.text=""
        txtemail.text="" 
        txtqq.text=""
     end sub
     '验证id的自定义函数
	 'function checkid(sender as object,value as string) as boolean
     sub checkid(sender as object,args As System.Web.UI.WebControls.ServerValidateEventArgs)
	     'if servervalidateeventargs.value="q" then
		 '    servervalidateeventargs.isvalid=false
	     'else
		 '    servervalidateeventargs.isvalid=true
		 'end if	 
        dim strsql as string
        dim strconn as string
        dim mysqlconn as sqlconnection
        dim mysqlcomm as sqlcommand
        dim mydr as sqldatareader
        '在此验证该id是否已被使用,被使用返回false

        strsql="select id from memberinfo where id='" & txtid.text &"'"
        'strconn=application("connectionstring")	'存于application中
		strconn="data source=localhost;uid=sa;pwd=chicken;database=mybbs"
        mysqlconn=new sqlconnection(strconn)
        mysqlcomm=new sqlcommand(strsql,mysqlconn)
		mysqlconn.open()
        'mysqlcomm.activeconnection.open
        mydr=mysqlcomm.executereader()
        if mydr.read then        
        '   checkid=false
		args.isvalid=false
        else 
         '  checkid=true  
		args.isvalid=true		  
        end if
		mysqlconn.close()
        'mysqlcomm.active.close        
      end sub      
</script>