<%
Dim C_ID
C_ID=Trim(Request("C_ID"))
If C_ID="" Then
C_ID=0
End If
If IsNumeric(C_ID) = False Then
response.Redirect "../../../index.htm"
End If
If C_ID<>0 Then
'sSql="Select C_ID,C_SiteName,C_SiteClass,C_SiteCount,C_Editor,C_AddTime From CoolSiteData Where C_SiteClass =" &C_Id&" and P_Recycle=False Order By P_ID Desc"
'sSql="Select C_ID,C_SiteName,C_SiteUrl,C_SiteClass,C_SiteCount,C_Editor,C_AddTime,C_SitePicS From CoolSiteData Where C_SiteClass =" &C_Id&" and C_Recycle=False Order By C_ID Desc"
sSql="Select s_id,s_softname,S_SoftAddTime,S_SoftBrowseCount,S_SoftDownCount,S_SoftClassID,s_editor,s_SoftDemoUrl,s_SoftAuthUrl,S_SoftRemark From SoftData where S_SoftClassID ="&C_Id&" and S_Recycle=False order by s_id desc"
else
'sSql="Select C_ID,C_SiteName,C_SiteUrl,C_SiteClass,C_SiteCount,C_Editor,C_AddTime,C_SitePicS From CoolSiteData where C_Recycle=False Order By C_ID Desc"
sSql="Select s_id,s_softname,S_SoftAddTime,S_SoftBrowseCount,S_SoftDownCount,S_SoftClassID,s_editor,s_SoftDemoUrl,s_SoftAuthUrl,S_SoftRemark From SoftData where S_Recycle=False order by s_id desc"
End If
%>
<%
'sSql="Select C_ID,C_SiteName,C_SiteClass,C_SiteCount,C_Editor,C_AddTime From CoolSiteData Where C_SiteClass = 1"
'sSql="Select C_ID,C_SiteName,C_SiteUrl,C_SiteClass,C_SiteCount,C_Editor,C_AddTime,C_SitePicS From CoolSiteData "
'response.Write sSql
oRs.Open sSql,oConn,1,1
Dim PicNum
dim MaxPerPage
dim totalPut
dim CurrentPage
dim TotalPages
dim i
MaxPerPage=20
if not ors.eof then
ors.MoveFirst
end if
ors.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分頁參數(shù)錯(cuò)誤，請(qǐng)不要試圖破壞此系統(tǒng)。"
End If
CurrentPage= CLng(request("Page"))
If CurrentPage> ors.PageCount then
CurrentPage = ors.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=ors.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage
| 資料名稱 |
資料類別 |
點(diǎn)擊下載 |
|
<%
set rsclass=oConn.execute("Select ClassName from SoftClass where ClassID="&oRs("S_SoftClassID"))
If Not oRs.Eof Then
response.write rsclass("ClassName")
else
response.Write "類別不存在"
end if
rsclass.close
set rsclass=nothing
%>
|
