show_comment.asp

来自「使用VFP工具开发的图书管理系统」· ASP 代码 · 共 47 行

ASP
47
字号
<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<link rel="stylesheet" type="text/css" href="xcss.css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body background="images/zapsmbknd.gif">
<%	
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	commentid = Request.QueryString("commentid")
	sql = "select commentid,username,imgname,title,settime,detail from bookcomment where commentid=" & commentid
	
	set rs = server.CreateObject("adodb.recordset")
	rs.Open sql,conn

	if rs.EOF then
		rs.Close
		set rs = nothing
		conn.Close
		set conn = nothing
		Response.Write "您找的文件不存在!"		
		Response.End
	end if

	while not rs.EOF
%>
<h3><img SRC="images/<%=rs("imgname")%>.gif" border="0">&nbsp;<%=rs("title")%></h3><hr>
<p><b>作者:</b><%=rs("username")%></p>
<p><b>发表时间:</b><%=rs("settime")%></p>
<p><b>评论全文</b></p>
<pre>  <%=rs("detail")%></pre>
<%
		rs.MoveNext
	wend
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>
</table>

</body>
</html>

⌨️ 快捷键说明

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