infodisplay.asp
来自「程序名称:酷虎网校友录 V1.0 (商业版)*(修改版) * 本软体为商业软件」· ASP 代码 · 共 118 行
ASP
118 行
<!--#include file="conn.asp"-->
<%
ID=Request("ID")
SQL="Select * From 信息发布 Where ID=" & CInt(ID)
Set DisplayRS=Server.CreateObject("ADODB.Recordset")
DisplayRS.Open SQL,Connstr,3,2
IF DisplayRS.EOF Then
Response.Redirect "error.asp"
Else
DisplayRS("人气")=DisplayRS("人气")+1
DisplayRS.Update
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebsiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="left.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<!--#include file="navigation.asp"-->
<tr>
<td width="27%" valign="top">
<img border="0" src="images/infoissue.gif" width="150" height="112">
</td>
<td width="73%" valign="top">
<p style="line-height: 150%; margin-left: 50"><br>
<font color="#990000">曾经多少风风雨雨我陪你走过,如今多少快快乐乐我陪你笑过;<br>
不能忘记的,我永远记在心中,只怕在有雨的夜里,因景思情的<br>
泪如潮涌;心中只有一个信念:愿远方的你幸福!<br>
</font>[ <a href="infoindex.asp">返回信息发布首页</a> ] [
<a href="infoindex.asp?active=myself">查看我已发表的信息</a>
]
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2" height="10">
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2" height="10"><div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
</center>
<tr>
<td width="500">
标 题:<font color="#990000">『 <%=DisplayRS("主题")%> 』</font><br>
<br>
作 者: <font color="#990000"><%=DisplayRS("发布者")%></font><br>
<br>
时 间: <font color="#990000"><%=DisplayRS("发布日期")%></font>
</td>
</tr>
<tr>
<td width="500">
<hr size="1" color="#545454">
</td>
</tr>
<tr>
<td width="500">
前 言:
</td>
</tr>
<tr>
<td width="500">
<p style="line-height: 200%; margin-left: 5"><font color="#000000">
</font><font color="#545454"><%=DisplayRS("前言")%></font>
</td>
</tr>
<tr>
<td width="500">
<hr size="1" color="#545454">
</td>
</tr>
<tr>
<td width="500">
正 文:
</td>
</tr>
<tr>
<td width="500">
<p style="line-height: 150%; margin-left: 5; margin-top: 3"> <%=Replace(Server.HTMLEncode(DisplayRS("内容")),VBCrlf,"<BR> ")%>
</td>
</tr>
<tr>
<td width="500">
</td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?