01.
Protected
Sub
Page_load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
02.
03.
Try
04.
Connect_server()
05.
If
(
Not
(IsPostBack))
Then
06.
Dim
sqlSelect
As
String
=
""
07.
Dim
DSW
As
DataSet
08.
09.
10.
11.
If
Request.QueryString(
"group"
) <>
""
Then
12.
v_sql =
" EXEC WBI1000_Q"
13.
v_sql +=
" @ITYPE ='I3',@GROUP = '"
& Request.QueryString(
"group"
) &
"'"
14.
15.
16.
SqlDataAp =
New
SqlDataAdapter(v_sql, nDBCON.sys_SqlConnection)
17.
SqlDataAp.Fill(DSW,
"WBTOPIC"
)
18.
19.
GridView1.DataSource = DSW.Tables(
"WBTOPIC"
)
20.
GridView1.DataBind()