listpinglun.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 32 行

ASP
32
字号
<!--#include file="conn.asp"-->
<html>
<head>
<title>浏览评论</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim pinglunid
    pinglunid=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
    rs.open "select pingluncontent,pinglundate from shop_pinglun where pinglunid="&pinglunid,conn,1,1
%>
<table width="98%" border="0" cellspacing="10" cellpadding="0">
  <tr> 
    <td bgcolor="#ece9d8" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=trim(rs("pingluncontent"))%></td>
  </tr>
  <tr>
    <td><div align="right">发表日期:<%=rs("pinglundate")%></div></td>
  </tr>
  <tr>
    <td height="16"><div align="center"><a href="javascript:window.close()">关闭窗口</a></div></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
%>

⌨️ 快捷键说明

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