📄 show.asp

📁 新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<%

dim id,titcle,text,readess,datex,PingLunX,pinglu_y
If IsEmpty(request("id")) Then
errorstr="URL错误"
errorbox(errorstr)
End If
id=request("id")
set rs=conn.execute("select ID,TitleX,PingLun,ContentsX,DateX,ReadX from newsdata where id="&id&"")
if rs.bof and rs.bof then
       errorstr="该主题不存在"
       errorbox(errorstr)
	   Else
titcle=rs("TitleX")
text=rs("ContentsX")
readess=rs("ReadX")
datex=rs("DateX")
If rs("PingLun")=1 Then
PingLunX = "on"
Else
PingLunX = "off"
End If
End If
rs.close
set rs=nothing
set rs = Server.CreateObject("ADODB.Recordset")
conn.execute("update newsdata set ReadX="&readess+1&" where id="&id&"")
sql = "select id from Comment where dataid="&id&""
rs.open sql, conn,1,1 
pinglu_y = rs.RecordCount
rs.close
set rs=nothing

%>
<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="loginin.asp">管理</A></div></td>
  </tr>
</table>
<BR>
<table width="95%" cellspacing=1 cellpadding=0 align=center class=tableBorder1>
<tr>
<th height="25" align=left>&nbsp;评论公告</th>
</tr>
<tr>
<td height="25" align=left CLass=TableTitle2>&nbsp;<A HREF="display.asp">Index</A>&nbsp;&gt;&nbsp;<%=titcle%>&nbsp;&nbsp;<font class=SmallFont>(点击：<%=readess%>&nbsp;&nbsp;时间：<%=datex%>)</font></th>
</tr>
  <tr>
    <td background="Images/bg01.gif"><table width="95%" cellspacing=0 cellpadding=0 align=center class=tableBorder1><tr><td background="Images/bg01.gif"><%=text%></td></tr>
</table>
</td>
  </tr>
  <tr>
<td height="25" align=left CLass=TableTitle2>&nbsp;当前评论状态：<%=PingLunX%>&nbsp;&nbsp;共有 <%=pinglu_y%> 位网友参加评论&nbsp;&nbsp;<A HREF="show_x.asp?id=<%=id%>">点击查看评论</A></th>
</tr>


<tr>
<td><form name="form" method="post" action="Comment_Save.asp?id=<%=id%>">
 <table width="100%" cellspacing=1 cellpadding=0 align=center class=tableBorder1>
    <tr> 
      <th height="25" colspan="2" align=left>&nbsp;发表评论 (*为必须项)</th>
    </tr>
    <tr> 
      <td height="25" width="18%" align=right>E-Mail*</td>
	  <td height="25" width="82%"><input name="MailX" type="text" size="50" maxlength="250"></td>
    </tr>
    <tr> 
      <td height="25" width="18%" align=right>内容*250字节以内</td>
	  <td height="25" width="82%"><textarea name="CommentX" cols="80" rows="5"></textarea></td>
    </tr>
    <tr> 
      <td colspan="2" height="25" align=center CLass=TableTitle2><input type="submit" name="Submit" value="发表">&nbsp;&nbsp;<input type="reset" name="Submit2" value="清空"></td>
    </tr>
  </table>
</form></td>
</tr>



</table>

<!--#include file="footer.inc"-->
⌨️ 快捷键说明

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