ini_follow.inc

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

<script language="VB" runat="server">
sub ini_follow(num as string)			'用于初始化follow区域的空件，绑定repeater控件
   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 myda as sqldataadapter
   dim strsql as string
   strsql="select follower as id,followtime as pup_time,content from follower where num='" & num & "'"
   myda=new sqldataadapter(strsql,myconn)
   dim myds as dataset
   myds=new dataset()
   myda.fill(myds,"follower")
   dim mydview as dataview=myds.tables("follower").defaultview
   repcontent.datasource=mydview
   repcontent.databind()
   myconn.close()
end sub   
   
</script>