<% Option Explicit
Response.Expires=0
Dim mDB, mRS, sql, i, aPAGE, mPAGECOUNT, mPAGESIZE
Dim mIDX, mWRITER, mTITLE, mFILENAME, mW_DATE, mCLICK, mEMAIL
'?????
mPAGESIZE = 10
aPAGE = request("PAGE")
if aPAGE = "" then
aPAGE = 1
else
aPAGE = Cint(aPAGE)
end if
Set mDB = Server.CreateObject("ADODB.Connection")
Set mRS = Server.CreateObject("ADODB.Recordset")
mDB.Open application("strConnect")
mRS.PageSize = mPAGESIZE
Dim aSearchPart, aSearchStr
'???
aSearchPart = request("SearchPart")
aSearchStr = request("SearchStr")
if aSearchPart = "subject" then
sql = "SELECT [idx], [writer], [title], [w_date], [click], email FROM [bbs_1] where title like '%" & aSearchStr & "%' order by idx desc"
elseif aSearchPart = "name" then
sql = "SELECT [idx], [writer], [title], [w_date], [click], email FROM [bbs_1] where writer like '%" & aSearchStr & "%' order by idx desc"
elseif aSearchPart = "content" then
sql = "SELECT [idx], [writer], [title], [w_date], [click], email FROM [bbs_1] where contents like '%" & aSearchStr & "%' order by idx desc"
else
sql = "SELECT [idx], [writer], [title], [w_date], [click], email FROM [bbs_1] order by idx desc"
end if
mRS.Open sql ,mDB,adOpenStatic,adLockReadOnly,adCmdText
if not(mRS.eof) then
mRS.absolutepage = aPAGE
end if
mPAGECOUNT = mRS.pagecount
%>
MicroInfinity
