教育系统应用

开发平台：

Delphi

show_comment.asp：源码内容

							<%@ 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>

						