📄 price.asp

📁 功能最强大的ASP网站

💻 ASP

字号:

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/func.asp"-->
<%
set rsc=server.createobject("adodb.recordset")
sql="select * from userlevel where IsDefault='Y'"
	rsc.open sql,conn,1,1
if rsc.eof then
	response.write "价目表未设置好"
	response.end
end if
LevelCode = rsc("LevelCode")
	
%>

<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>价格表</title>
<link rel='stylesheet' type='text/css' href='inc/css.css'>
</head>
<body bgcolor='#ffffff' text='#000000' leftmargin='0' topmargin='0'>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=70% class='size09' align='center'>

<%
set rspc=server.createobject("adodb.recordset")
sql="select * from productClass order by listID "
	rspc.open sql,conn,1,1
do while not rspc.eof
%>

<tr><td class='color01' colspan='4' align='center' bgcolor='#efefef'><%=rspc("class")%></td></tr>
<%
set rsp=server.createobject("adodb.recordset")
	sql="select a.*,b.A as PriceA from product a  join productprice b on a.ID=b.PID where class='"&rspc("ID")&"' and status=1 and levelcode='"&LevelCode&"'  order by listID "
	rsp.open sql,conn,1,1
do while not rsp.eof
%>

<tr><td class='color01' width='25%' align='center'><%=rsp("name")%></td><td width='25%' align='center'><%=rsp("PriceA")%>元</td>
<%rsp.movenext
	if rsp.eof then
		response.write "<td>&nbsp;</td><td>&nbsp;</td><tr>"
		exit do
	end if
%>
<td class='color01' width='25%' align='center'><%=rsp("name")%></td><td width='25%' align='center'>  <%=rsp("PriceA")%>元</td></tr>
<%rsp.movenext
	if rsp.eof then
		exit do
	end if
	loop
	rsp.close
rspc.movenext
loop
set rsp=nothing
set rspc=nothing
%>
</table>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -