<%
search = Request("search")
criteria = Request("criteria")
set conn = GetSQLServerConnection()
if search = "" then
SQL = "Select * from Counseling_forum where main = '1' and fdate <='" & date &"' order by fdate desc, tdate desc"
set rs = GetSQLServerRecordset(conn,SQL)
ElseIf criteria = "both" Then
SQL = "Select * from Counseling_forum where main = '1' And (title Like '%" & search & "%' Or content Like '%" & search & "%') and fdate <= '" & date & "' Order By fdate asc, tdate asc"
Set rs = GetSQLServerRecordset(conn, SQL)
Else
SQL = "Select * from Counseling_forum where main = '1' And " & criteria & " Like '%" & search & "%' and fdate <= '" & date & "' order By fdate asc, tdate asc"
Set rs = GetSQLServerRecordset(conn, SQL)
End If
rs.PageSize = 10
page_no = Request("page_no")
If page_no = "" Or page_no <= 1 Then
page_no = 1
ElseIf CInt(page_no) > rs.PageCount Then
page_no = 1
End If
SQL = "Select cid, title from Counseling_forum where cid = (Select max(cid) from Counseling_forum where main = '1' and fdate <='" & date &"')"
Set mcid = GetSQLServerRecordset(conn, SQL)
%>
Youth-2000.com [滅罪會 On-line Counseling]
| |
|
