?? 2j.asp
字號:
<!--#include file="head.asp"-->
<!----------------------------------------------
Powered by QCDN_NEWS Version 1.4.3.10.6.0 (青創文章系統 - 測試版)
個人免費版
http://www.qcdn.net/
此版本只能在個人網站使用并要求保留青創網絡版權！
-------------------------------------------------->
<%
if Request("id") = "" then
Errmsg = "<li>發現異常錯誤。<li>錯誤編號為: error 110。<li>請和青創網絡聯系解決問題。"
call Qcdn.Err_List(errmsg,2)
Response.End()
else
id = Request("id")
end if
cid = Request("cid")
MaxPerPage=PageCount
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<table class="twidth" align=center cellpadding=0 cellspacing=0>
<tr>
<td class="navsub-left"></td>
<td class="navsub">
<a href='index.asp'><%=NetName%></a> → <a href='2j.asp?id=<%=id%>'><%=Qcdn.Classlist(id)%></a>
<%
if cid <> "" then
Response.write(" → <a href='2j.asp?id="&id&"&cid="&cid&"'>" & Qcdn.Classlist(cid) & "</a>")
end if
%>
</td>
<td class="navsub-right"></td>
</tr>
</table>
<br>
<table class="twidth" cellpadding=0 cellspacing=0 border=0 align=center>
<tr align="left" valign=top >
<td width=200><!--#include file="2jleft.asp"--></td>
<td>
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td class="mframe-t-left"></td>
<td class="mframe-t-mid">
<span class="mframe-t-text"> >> <span id="NameLabel">
<%
if cid <>"" then
Response.write Qcdn.Classlist(cid)
else
Response.write Qcdn.Classlist(id)
end if
%>
</span></span>
</td>
<td class="mframe-t-right"></td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td class="mframe-m-left"></td>
<td valign="top" class="mframe-m-mid">
<%
set rs=server.createobject("adodb.recordset")
if cid<>"" then
Sql = "Select Unid,title,content,Nclassid,hits,intime,pic,synopsis from article_info where classid = "& id &" and Nclassid="& cid &" and flag = 0 and Audit = 0 order by Unid desc"
else
Sql = "Select Unid,title,content,Nclassid,hits,intime,pic,synopsis from article_info where flag = 0 and classid = "& id &" and Audit = 0 order by Unid desc"
end if
rs.open sql,conn,1,1
if Rs.eof and Rs.bof then
response.Write("該欄目下還沒有添加文章。")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"2j.asp"
showContent
showpage totalput,MaxPerPage,"2j.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"2j.asp"
showContent
showpage totalput,MaxPerPage,"2j.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"2j.asp"
showContent
showpage totalput,MaxPerPage,"2j.asp"
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
do while not rs.eof
Unid = rs(0)
title = rs(1)
content = rs(2)
Nclassid = rs(3)
hits = rs(4)
intime = rs(5)
pic = rs(6)
synopsis = rs(7)
%>
<table width=100% cellpadding=0 cellspacing=0 border=0>
<tr>
<td class='summary-title'> <%=bullet%>
<%
if cid = "" then
Response.Write ("[<a href=2j.asp?id="&id&"&cid="&Nclassid&">" & Qcdn.Classlist(Nclassid) & "</a>]")
end if
Response.Write("<a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>" & title & "</a>")
if DisPicico then
if pic = 1 then
Response.write " [圖文]"
end if
end if
%>
</td>
</tr>
<tr>
<td style='padding:5px 10px'>
<%
Response.Write " " & Qcdn.HTMLcode(synopsis)
Response.write ("<div style='width:100%;text-align:right'><font class=gray>("& intime &",<font class=hit>"& hits &"</font>)</font> <a href=list.asp?unid="& rs(0) &" target='"& AddOpenWin &"'>[查看全文]</a> </div>")
%>
</td>
</tr>
</table>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<table width=95% align=center height=40><tr><td align=center><table cellpadding=0 cellspacing=0 width=100%><tr>
<td>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4'><form method=Post action="""&filename&"?id="&id&"&cid="&cid&"""><tr><td align=right> "
if CurrentPage<2 then
response.write "共<font color=red>"&totalnumber&"</font>篇文章 首頁 上一頁 "
else
response.write "共<font color=red>"&totalnumber&"</font>篇文章 <a href="&filename&"?page=1&id="&id&"&cid="&cid&" class=gray>首頁</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&id="&id&"&cid="&cid&" class=gray>上一頁</a> "
end if
if n-currentpage<1 then
response.write "下一頁 尾頁"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&"&cid="&cid&" class=gray>"
response.write "下一頁</a> <a href="&filename&"?page="&n&"&id="&id&"&cid="&cid&" class=gray>尾頁</a>"
end if
response.write " 頁次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>頁 "
response.write " <b>"&maxperpage&"</b>篇文章/頁 "
%>
轉到：
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>頁</option>
<%next%>
</select>
<%
response.write "</td></tr></FORM></table>"
end function
%>
</td>
</tr></table></td></tr></table>
<!-----------快速搜索欄----------->
<%Call Qcdn.Searchlist()%>
<!-----------搜索欄結束----------->
</td>
<td class="mframe-m-right"></td>
</tr>
</table>
<table width=100% cellspacing=0 cellpadding=0 >
<tr>
<td class="mframe-b-left"></td>
<td class="mframe-b-mid"> </td>
<td class="mframe-b-right"></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="copy.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -