📄 showview.asp

📁 书店的管理系统。不错的一个源程序。提供给大家。

💻 ASP

字号:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
XHBID=Request.querystring("XHBID")

set con=server.createobject("ADODB.Connection")
con.open Application("str_con")

set res6=server.createobject("ADODB.Recordset")
set res6.ActiveConnection = con
res6.source="select grade,review_title,review,log_name,write_time from book_review where XHBID="&XHBID
res6.cursorlocation=3
res6.Open

if res6.recordcount>0 then
	For i = 1 to res6.recordcount
%>
		<p>
		<table WIDTH="75%" ALIGN="center" BORDER="0" CELLSPACING="1" CELLPADDING="1" style="FONT-SIZE: 9pt">
		<tr>
		
		<td>评论等级：
		<%	select case res6("grade")
				case 2
					%><img src="star2.jpg" WIDTH="15" HEIGHT="13"><%
				case 4
					%><img src="star4.jpg" WIDTH="29" HEIGHT="13"><%
				case 6
					%><img src="star6.jpg" WIDTH="39" HEIGHT="13"><%
				case 8
					%><img src="star8.jpg" WIDTH="42" HEIGHT="13"><%
				case 10
					%><img src="star10.jpg" WIDTH="56" HEIGHT="13"><%
			end select
		%>
		</td>
		
		<td>评论人：<%=res6("log_name")%></td>
		<td>评论时间：<%=res6("write_time")%></td>
		</tr>
		</table>

		<table WIDTH="75%" ALIGN="center" BORDER="0" CELLSPACING="1" CELLPADDING="1" style="FONT-SIZE: 9pt">
		<tr>
		<td ALIGN="left">评论标题：<%=res6("review_title")%></td>
		</tr>
		<tr>
		<td ALIGN="left" height="4"><%=res6("review")%></td>
		</tr>
		</table>

		</p>
<%
		res6.movenext
	next
end if 'res6.recordcount>0

res6.close
con.close
%>


</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -