📄 listuserbook.asp
字号:
<%
if trim(Request("booktype2"))="" then
booktype2=0
else
booktype2=replace(trim(Request("booktype2")),"'","")
CheckSqlnum(booktype2)
booktype2=int(booktype2)
if booktype2>4 then
Response.Write ("<script>alert(' 操作错误!\n\n 请联系管理员。');history.back();</script>")
Response.end
End If
end if
%><table cellSpacing="0" width="100%" align="center" border="0">
<tr>
<td align="middle">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top">
<form method="get" action="listuserbook.asp">
<tr>
<td class="xt"><span class="zt"> <font size="4">□</font>
<font color="red"></font> 全部文章</span> 按<%if booktype2=0 then
response.write "更新时间"
elseif booktype2=1 then
response.write "总点击"
elseif booktype2=2 then
response.write "总推荐"
elseif booktype2=3 then
response.write "总字数"
elseif booktype2=4 then
response.write "更新时间"
end if%>排序
</td>
<td class="xt" align="right"><select name="booktype2">
<option value="0" selected>排行方式</option>
<option value="1">总点击</option>
<option value="2">总推荐</option>
<option value="3">总字数</option>
<option value="4">更新时间</option>
</select> <input type="submit" value="提交"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table cellSpacing="0" width="100%" align="center" border="0">
<tr>
<td>
<table cellSpacing="0" borderColorDark="white" width="99%" align="center" border="0" valign="top">
<tr align="middle" height="24">
<td class="xt" style="BORDER-LEFT-COLOR: rgb(204,204,204); BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="10%">
<b><font color="#003399">类别</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="28%">
<b><font color="#003399">文章名称</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="15%">
<b><font color="#003399">作者</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="12%">
<b><font color="#003399">点击</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="10%">
<b><font color="#003399">推荐</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="12%">
<b><font color="#003399">字数</font></b></td>
<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204); BORDER-RIGHT-COLOR: rgb(204,204,204)" vAlign="center" borderColorLight="#666666" align="middle" width="12%">
<b><font color="#003399">更新时间</font></b></td>
</tr>
<%
Const MaxPerPage=100
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rsbclass=server.createobject("adodb.recordset")
if booktype2=0 then
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_class<>0 order by Ar_data desc"
elseif booktype2=1 then
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_class<>0 order by Ar_hist desc"
elseif booktype2=2 then
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_class<>0 order by Ar_jian desc"
elseif booktype2=3 then
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_class<>0 order by Ar_size desc"
elseif booktype2=4 then
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_lock=0 and Ar_nolook=0 and Ar_userid<>0 and Ar_class<>0 order by Ar_data desc"
end if
'MySQL需要如下语句
conn.CursorLocation=3
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.bof then
response.write "<tr bgColor=#ffffff height=24><td align=center>暂无任何作品</td></tr>"
else
Rsbclass.PageSize=MaxPerPage
Allpage=Rsbclass.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rsbclass.RecordCount
Rsbclass.MoveFirst
Rsbclass.AbsolutePage=CurrentPage
i=0
Do While Not Rsbclass.Eof%>
<tr height="24">
<td class="xt" vAlign="top" align="middle">
<%set rs1=server.CreateObject("ADODB.recordset")
sql="select classname from Ar_class where id="&rsbclass("Ar_class")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "被删除"
else
%>[<a target="_blank" href="list_userbook.asp?id=<%=rsbclass("Ar_class")%>"><%=rs1("classname")%></a>]<%end if
rs1.close
set rs1=nothing
%></td>
<td class="xt" vAlign="top" align="left">
<a target="_blank" href="read_userbook.asp?id=<%=rsbclass("Ar_id")%>"><%=rsbclass("Ar_name") %></a></td>
<td class="xt" vAlign="top" align="middle"><a target="_blank" href="show_User.asp?id=<%=rsbclass("Ar_userid")%>">
<%set rs1=server.CreateObject("ADODB.recordset")
sql="select NAME from Userinfo where ID="&rsbclass("Ar_userid")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "被删除"
else
%><%=rs1("NAME")%><%end if
rs1.close
set rs1=nothing
%> </a></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_hist")%></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_jian")%></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_size")%></td>
<td class="xt" vAlign="top" align="middle">
<%=formatdatetime(rsbclass("Ar_data"),2)%>
</td>
</tr>
<%
i=i+1
If i>=MaxPerPage Then Exit Do
Rsbclass.MoveNext
Loop
End If
Rsbclass.Close
Set Rsbclass=Nothing
%>
<tr>
<td class="xt" align="center" colSpan="7">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="24" align="center"><%
Response.Write ShowPage("listuserbook.asp?id="&id&"&booktype2="&booktype2&"",CurrentPage,Num,MaxPerPage,True,True," 条纪录")
%></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -