📄 price.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%
'嵌入文件“conn_CompMarket.asp”，其中储存了连接CompMarket数据库所需的信息，其中定义的变量包括了：
'Dim dcnCompMarket 'As ADODB.Connection Object
'Dim rsCompMarket 'As ADODB.Recordset Object
'Dim dsn 'Name of the DSN source
'Dim uid,pwd 'User ID and password to login
'Dim rsSource 'Name of the data source
'Dim rsSQL 'The SQL sentence to produce the recordset
'上述变量中，rsSource/rsSQL/rsCompMarket需在当前文件中指定
'通过使用css样式表可以实现精确的排版控制
'这里主要是定义了几种字体，以及前景色和背景色
'动态生成表格时，如果当前单元格内容为空，此单元格就不显示，整个表格显得不美观
'因此在每个单元格的内容最后都加上“<br />”或者“ ”，以确保单元格内容不为空
'和“<br />”相比，使用“ ”可以避免从表格拷贝内容的时候一行变成多行的现象
'用JavaScript实现了下拉菜单功能(直接点击菜单项既可跳转，不像表单那样还需要提交)
%>
<!-- #include file="conn_CompMarket.asp" -->
<!-- #include file="adovbs.inc" -->
<%
Dim collItem '储存当前处理的数据项
Dim vType '控制当前查询的内容范围
Dim vSelected '储存查询的内容范围
Dim menuOrder '控制当前查询的排序方式
Dim vOrder '储存查询的排序方式
Dim strSearch '储存搜索关键字
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>北京·中关村·CPU/内存/硬盘·每日报价</title>
<style type="text/css">
<!--
@import url("common.css");
.style2 {font-size: 12}
.style3 {
font-size: 16px;
font-weight: bold;
}
.style4 {font-size: 14px}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<%
'设置当前查询的内容范围
vType=request.queryString("vType")
strSearch=request.queryString("search")
'注意到用于和搜索值进行匹配的字符串为“品牌+' '+型号”
'因为“品牌”和“型号”都是nvarchar类型的变量，因此应该用“+”运算符进行连接
if request.form("textfield")<>"" then
strSearch=request.form("textfield")
vType="search"
end if
Select Case vType
case "all"
vSelected="((分类='内存') or (分类='CPU') or (分类='硬盘') or (分类='内存 笔记本') or (分类='硬盘 笔记本'))"
case "CPU"
vSelected="(分类='CPU')"
case "MEM"
vSelected="((分类='内存') or (分类='内存 笔记本'))"
case "HD"
vSelected="((分类='硬盘') or (分类='硬盘 笔记本'))"
case "notebook"
vSelected="((分类='内存 笔记本') or (分类='硬盘 笔记本'))"
case "search"
vSelected="((品牌+' '+型号='" & strSearch & "')" & _
"or(品牌+' '+型号 like" & " '" & strSearch & "%')" & _
"or(品牌+' '+型号 like" & " '%" & strSearch & "%')" & _
"or(品牌+' '+型号 like" & " '%" & strSearch & "'))"
case else
vSelected="((分类='内存') or (分类='CPU') or (分类='硬盘') or (分类='内存 笔记本') or (分类='硬盘 笔记本'))"
End Select
'设置当前查询的排序方式
menuOrder=request.queryString("menuOrder")
Select Case menuOrder
case "type"
vOrder="分类,品牌,型号;"
case "price"
vOrder="分类,零售价;"
case else
vOrder="分类,品牌,型号;"
End Select
'设置当前查询所要操作的表和相应的SQL语句
rsSource="Hardware"
rsSQL="select * from Hardware where "&vSelected&" order by "&vOrder
'建立记录集对象，开始查询
set rsCompMarket=Server.CreateObject("ADODB.Recordset")
With rsCompMarket
.Source=rsSource
.ActiveConnection=dcnCompMarket
.CursorType=adOpenDynamic
.LockType=adLockOptimistic
.Open rsSQL
End With
%>
<table width="800" border="0" align="center">
<tr>
<td colspan="3" align="center" valign="middle" nowrap><table width="100%" cellpadding="5" cellspacing="1" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF" class="e"><p align="center" class="style3">北京·中关村·CPU/内存/硬盘·每日报价</p>
<ul>
<li> 下述报价采集自北京中关村，价格信息由专业代理提供，型号说明则根据实际产品和网上信息整理而来</li>
<li>在时间允许的情况下，每天的报价采集和更新在1:00pm前完成，必要时可直接联系010-82667052</li>
<li>下述报价仅供参考，以卖场报价为准，注意鉴别假货，相关信息请关注<a href="http://www.newsmth.org" target="_blank">水木社区BBS</a>及<a href="http://www.qbclub.com.cn" target="_blank">清北DIY俱乐部</a>主页</li>
<li>如果发现页面中的错误或者有相关建议意见，请联系<a href="mailto:chinakr@sina.com">chinakr</a>，我们将表示物质和精神上的感谢</li>
</ul></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3" align="center" valign="middle" nowrap> </td>
</tr>
<form method="post" action="price.asp?vType=<% =vType %>&menuOrder=<% =menuOrder %>">
<tr>
<td width="335" align="center" valign="middle" nowrap><span class="style4">
[<a href="price.asp?vType=all&menuOrder=<% =menuOrder %>">全部</a>]
[<a href="price.asp?vType=CPU&menuOrder=<% =menuOrder %>">CPU</a>]
[<a href="price.asp?vType=MEM&menuOrder=<% =menuOrder %>">内存</a>]
[<a href="price.asp?vType=HD&menuOrder=<% =menuOrder %>">硬盘</a>]
[<a href="price.asp?vType=notebook&menuOrder=<% =menuOrder %>">笔记本配件</a>]
</span></td>
<td width="226" valign="middle" nowrap><span class="style2"><strong>改变显示顺序</strong>
<select name="menuOrder" onChange="MM_jumpMenu('parent',this,0)">
<option>请选择...</option>
<option value="price.asp?vType=<% =vType %>&menuOrder=type&search=<% =strSearch %>">按型号排序</option>
<option value="price.asp?vType=<% =vType %>&menuOrder=price&search=<% =strSearch %>">按价格排序</option>
</select>
</span></td>
<td width="227" valign="middle" nowrap>型号
<input name="textfield" type="text" size="10">
<input type="submit" name="Submit" value="搜索"></td>
</tr>
</form>
<tr>
<td colspan="3">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
<tr class="e"><font size="-1">
<td width="100" align="center"><b>类别</b></td>
<td align="center"><b>型号</b></td>
<td align="center"><b>价格</b></td>
<td align="center"><b>说明</b></td>
</font>
</tr>
<%
'显示查询的结果
Do While NOT rsCompMarket.EOF
Response.Write("<tr class=f><td class=e align=center>" & _
rsCompMarket.Fields("分类") & " </td><td>" & _
rsCompMarket.Fields("品牌") & " " & _
rsCompMarket.Fields("型号") & " </td><td align=right>" & _
rsCompMarket.Fields("零售价") & " </td><td>" & _
rsCompMarket.Fields("说明") & " </td></tr>")
rsCompMarket.MoveNext
Loop
'查询结束后释放记录集对象和连接对象
Set rsCompMarket=Nothing
Set dcnCompMarket=Nothing
%>
</table>
</td>
</tr>
<tr>
<td colspan="3"><div align="center">
<p>
<strong>版权所有 © 清北DIY俱乐部 2002-2005 </strong><br>
<a href="login.asp">管理进入</a></p>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -