regist_in.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
       catch exp as sqlexception
       lblmessage.text="错误，请检查输入信息是否正确。"
       lblmessage.forecolor=color.red
    end try
  'else
  '   lblid_message.text="该用户ID已被使用，请另选用户ID"
  '   lblid_message.forecolor=color.red
  '   lblmessage.text="对不起，注册失败!"
  '   lblmessage.forecolor=color.red
  'end if
    mysqlconn.close()
end sub
</script>