amend_ini.inc

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

<script language="VB" runat="server">
sub loaddata()				'初始化页面中的控件信息
dim strid as string
strid=session("id")
dim strsql as string
strsql="select *from memberinfo where id='" & strid & "'"
dim strconn as string
strconn="data source=localhost;uid=sa;pwd=chicken;database=mybbs"
dim myconn as sqlconnection
myconn=new sqlconnection(strconn)
myconn.open()
dim mycmd as sqlcommand
mycmd=new sqlcommand(strsql,myconn)
dim mydr as sqldatareader
mydr=mycmd.executereader()
if mydr.read then
   lblid.text=mydr.item("id")
   txtid.text=mydr.item("id")
   if mydr.item("sex")="1" then
      lblsex.text="男"
   else
       lblsex.text="女"
   end if
   lblemail.text=mydr.item("email")
   lblqq.text=mydr.item("qq")
   myconn.close()
end if   
end sub
sub btnamend_onclick(sender as object,e as eventargs)
    'response.write(txtqq.text)
	'response.end
    'msgbox ("修改成功！")
 if page.isvalid=true then	
	dim strsql as string
	strsql="update memberinfo set sex='"
	strsql+=droplistsex.selecteditem.value+"',"
	strsql+="email='"
	strsql+=txtemail.text+"',"
	strsql+="qq='"
	strsql+=txtqq.text+"',"
	strsql+="pwd='"
	strsql+=txtpwd2.text+"' "
	strsql+="where id='"+session("id")+"'"
	'response.write(strsql)
	dim strconn as string
	strconn="data source=localhost;uid=sa;pwd=chicken;database=mybbs"
	dim myconn as sqlconnection
	myconn=new sqlconnection(strconn)
	myconn.open()
	dim mycmd as sqlcommand
	mycmd=new sqlcommand(strsql,myconn)
	try
	    mycmd.executenonquery()
		session("id")=txtid.text			'修改成功后，将新的id放入session中
		
	'	msgbox ("修改成功！")
	myconn.close()		
		'关闭本窗口
		
		
		'*******************
	catch ex as sqlexception
	 '  msgbox ("修改失败，请稍后重试。")
	   	myconn.close()
		'关闭本窗口
		
		
		'*******************
	   
	end try
end if
end sub
sub btncancel_onclick(sender as object,e as eventargs)
    '关闭本窗口
	
	
	'**********
end sub
     sub checkid(sender as object,args As System.Web.UI.WebControls.ServerValidateEventArgs)
	     'if servervalidateeventargs.value="q" then
		 '    servervalidateeventargs.isvalid=false
	     'else
		 '    servervalidateeventargs.isvalid=true			'这是customvalidator的验证函数
		 'end if
	    if txtid.text=session("id") then					'说明用户并没有改id
		   args.isvalid=true
		   exit sub
		 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=mybbs_user;pwd=mybbs_user;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>