📄 dqe_news.asp
字号:
total=rs.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page>rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
else
rs.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
For i=1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<tr>
<td width="20" height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("ID")%></td>
<td width="190" align="left" valign="middle" bgcolor="#FFFFFF"> <%=TitleLeft(rs("Title"),20)%>(<%=rs("Author")%>)</td>
<td width="400" align="left" valign="middle" bgcolor="#FFFFFF"> <%=rs("Content")%></td>
<td width="120" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("AddTime")%></td>
<td width="30" align="center" valign="middle" bgcolor="#FFFFFF"><A href=<%=ThisFileName%>?Action=DelPinglun&ID=<%=request("ID")%>&PID=<%=rs("ID")%>>删除</A></td>
</tr>
<%
rs.MoveNext
Next
%>
<tr><td height="25" align="center" bgcolor="#FFFFFF" colspan="5">
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then %>
[首页] [上一页]
<%else%>
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=1%>">首页</a>]
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% =page-1 %>">上一页</a>]
<% end if %>
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=page+1%>">下一页</a>]
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=rs.PageCount%>">尾页</a>]
<%else%>
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% = 1%>">首页</a>]
[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
[页次:<font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>条 <font color="red"><b><%=rs.PageSize%></b></font>条/页]
<select style="width:50px;" onChange="window.location.href=this.options[this.selectedIndex].value">
<option value="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>">页码</option>
<%For k=1 to rs.PageCount%>
<option value="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% = k%>"><% = k%></option>
<%Next%>
</select>
</td></tr>
</table>
<%
Rs.Close
Conn.Close
Response.End()
End If
If Action="Edit" then
'如果Action="Edit"表示是点了编辑按钮,则表单ID不为空,取出该新闻的各种值
'并赋给参数,如Title=rs("Title"),设定表单各项的默认值等于相应参数
'如果Action="",则表示不是点了编辑按钮,则不进行一下11行程序
'所以表单各项的默认值等于空了,如ID
'然后依次作为区别来判断提交的数据是更改还是添加
'即使表单的Action的值都是Add
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_News Where ID="&Request("ID")
rs.open sql,conn,1,1
ID=rs("ID")
Title=rs("Title")
Author=rs("Author")
Content=rs("Content")
SmallPicURL=rs("SmallPicURL")
WaibuURL=rs("WaibuURL")
AddTime=rs("AddTime")
Shenhe=rs("Shenhe")
DQE_LeiBie1=GetBigClassName(rs("BigClassID"))
DQE_LeiBie2=GetSmallClassName(rs("SmallClassID"))
rs.close
ButtonValue=" 编 辑 " '当前是新闻编辑状态,重新设定按钮的值为"编 辑"
End If
If Action="51Add" or Action="Edit" then
%>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<form name="form1" method="post" action="<%=ThisFileName%>?Action=Add<%
If Action="Edit" then response.Write "&page="&request("page")&"&BCID="&request("BigClassID")&"&SCID="&request("SmallClassID")
%>" onSubmit="submits();">
<tr>
<td width="88" height="30" align="center" valign="middle" bgcolor="#FFFFFF">
<input type="Hidden" name="ID" Value="<%=ID%>">
标题：</td>
<td width="700" height="30" align="left" valign="middle" bgcolor="#FFFFFF">
<input type="text" name="Title" value="<%=Title%>" size="85" /></td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#FFFFFF">分类：</td>
<td height="30" align="left" valign="middle" bgcolor="#FFFFFF">
<select name="DQEClassID" >
<option selected>选择所新闻的栏目</option>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_BigClass"
rs.open sql,conn,1,1
If Rs.RecordCount<>0 then
For B=1 to Rs.RecordCount
Response.Write "<option value="&Rs("BigClassID")&">├"&Rs("BigClassName")&"</option>"
Set Rss=Server.CreateObject("Adodb.RecordSet")
Sqls="Select * From DQE_SmallClass Where ForBigClassID="&Rs("BigClassID")
rss.open sqls,conn,1,1
If Rss.RecordCount<>0 then
Do while not Rss.eof
Response.Write "<option value="&Rs("BigClassID")&"$"&Rss("SmallClassID")&">│ ├－"&Rss("SmallClassName")&"</option>"
Rss.MoveNext
Loop
End If
Rss.Close
Rs.MoveNext
Next
End If
Rs.Close
%>
</select>
<%If Action="Edit" then response.Write "←如不更改请勿再选 | 当前大类：<Font Color=#FF0000>"&DQE_LeiBie1&"</Font> 小类：<Font Color=#FF0000>"&DQE_LeiBie2&"</Font>"%>
</td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#FFFFFF">新闻缩略图：</td>
<td height="30" align="left" valign="middle" bgcolor="#FFFFFF">
<input type="text" name="SmallPicURL" value="<%=SmallPicURL%>" size="56" />
<input type="button" name="Submit" value="上传" onClick="window.open('<%= DQE_UploadPicURL %>','','status=no,scrollbars=no,top=0,left=0,width=400,height=30')"> 可直接输入图片地址，没有请不要填。
</td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#FFFFFF">新闻跳转URL：</td>
<td height="30" align="left" valign="middle" bgcolor="#FFFFFF">
<input name="WaibuURL" type="text" id="WaibuURL" value="<%=WaibuURL%>" size="56" />
<input type="button" name="Submit" value="上传" onClick="window.open('<%= DQE_UploadWaiURL %>','','status=no,scrollbars=no,top=0,left=0,width=400,height=30')"> 可直接输入地址，没有请不要填。
</td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF" height="310">内容：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"><table width="700" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3" height="5"></td>
</tr>
<tr>
<td width="5"></td>
<td width="678" align="center" valign="top"><div align="center">
<input type="hidden" name="content" id='edit' value="<%=Server.HTMLEncode(DQE_Get(Content))%>">
</div>
<iframe id="eWebEditor1" src="DQE_Edit/eWebEditor.htm?id=content&style=blue" frameborder="0" scrolling="No" width="640" height="340"></iframe></td>
<td width="17" align="center" valign="middle"><div align="center"></div></td>
</tr>
<tr>
<td colspan="3" height="5"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" valign="middle" bgcolor="#FFFFFF">作者：</td>
<td valign="middle" bgcolor="#FFFFFF" align="Left"> <input type="text" name="Author" value="<%'=Author%><%= Session("adminzsname") %>" size="20" /> <input type="checkbox" name="Shenhe" value="1" <%If Action="51Add" or Shenhe=1 then response.Write "checked"%>> 已审核 <input type="submit" name="Submit" value="<%=ButtonValue%>"></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="cuti_red"><%=Request("Result")%></td>
</tr></form>
</table>
<%End If
If Action="" or Action="Login" then%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#8F6DC4" class="Heitable">
<tr><td height="5"></td></tr>
<tr><td>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25"><%
If Request("BigClassID")="" Then
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_BigClass"
rs.open sql,conn,1,1
If Rs.RecordCount=0 then
response.Write "还没有任何分类"
Else
Response.Write "<a href="&ThisFileName&">全部</a>"
For t=1 to Rs.RecordCount
Response.Write "‖("&Rs("BigClassID")&")<a href="&ThisFileName&"?BigClassID="&Rs("BigClassID")&">"&Rs("BigClassName")&"</a>"
Rs.MoveNext
Next
End If
Rs.Close
Else
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_SmallClass Where ForBigClassID="&Request("BigClassID")
rs.open sql,conn,1,1
If Rs.RecordCount=0 then
response.Write "该大类还没有任何小类"
Else
Response.Write "<a href="&ThisFileName&">全部</a>"
Response.Write "‖<a href="&ThisFileName&"?BigClassID="&Request("BigClassID")&">本类全部</a>"
For t=1 to Rs.RecordCount
Response.Write "‖("&Rs("SmallClassID")&")<a href="&ThisFileName&"?BigClassID="&Request("BigClassID")&"&SmallClassID="&Rs("SmallClassID")&">"&Rs("SmallClassName")&"</a>"
Rs.MoveNext
Next
End If
Rs.Close
End If
%></td></tr></table>
</td></tr>
<tr height="5"><td></td></tr>
<tr><td align="center" valign="middle" bordercolor="#8F6DC4" bgcolor="#FFFFFF">
<FORM action="<%=ThisFileName%>?Action=DelAll" name="form1" method="post">
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
If Request("BigClassID")="" Then
Sql="Select * From DQE_News Order By ID Desc"
Else
If Request("SmallClassID")="" then
Sql="Select * From DQE_News Where BigClassID="&Request("BigClassID")&" Order By ID Desc"
Else
Sql="Select * From DQE_News Where BigClassID="&Request("BigClassID")&" and SmallClassID="&Request("SmallClassID")&" Order By ID Desc"
End If
End If
rs.open sql,conn,1,1
if rs.RecordCount=0 then
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25">没有数据..<a href="javascript:history.go(-1)">返回</a></td></tr></table>
<%
Else
page=request.QueryString("page")
rs.pagesize=EveryPageNum
total=rs.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page>rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
else
rs.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bordercolorlight="#636EA2" bordercolordark="#FFFFFF" bgcolor="#E9E2F3">
<tr bordercolor="#8F6DC4" bgcolor="#E8DEF3">
<td width="4%" height="25" align="center" valign="middle"><b>选择</b></td>
<td width="*" align="left" valign="middle"><b> [ID] [类别] 标题 (阅读次数)</b></td>
<td width="6%" align="center" valign="middle"><b>状态</b></td>
<td width="4%" align="center" valign="middle"><b>编辑</b></td>
<td width="4%" align="center" valign="middle"><b>删除</b></td>
<%If IsPinglun=1 then%>
<td width="4%" align="center" valign="middle"><b>评论</b></td>
<%End If%>
</tr>
<%
For i=1 to rs.PageSize
if rs.EOF then
Exit For
end if
Set Rs_Pinglun=Server.CreateObject("Adodb.RecordSet")
SQL_Pinglun="Select * From DQE_Pinglun Where NewsID="&Rs("ID")
Rs_Pinglun.open sql_Pinglun,conn,1,1
PinglunNum=Rs_Pinglun.RecordCount
Rs_Pinglun.Close
%>
<tr bordercolor="#8F6DC4" bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#F7F2FB'" onMouseOut="this.style.backgroundColor='#ffffff'" >
<td height="25" align="center" valign="middle"><input name="AllID" type="checkbox" value="<%=rs("ID")%>" onClick="checkItem(this, 'mmAll')"></td>
<td align="left" valign="middle"> <%=rs("ID")%>:[<a href="<%=ThisFileName%>?BigClassID=<%=rs("BigClassID")%>" title="B=Big
显示与本条新闻
同一大类的所有新闻">B</a> <a href="<%=ThisFileName%>?BigClassID=<%=rs("BigClassID")%>&SmallClassID=<%=rs("SmallClassID")%>" title="S=Small
显示与本条新闻
同一小类的所有新闻">S</a>] <%If rs("SmallPicURL")<>"" then response.Write "<font color=#ff0000>图</font> "%><%If rs("WaibuURL")<>"" then response.Write "<font color=#ff0000>外</font> "%><a href="<%=ThisFileName%>?Action=View&ID=<%=rs("ID")%>"><%=rs("Title")%></A> (<%=rs("ReadCishu")%>) <font color="#AAAAAA"><%=rs("AddTime")%></font></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Shenhe&ID=<%=rs("ID")%>">
<%
If rs("Shenhe")=0 then
response.Write "未审核"
Else
response.Write "已审核"
End If
%></a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Edit&ID=<%=rs("ID")%>&page=<%=request("page")%>&BigClassID=<%=request("BigClassID")%>&SmallClassID=<%=request("SmallClassID")%>">编辑</a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Del&ID=<%=rs("ID")%>" onClick='return confirm("标题：<%=rs("Title")%>\n\n确定要执行操作吗？\n该操作将删除该新闻下的所有评论\n请慎重！！！！");'>删除</a></td>
<%If IsPinglun=1 then%>
<td align="center" valign="middle">
<%If PingLunNum<>0 then%>
<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=rs("ID")%>">[<%=PingLunNum%>]</a>
<%Else
response.Write "无"
End If%> </td>
<%End If%>
</tr>
<%
rs.MoveNext
Next
%>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" height="5"><tr><td></td></tr></table>
<table width="98%" border="1" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr><td height="25" align="center" bgcolor="#FFFFFF" width="4%"><input type=checkbox name=mmAll onClick="checkAll(this, 'AllID')"></td><td align="center" bgcolor="#FFFFFF" width="23%">批量：<input type="submit" value="删除">
<input type="submit" onClick="form1.action='<%=ThisFileName%>?Action=ShenheAll&ShenheValue=1'" value="审核">
<input type="submit" onClick="form1.action='<%=ThisFileName%>?Action=ShenheAll&ShenheValue=0'" value="未审核"></td><td align="center" bgcolor="#FFFFFF" width="*">
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then
Response.Write "[首页][上页]"
else
Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=1%>">首页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% =page-1 %>">上页</a>]<%
end if
Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=page+1%>">下页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=rs.PageCount%>">尾页</a>]<%
else
Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% = 1%>">首页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% =page -1 %>">上页</a>][下页][尾页]<%
end if
else
Response.Write "[首页][上页][下页][尾页]"
end if
Response.Write "[页次:"%><font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>][共<%=rs.RecordCount%>条 <font color="red"><b><%=rs.PageSize%></b></font>条/页]</td>
<td align="center" bgcolor="#FFFFFF" width="18%"><select style="width:120px;" onChange="window.location.href=this.options[this.selectedIndex].value"><%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_BigClass"
rs.open sql,conn,1,1
If Rs.RecordCount<>0 then
For B=1 to Rs.RecordCount
Response.Write "<option value="&ThisFileName&"?BigClassID="&Rs("BigClassID")&">├"&Rs("BigClassName")&"</option>"
Set Rss=Server.CreateObject("Adodb.RecordSet")
Sqls="Select * From DQE_SmallClass Where ForBigClassID="&Rs("BigClassID")
rss.open sqls,conn,1,1
If Rss.RecordCount<>0 then
Do while not Rss.eof
Response.Write "<option value="&ThisFileName&"?BigClassID="&Rs("BigClassID")&"&SmallClassID="&Rss("SmallClassID")&">│ ├－"&Rss("SmallClassName")&"</option>"
Rss.MoveNext
Loop
End If
Rss.Close
Rs.MoveNext
Next
End If
Rs.Close
%></select>
</td>
<td align="center" bgcolor="#FFFFFF" width="7%"><select style="width:50px;" onChange="window.location.href=this.options[this.selectedIndex].value">
<option value="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>">页码</option>
<%For k=1 to rs.PageCount%>
<option value="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&page=<% = k%>"><% = k%></option>
<%Next%>
</select>
</td></tr></table>
<%
rs.Close
End If
End If
Conn.Close
%></FORM>
</td></tr><tr><td height="5"></td></tr></table>
<br>
<br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -