📄 index.asp

📁 西亚电子购物系统

💻 ASP

字号:

<!--#include file="../conn/conn.asp"-->
<%
id=clng(request.querystring("id"))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From sia_news where id="&id,conn,3,3

	rs("visits")=rs("visits")+1
	rs.update

%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("title")%></title>
<link href="../conn/css.css" rel="stylesheet" type="text/css">
</head>

<body><!--#include file="ubb.asp"-->
<table width="100%" height="100%" align="center" cellpadding="5" bgcolor="#ffffff">
  <tr> 
    <td valign="top"> <p> <font color="#999999">[本站<%=month(rs("date"))%>月<%=day(rs("date"))%>日消息]</font> 
        <%
      memo = rs("content")
memo=ubbcode(memo)
memo = Replace(memo, "&lt;br&gt;", "<br>")
memo = Replace(memo, chr(10), "<br>")
memo = Replace(memo, vbCrLf, "<br>")
Response.Write memo
%>
      </p>
      <p align="right"><font color="#999999">[该条新闻已被阅读了<%=rs("visits")%>人次]　　</font></p></td>
  </tr>
  <tr>
    <td height="20" align="center" valign="middle">【<a href="javascript:window.close()">关闭窗口</a>】</td>
  </tr>
</table>
<%rs.close%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -