ini_theme_view.inc

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

<script language="VB" runat="server">
sub page_load (src AS Object,e as EventArgs)
   if not ispostback then
         
       mydatagrid.datasource=createdv()
	   mydatagrid.databind()
	end if   
end sub

sub Page_changed(src as Object,E as DataGridPageChangedEventArgs)
   mydatagrid.currentpageindex=e.newpageindex
   myDataGrid.DataSource=createdv()
   myDataGrid.DataBind()
End sub

 function createdv() as dataview			'用于产生数据的dataview对象
     dim id as string
	 id=session("id")
	 
	 if not request.querystring("flag")="" then
	    
		dim flag as string
		flag=request.querystring("flag")
	    createdv=mydv(id,flag)
		exit function
	 end if
	 	
	 dim strconn as string
	 strconn="server=localhost;uid=sa;pwd=chicken;database=mybbs"
	 dim myconn as sqlconnection
	 myconn=new sqlconnection(strconn)
	 myconn.open()
	 dim strsql as string
	 strsql="select num,theme,sponsor as id,sponsetime as pup_time from main"
	 strsql+=" order by pup_time desc"
	 dim myda as sqldataadapter
	 myda=new sqldataadapter(strsql,myconn)
	 dim myds as dataset
	 myds=new dataset()
	 myda.fill(myds,"main")
	 dim dv as dataview
	 dv=myds.tables("main").defaultview
	 createdv=dv
end function
function mydv(id as string,flag as string) as dataview			'id为用户的id，flag=0是我提出的问题
   if id="" or (not isnumeric(flag)) then				'flag=1是我参与的问题
       exit function
   end if
   dim strconn as string
   strconn="server=localhost;uid=sa;pwd=chicken;database=mybbs"			'注意密码 
   dim myconn as sqlconnection
   myconn=new sqlconnection(strconn)
   myconn.open()    
   dim myda as sqldataadapter
   dim strsql as string
   dim myds as dataset
   dim mydview as dataview
   myds=new dataset
   if flag="0" then
     strsql="select num,theme,sponsor as id,sponsetime as pup_time,content from main where sponsor='"
	 strsql+=id
	 strsql+="' order by pup_time desc"
	 myda=new sqldataadapter(strsql,myconn)
     myda.fill(myds,"main")
	 mydview=myds.tables("main").defaultview
	 mydv=mydview
	 
	else
	 strsql= "select main.num,main.theme as theme,follower.follower as id,follower.followtime as pup_time,follower.content from follower,main where follower.follower='"
	 strsql+=id
	 strsql+="'"
	 strsql+=" and main.num=follower.num order by pup_time desc"
	 myda=new sqldataadapter(strsql,myconn)
	 myda.fill(myds,"follower")
	 mydview=myds.tables("follower").defaultview
	 mydv=mydview
	
	end if
	myconn.close()
end function	 	 
 </script>