?? articlecheck.asp
字號:
next
else
if trim(strAdmin)=session("Admin") then
PurviewChecked=True
end if
end if
end if
else
response.Write(" <a href='ArticleCheck.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'>" & rsSmallClass("SmallClassName") & "</a> ")
end if
rsSmallClass.movenext
loop
response.write "</td></tr>"
end if
rsSmallClass.close
set rsSmallClass=nothing
end if
%>
</table>
<form action="ArticleCheckSet.asp" method="Post" name="Check" id="Check">
<table width="620" height="22" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="453" height="22" bgcolor="#CCCCCC"><a href="ArticleCheck.asp"> 產品審核</a> >>
<%
if Title="" and BigClassName="" and SmallClassName="" and SpecialName="" then
if Passed="False" then
response.write "所有未審核的產品"
else
response.write "所有已審核的產品"
end if
else
if request("Query")<>"" then
if Title<>"" then
response.write "標題中含有“<font color=blue>" & Title & "</font>”并且未審核的產品"
else
response.Write("所有未審核的產品")
end if
else
if BigClassName<>"" then
response.write "<a href='ArticleCheck.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a> >> "
if SmallClassName<>"" then
response.write "<a href='ArticleCheck.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
else
response.write "所有小類"
end if
end if
if SpecialName<>"" then
response.write "<font color=red>[專題]</font> " & SpecialName
end if
end if
end if
%>
</td>
<td width="161" bgcolor="#CCCCCC">
<%
if rs.eof and rs.bof then
response.write "共找到 0 個產品</td></tr></table>"
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
response.Write "共找到 " & totalPut & " 個產品"
%>
</td>
</tr>
</table>
<%
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,false," 個產品"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,false," 個產品"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,false," 個產品"
end if
end if
end if
%>
<%
sub showContent
dim i
i=0
%>
<table class="border" border="0" cellspacing="2" width="620" cellpadding="0" style="word-break:break-all">
<tr bgcolor="#C0C0C0" class="title">
<td width="30" height="25" align="center" bgcolor="#C0C0C0"><strong>選擇</strong></td>
<td width="37" height="20" align="center"><strong>ID</strong></td>
<td width="317" align="center" ><strong>產品名稱</strong></td>
<td width="63" align="center" ><strong>加入時間</strong></td>
<td width="57" align="center" ><strong>點擊數</strong></td>
<td width="40" align="center" ><strong>已審核</strong></td>
<td width="60" align="center" ><strong>操作</strong></td>
</tr>
<%do while not rs.eof%>
<tr class="tdbg">
<td width="30" height="22" align="center" bgcolor="#C0C0C0">
<input name='ArticleID' type='checkbox' onclick="unselectall()" id="ArticleID2" value='<%=cstr(rs("articleID"))%>'>
</td>
<td width="37" align="center" bgcolor="#E3E3E3"><%=rs("articleid")%></td>
<td bgcolor="#E3E3E3"> <a href="../ArticleShow.asp?ArticleID=<%=rs("articleid")%>" title="<%=replace(left(nohtml(rs("Content")),200),chr(34),"") & "……"%>"> <%=rs("title")%></a></td>
<td width="63" align="center" bgcolor="#E3E3E3"><%= FormatDateTime(rs("UpdateTime"),2) %></td>
<td width="57" align="center" bgcolor="#E3E3E3"><%=rs("Hits")%>
</td>
<td width="40" align="center" bgcolor="#E3E3E3">
<%if rs("Passed")=true then response.write "是" else response.write "否" end if%>
</td>
<td width="60" align="center" bgcolor="#E3E3E3">
<%
if session("purview")<=2 or PurviewChecked=True then
If rs("Passed")=False Then %>
<a href="ArticleCheckSet.asp?Action=Check&ArticleID=<%=rs("ArticleID")%>">通過審核</a>
<% Else %>
<a href="ArticleCheckSet.asp?Action=CancelCheck&ArticleID=<%=rs("ArticleID")%>">取消通過</a>
<%
End If
end if %>
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<table width="620" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
選中本頁顯示的所有產品</td>
<td><input name="submit" type='submit' value="<%if Passed="True" then response.write "取消"%>審核選定的產品" <%if session("purview")>=3 and session("purview")<=4 and PurviewChecked=False then response.write "disabled"%>>
<input name="Action" type="hidden" id="Action" value="<% if Passed="False" then
response.write "Check"
else
response.write "CancelCheck"
end if%>"></td>
</tr>
</table>
<%
end sub
%>
</form>
<table width="620" class="border">
<tr class="tdbg">
<form name="searchsoft" method="get" action="ArticleCheck.asp">
<td height="30"> <strong>查找產品：</strong>
<input name="Title" type="text" class=smallInput id="Title3" size="20">
<input name="Query" type="submit" id="Query" value="查 詢">
請輸入產品名稱。如果為空，則查找所有產品。 </td>
</form>
</tr>
</table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.close
set rs=nothing
call CloseConn()
sub CheckArticle(id)
dim sql
sql="update article set Passed = True where articleid="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
'response.write "刪 除 失 敗 !<br>"
else
'response.write "刪除成功！<br>"
end if
End sub
sub CancelCheckArticle(id)
dim sql
sql="update article set Passed = False where articleid="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
'response.write "刪 除 失 敗 !<br>"
else
'response.write "刪除成功！<br>"
end if
End sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -