产品分类问题 - ASP技术论坛

问题点数：0 回复次数：0

产品分类问题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<html>
<head>
<title>产品销售</title>
<STYLE>
BODY {
SCROLLBAR-FACE-COLOR: #cccccc;
SCROLLBAR-HIGHLIGHT-COLOR: #fcfcfc;
SCROLLBAR-SHADOW-COLOR: #9fa4b5;
SCROLLBAR-3DLIGHT-COLOR: #9fa4b5;
SCROLLBAR-ARROW-COLOR: #0024fc;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #fcfcfc;
SCROLLBAR-BASE-COLOR: #fcfcfc
}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
<script type="text/JavaScript">
<!--
function mmLoadMenus() {
if (window.mm_menu_0416091501_0) return;
window.mm_menu_0416091501_0 = new Menu("root",76,20,"",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416091501_0.addMenuItem("公司简介","location='introduction.asp'");
mm_menu_0416091501_0.addMenuItem("创办历程","location='cblc.asp'");
mm_menu_0416091501_0.addMenuItem("企业文化","location='qywh.asp'");
mm_menu_0416091501_0.addMenuItem("企业荣誉","location='gsry.asp'");
mm_menu_0416091501_0.addMenuItem("战略目标","location='zlmb.asp'");
mm_menu_0416091501_0.hideOnMouseOut=true;
mm_menu_0416091501_0.bgColor='#555555';
mm_menu_0416091501_0.menuBorder=1;
mm_menu_0416091501_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416091501_0.menuBorderBgColor='#777777';

window.mm_menu_0416092156_0 = new Menu("root",76,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416092156_0.addMenuItem("行业新闻","location='pronews.asp'");
mm_menu_0416092156_0.addMenuItem("公司新闻","location='companynews.asp'");
mm_menu_0416092156_0.hideOnMouseOut=true;
mm_menu_0416092156_0.bgColor='#555555';
mm_menu_0416092156_0.menuBorder=1;
mm_menu_0416092156_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416092156_0.menuBorderBgColor='#777777';

window.mm_menu_0416092536_0 = new Menu("root",76,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416092536_0.addMenuItem("家电维修","location='weixiu.asp'");
mm_menu_0416092536_0.addMenuItem("监控报警","location='baojing.asp'");
mm_menu_0416092536_0.addMenuItem("公共广播","location='gbo.asp'");
mm_menu_0416092536_0.addMenuItem("空调安装","location='kongtiao.asp'");
mm_menu_0416092536_0.hideOnMouseOut=true;
mm_menu_0416092536_0.bgColor='#555555';
mm_menu_0416092536_0.menuBorder=1;
mm_menu_0416092536_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416092536_0.menuBorderBgColor='#777777';

window.mm_menu_0416092943_0 = new Menu("root",76,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416092943_0.addMenuItem("培训项目","location='trainingproject.asp'");
mm_menu_0416092943_0.addMenuItem("招生信息","location='zsxx.asp'");
mm_menu_0416092943_0.addMenuItem("就业前景","location='employment.asp'");
mm_menu_0416092943_0.hideOnMouseOut=true;
mm_menu_0416092943_0.bgColor='#555555';
mm_menu_0416092943_0.menuBorder=1;
mm_menu_0416092943_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416092943_0.menuBorderBgColor='#777777';

window.mm_menu_0416093410_0 = new Menu("root",76,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416093410_0.addMenuItem("黑色家电");
mm_menu_0416093410_0.addMenuItem("白色家电");
mm_menu_0416093410_0.addMenuItem("厨房家电");
mm_menu_0416093410_0.addMenuItem("功放影碟");
mm_menu_0416093410_0.hideOnMouseOut=true;
mm_menu_0416093410_0.bgColor='#555555';
mm_menu_0416093410_0.menuBorder=1;
mm_menu_0416093410_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416093410_0.menuBorderBgColor='#777777';

window.mm_menu_0416093924_0 = new Menu("root",89,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416093924_0.addMenuItem("加盟前言","location='jmqy.asp'");
mm_menu_0416093924_0.addMenuItem("加盟条件","location='jmtj.asp'");
mm_menu_0416093924_0.addMenuItem("加盟程序","location='jmcx.asp'");
mm_menu_0416093924_0.addMenuItem("标准化要求","location='yaoqiu.asp'");
mm_menu_0416093924_0.addMenuItem("权利和义务","location='yiwu.asp'");
mm_menu_0416093924_0.hideOnMouseOut=true;
mm_menu_0416093924_0.bgColor='#555555';
mm_menu_0416093924_0.menuBorder=1;
mm_menu_0416093924_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416093924_0.menuBorderBgColor='#777777';

window.mm_menu_0416094310_0 = new Menu("root",102,20,"宋体",12,"#000000","#FFFFFF","#99CCFF","#FF9900","left","middle",3,0,100,-5,7,true,false,false,0,true,false);
mm_menu_0416094310_0.addMenuItem("电子零件","location='diode.asp'");
mm_menu_0416094310_0.addMenuItem("电子产品套件","location='triode.asp'");
mm_menu_0416094310_0.addMenuItem("防盗报警套件","location='ecapacity.asp'");
mm_menu_0416094310_0.addMenuItem("组装电器","location='resustance.asp'");
mm_menu_0416094310_0.addMenuItem("影象教材","location='control.asp'");
mm_menu_0416094310_0.hideOnMouseOut=true;
mm_menu_0416094310_0.bgColor='#555555';
mm_menu_0416094310_0.menuBorder=1;
mm_menu_0416094310_0.menuLiteBgColor='#FFFFFF';
mm_menu_0416094310_0.menuBorderBgColor='#777777';

mm_menu_0416094310_0.writeMenus();
} // mmLoadMenus()

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript" src="mm_menu.js"></script>
</head>
<body bgcolor="#FFFFFF" onLoad="MM_preloadImages('../images/关于广仁1.jpg','../images/新闻中心1.jpg','../images/服务领域1.jpg','../images/教育投资1.jpg','../images/技术宝库1.jpg','../images/加盟信息1.jpg','../images/产品销售1.jpg','../images/给我留言1.jpg')">
<div id="Layer2">
<table width="734" height="35" border="0" cellspacing="1">
<tr>
<td><span class="STYLE2">产品展示：</span></td>
</tr>
</table>
<% '以上为包含数据库衔接文件
'--------------------------------------------查询开始数据库
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from products order by id desc ",conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
'------------------------------------------分页开始
if rs.recordcount=0 then
respose.write "没有数据"
else
rs.PageSize =2 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
If session("show_gcid")=" " Then session("show_gcid")="0"
If request.querystring("c")<>" " Then session("show_gcid")=request.querystring("c")
For i=1 To x
name=rs("name")
jiage=rs("jiage")
%>
<table width="733" height="153" border="0" cellspacing="1">
<%
sql=" select top " & (page*pagesize) & " * from goodclass,products where gdsid=goodsid "
If CInt(session ("show_gcid"))<>0 Then
sql=sql & " and goodsid= " & session ("show_gcid")
End If
sql=sql & " order by id "

Do While Not rs.eof
col=1
%>
<tr>
<%
Do While Not rs.eof And col<=4
%>
<td align="center" valign="top"><%response.Write "<a href=shangpxx.asp?ID="&rs("ID")&">"
if trim(rs("tupian"))<>"" then
response.Write "<img src="&trim(rs("tupian"))&" width=75 height=90 border=0 ></a>"
else
response.Write "暂无图片"
end If %></td>
</tr>
<tr>
<td align="center"><span class="STYLE1">名称：</span><%=rs("name")%><br/>
<span class="STYLE1">价格：<%=rs("jiage")%></span><br/>
<a href="mycart.asp?act=add&id=<%=rs("gdsid")%>" target="_blank"><img src="../images/addtocart.gif" width="100" height="26"../images/addtocart.gif"></a></td>
<%
col=col+1
rs.movenext
Loop

%>
</tr>

</table>
<%
call PageControl (iCount,maxpage,page,"border=0 align=center","")

Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next

Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )

if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if

if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if

Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "家商家信息" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>

<b/r>
</div>
<script language="JavaScript1.2">mmLoadMenus();</script>

<table id="__01" width="1001" height="701" border="0" cellpadding="0" cellspacing="0">

<tr>
<td colspan="4"><img src="../images/底片_01.gif" alt="" width="215" height="116" border="0" usemap="#Map"></td>
<td colspan="2" background="../images/底片_02.gif"> </td>
<td colspan="3" align="center" valign="top" background="../images/底片_03.gif"><table width="100%" height="61" border="0" cellspacing="0" class="ds">
<tr>
<td align="right" valign="middle" class="ds"><a href=# class="css1" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('www.gdgr.cn');"><span class="css1">设为首页</span>　</a></td>
</tr>
<tr>
<td align="right" valign="middle" class="css1"><a href="javascript:window.external.AddFavorite('http://www.gdgr.cn','广仁电器安装')" class="css1">加入收藏　</a></td>
</tr>
<tr>
<td align="right" valign="middle" class="ds"><span class="css1">联系我们</span>　</td>
</tr>
</table></td>
<td width="7"><img src="images/spacer.gif" width="1" height="116" alt=""></td>
<td width="7"> </td>
</tr>
<tr>
<td colspan="3"><img src="../images/底片_04.gif" alt="" width="186" height="49"></td>
<td colspan="4" align="right"><a href="introduction.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image19','','../images/关于广仁1.jpg',1)">　　 <img src="../images/关于广仁.jpg" name="Image19" width="77" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416091501_0,0,35,null,'Image19')" onMouseOut="MM_startTimeout();"></a><a href="news.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image20','','../images/新闻中心1.jpg',1)"><img src="../images/新闻中心.jpg" alt="新闻中心" name="Image20" width="77" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416092156_0,0,35,null,'Image20')" onMouseOut="MM_startTimeout();"></a><a href="weixiu.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image21','','../images/服务领域1.jpg',1)"><img src="../images/服务领域.jpg" alt="服务领域" name="Image21" width="76" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416092536_0,0,35,null,'Image21')" onMouseOut="MM_startTimeout();"></a><a href="trainingproject.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image22','','../images/教育投资1.jpg',1)"><img src="../images/教育投资.jpg" alt="教育投资" name="Image22" width="73" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416092943_0,0,35,null,'Image22')" onMouseOut="MM_startTimeout();"></a><a href="techonlogy.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image23','','../images/技术宝库1.jpg',1)"><img src="../images/技术宝库.jpg" alt="技术宝库" name="Image23" width="74" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416093410_0,-150,35,null,'Image23')" onMouseOut="MM_startTimeout();"></a><a href="jmqy.asp" onMouseOut="MM_swapImgRestore();MM_startTimeout();" onMouseOver="MM_swapImage('Image24','','../images/加盟信息1.jpg',1);MM_showMenu(window.mm_menu_0416093924_0,-300,35,null,'Image24')"><img src="../images/加盟信息.jpg" alt="加盟信息" name="Image24" width="76" height="30" border="0"></a><a href="product.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image25','','../images/产品销售1.jpg',1)"><img src="../images/产品销售.jpg" alt="产品销售" name="Image25" width="75" height="30" border="0" onMouseOver="MM_showMenu(window.mm_menu_0416094310_0,-400,35,null,'Image25')" onMouseOut="MM_startTimeout();"></a><a href="message.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image26','','../images/给我留言1.jpg',1)"><img src="../images/给我留言.jpg" alt="给我留言" name="Image26" width="72" height="30" border="0"></a></td>
<td colspan="2" background="../images/底片_06.gif"> </td>
<td><img src="images/spacer.gif" width="1" height="49" alt=""></td>
<td> </td>
</tr>
<tr>
<td width="30" height="35"> </td>
<td width="143"> </td>
<td colspan="6" background="../images/底片_09.gif"> </td>
<td width="41" rowspan="3"><img src="../images/底片_10.gif" alt="" width="41" height="398"></td>
<td rowspan="3"><img src="images/spacer.gif" width="1" height="398" alt=""></td>
<td> </td>
</tr>
<tr>
<td height="215" colspan="2" valign="top">
<% set rs=server.CreateObject("adodb.recordset")
sql="select * from goodclass"
rs.open sql,conn,1,1
while not rs.eof
%>
·<a href="product.asp?c=<%=rs("goodsid")%>"><%=rs("goodsname")%></a><br>
<br>
<%
rs.movenext
wend
rs.close
%>
<%
conn.close
set conn=nothing
%>
</td>
<td colspan="6" background="../images/底片_09.gif"> </td>
<td> </td>
</tr>
<tr>
<td height="150"> </td>
<td> </td>
<td colspan="6" background="../images/底片_09.gif"> </td>
<td> </td>
</tr>

<tr>
<td colspan="2" rowspan="2"> </td>
<td colspan="3" rowspan="2" align="center" valign="top" background="../images/底片_11.gif"><table width="657" height="115" border="0" align="center" cellspacing="0">
<tr>
<td height="70" valign="top"> </td>
</tr>
<tr>
<td valign="bottom"></td>
</tr>
</table></td>
<td colspan="4" rowspan="2" align="right" background="../images/底片_12.gif"><table width="95%" height="122" border="0" cellspacing="0">
<tr>
<td height="15" align="center" valign="top" class="css1">公司风采</td>
</tr>
<tr>
<td align="center" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="143" height="98">
<param name="flash_component" value="ImageViewer.swc">
<param name="movie" value="flash.swf">
<param name="quality" value="high">
<param name="FlashVars" value="flashlet={imageLinkTarget:'_blank',captionFont:'Verdana',titleFont:'Verdana',showControls:true,frameShow:true,slideDelay:5,captionSize:10,captionColor:#333333,titleSize:10,transitionsType:'Photo',titleColor:#333333,slideAutoPlay:true,imageURLs:['../images/002.jpg','../images/003.jpg','../images/004.jpg','../images/005.jpg','../images/006.jpg','../images/007.jpg','../images/008.jpg','../images/009.jpg','../images/010.jpg'],slideLoop:false,frameThickness:2,imageLinks:['http://macromedia.com/','http://macromedia.com/','http://macromedia.com/'],frameColor:#333333,bgColor:#FFFFFF,imageCaptions:[]}">
<embed src="flash.swf" width="143" height="98" quality="high" flashvars="flashlet={imageLinkTarget:'_blank',captionFont:'Verdana',titleFont:'Verdana',showControls:true,frameShow:true,slideDelay:5,captionSize:10,captionColor:#333333,titleSize:10,transitionsType:'Photo',titleColor:#333333,slideAutoPlay:true,imageURLs:['../images/002.jpg','../images/003.jpg','../images/004.jpg','../images/005.jpg','../images/006.jpg','../images/007.jpg','../images/008.jpg','../images/009.jpg','../images/010.jpg'],slideLoop:false,frameThickness:2,imageLinks:['http://macromedia.com/','http://macromedia.com/','http://macromedia.com/'],frameColor:#333333,bgColor:#FFFFFF,imageCaptions:[]}" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" flash_component="ImageViewer.swc"> </embed>
</object></td>
</tr>
</table></td>
<td><img src="images/spacer.gif" width="1" height="75" alt=""></td>
<td> </td>
</tr>
<tr>
<td background="../images/底片_13.gif"> </td>
<td><img src="images/spacer.gif" width="1" height="62" alt=""></td>
</tr>
<tr>
<td><img src="images/spacer.gif" width="30" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="143" height="1" alt=""></td>
<td width="13"><img src="images/spacer.gif" width="13" height="1" alt=""></td>
<td width="29"><img src="images/spacer.gif" width="29" height="1" alt=""></td>
<td width="630"><img src="images/spacer.gif" width="630" height="1" alt=""></td>
<td width="52"><img src="images/spacer.gif" width="52" height="1" alt=""></td>
<td width="53"><img src="images/spacer.gif" width="53" height="1" alt=""></td>
<td width="9"><img src="images/spacer.gif" width="9" height="1" alt=""></td>
<td><img src="images/spacer.gif" width="41" height="1" alt=""></td>
<td></td>
<td> </td>
</tr>
</table>

<map name="Map">
<area shape="rect" coords="6,72,129,131" href="index.asp" alt="">
</map>
</body>
</html>

调试出现下列问题
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/asp/wangye/product0.asp, line 270
Sub PageControl(iCount,pagecount,page,table_style,font_style)

既红色的那行

搜索更多相关主题的帖子: 分类　