📄 show_x.asp

📁 新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<%
dim id,mailX,CommentX,dateX,I,I_X,fenpageV,titleX,rid,dataidx
dim totalRecs
dim startRec
dim startRecx
If IsEmpty(request("id")) Then
errorstr="URL错误"
errorbox(errorstr)
End If
id=request("id")
set rs=conn.execute("select ID,titleX from newsdata where id="&id&"")
if rs.bof and rs.bof then
       errorstr="该主题不存在"
       errorbox(errorstr)
End If
titleX=rs("titleX")
rs.close
set rs=nothing
SysX(0) = Clng(SysX(0))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "select id,dataid,mailX,CommentX,dateX from Comment where dataid="&id&" order by dateX desc"
rs.open sql, conn,1,1
if rs.bof and rs.bof then
       errorstr="没有网友对该主题发表评论"
       errorbox(errorstr)
End If

totalRecs = rs.RecordCount
If Not IsEmpty(Request.QueryString("page")) Then
startRec = Request.QueryString("page")
Else
startRec = 1
End If
if startRec=0 Then
errorstr="url参数非法"
errorbox(errorstr)
End If
startRecx=startRec*SysX(0)-SysX(0)+1
If totalRecs-startRecx <0 Then
errorstr="url参数非法"
errorbox(errorstr)
End If
startRecx=startRec*SysX(0)-SysX(0)
%>
<body topmargin=0 leftmargin=0>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="26%" height="42" rowspan="2"><A HREF="http://3gu.tea8.com"><IMG SRC="Images/logo.gif" WIDTH="299" HEIGHT="65" BORDER=0 ALT="<%=homename%>"></A></td>
    <td width="74%"><div align="right"><PRE CLass="BigText">Patron Saint News</PRE></div></td>
  </tr>
  <tr>
    <td><div align="right"><A HREF="<%=HomePageX%>"><%=HomeNameX%></A> | <A HREF="http://3gu.tea8.com">版本检查</A> | <A HREF="http://3gu.tea8.com/Forum/list.asp?boardid=14">技术支持</A> | <A HREF="login.asp">管理</A></div></td>
  </tr>
</table>
<BR>
<table width="95%" cellspacing=1 cellpadding=0 align=center class=tableBorder1>
    <tr> 
      <th align="left" height=25 colspan="2">评论浏览</th>
    </tr>
    <tr> 
      <td align="left" Class="TableTitle2" height=25 colspan="2"><A HREF="display.asp">Index</A>&nbsp;&gt;&nbsp;<A HREF="show.asp?id=<%=id%>"><%=titleX%></A></td>
    </tr>

      

<%
Rs.move startRecx
Do While NOT rs.EOF
     If rs.absoluteposition <= startRec*SysX(0) Then
rid=rs("id")
mailX=rs("mailX")
CommentX=rs("CommentX")
dateX=rs("DateX")
dataidx=rs("dataid")
            If rs.absoluteposition/2 <> CInt(rs.absoluteposition/2) Then
            %>
    <tr> 
      <td Class="TableBody1">&nbsp;<%=mailX%><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<%=CommentX%><BR>&nbsp;<%=dateX%></td>
	  <td Class="TableBody1" align="CENTER" width="90"><A HREF="Comment_del_ad.asp?id=<%=rid%>&dataid=<%=dataidx%>">Del</A></td>
    </tr>
			<%
	        Else
            %>
    <tr> 
      <td Class="TableBody2">&nbsp;<%=mailX%><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<%=CommentX%><BR>&nbsp;<%=dateX%></td>
	  <td Class="TableBody2" align="CENTER" width="90"><A HREF="Comment_del_ad.asp?id=<%=rid%>&dataid=<%=dataidx%>">Del</A></td>
    </tr>
			<%
	        End If


	 Else
       Exit do
	 End If
     rs.MoveNext
	 Loop
%>

  </table>
<%
rs.close
set rs=nothing

dim url,widthX
widthX="95%"
url = "show_X.asp?id="&id&"&page="
fenpageV=fenpage(totalRecs,startRec,url,widthX)
Response.Write fenpageV
%>
<!--#include file="footer.inc"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -