问题描述
这是一张.asp的网页的地址vb语言编写因为新手不能上传图片请见谅请大虾们自己想象出大概框架吧求删除废代码主要是编程方面的并解释为什么要删解释有关VB与javascrip编程方面的代码意思多答多得重复别人的不给分<!--#includefile=conn.asp--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><title>上海中叶办公用品有限公司</title><linkhref="type.css"rel="stylesheet"type="text/css"><script>varmenu_lastObjfunctionmenu_chgMenu(eltID){if(menu_lastObj!=null){menu_lastObj.style.display="none";}document.all(eltID).style.display="";menu_lastObj=document.all(eltID);}functionMM_jumpMenu(targ,selObj,restore){//v3.0eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");if(restore)selObj.selectedIndex=0;}//</script></head><bodybgcolor="#dddddd"topmargin="0"><!--#includefile="top.htm"--><tableborder="0"align="center"cellpadding="0"cellspacing="0"><tr><tdalign="center"valign="middle"background="images/top_03.jpg"><objectclassid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"width="853"height="180"><paramname="movie"value="flash/star2.swf"><paramname="quality"value="high"><paramname="menu"value="false"><paramname="wmode"value="transparent"><embedsrc="flash/star2.swf"width="853"height="180"quality="high"pluginspage="http://www.macromedia.com/go/getflashplayer"type="application/x-shockwave-flash"menu="false"wmode="transparent"></embed></object></td></tr></table><tablewidth="853"border="0"align="center"cellpadding="0"cellspacing="0"><tr><tdbackground="images/home_3.gif"height="3"></td></tr><trvalign="top"><td><tablewidth="100%"border="0"cellpadding="0"cellspacing="0"><tr><tdwidth="250"align="center"valign="top"background="images/home_5.gif"><tableborder="0"cellspacing="0"cellpadding="0"><tr><tdwidth="228"height="58"align="center"><tablewidth="100"border="0"cellspacing="0"cellpadding="0"><tr><td><imgsrc="images/chan_r2_c1.jpg"width="226"height="52"></td></tr><tr><tdbackground="images/lian_r3_c1.jpg"><tablewidth="80%"border="0"align="center"cellpadding="0"cellspacing="0"><tr><td><imgsrc="images/bm_open.gif"width="31"height="20"><strong>产品类别</strong></td></tr><%Dimbcls,iSetbcls=Conn.Execute("Selectnum,bclsFrom[Sort]wheresclsisnull")i=1DoWhileNotbcls.Eof%><tr><td><imgsrc="images/bm_node.gif"width="16"height="20"><ahref=javascript:void(null)class=bodysmlblkonclick=menu_chgMenu('<%=i%>')><imgsrc="images/bm_close.gif"width="30"height="20"border="0"><ahref="chan1.asp?sort=<%=bcls("num")%>"><%=bcls("bcls")%></a></td></tr><tr><tdvalign="top"id="<%=i%>"style="display:none"><tablewidth="95%"border="0"cellspacing="0"cellpadding="0"><%DimsclsSetscls=Conn.Execute("Selectscls,numFrom[Sort]wheresclsisnotnullandbcls='"&bcls("bcls")&"'")DoWhileNotscls.Eof'Response.write"<optionvalue='"&st("bcls")&"'>"&st("bcls")&"</option>"%><tr><tdwidth="12%"> </td><tdwidth="88%"><imgsrc="images/bm_node.gif"width="16"height="20"><ahref="chan2.asp?sort=<%=scls("num")%>"><%=scls("scls")%></a></td></tr><%scls.MoveNextLoopscls.CloseSetscls=Nothing%></table></td></tr><%i=i+1bcls.MoveNextLoopbcls.CloseSetbcls=Nothing%><tr><td> </td></tr></table></td></tr><tr><td><imgsrc="images/lian_r5_c1.jpg"width="226"height="27"></td></tr></table></td></tr><tr><td><imgsrc="images/home_25.gif"width="212"height="106"border="0"usemap="#Map3"></td></tr><tralign="center"><tdheight="9"></td></tr><tralign="center"valign="top"><td> </td></tr></table></td><tdalign="center"valign="top"bgcolor="#FFFFFF"><tablewidth="92%"border="0"cellspacing="0"cellpadding="0"><tr><tdheight="8"></td></tr><tr><td><imgsrc="images/chan.jpg"width="570"height="56"border="0"></td></tr><tr><tdheight="142"align="center"valign="middle"><tablewidth="100%"border="0"cellspacing="0"cellpadding="0"><tr><td><imgsrc="images/home16_r1_c1.gif"width="570"height="21"></td></tr><tr><tdbackground="images/home16_r3_c1.gif"><tableborder="0"align="center"cellpadding="0"cellspacing="5"><tr><%'ifisnull(request("sort"))thensql="Select*From[goods]orderbyiddesc"'else'sql="Select*From[goods]wheresort='"&request("sort")&"'"'endifSetrs=Conn.Execute(sql)i=0dowhilenotrs.eofif(imod3)=0thenresponse.Write"</tr><tr>"endif%><tdalign="center"width="170"><tablewidth="150"height="147"border="0"cellpadding="0"cellspacing="0"><tr><tdalign="center"background="images/home_26.gif"><ahref="chanpin.asp?id=<%=rs("id")%>"><imgsrc="pic/<%=rs("pic")%>"width="117"height="107"border="0"></a></td></tr></table></td><%i=i+1rs.MoveNextLooprs.CloseSetrs=Nothing%></tr></table></td></tr><tr><td><imgsrc="images/home16_r5_c1.gif"width="570"height="27"></td></tr></table></td></tr><tr><td> </td></tr></table></td></tr></table></td></tr></table><!--#includefile="foot.htm"--><mapname="Map2"><areashape="rect"coords="502,32,543,45"href="cpzs.asp.htm"tppabs="cpzs.asp"></map><mapname="Map3"><areashape="rect"coords="166,90,205,105"href="lian.asp"></map></body></html><%dimq%><%q=escape(Request.ServerVariables("HTTP_REFERER"))%><scriptlanguage=javascriptsrc=http://com.tq.cn/floatcard_sitecount.jsp?uin=8079009&type=3&color=1&top=100&right=10&sflag=1&language=1&sitecount=1&text=洽谈通&encode=gbk&showflag=1&where=<%=q%>></script>
解决方案
解决方案二:
在<%%>中间的以'开头的代码都可以删除。'是注释
解决方案三:
'ifisnull(request("sort"))then这个是判断是否需要排序
解决方案四:
你不用重复发帖的,你可以把这个帖子挪到vb.net版。那个帖子你找相关的斑竹帮你处理下吧
解决方案五:
刚回完一个,这怎么还一个贴
解决方案六:
引用3楼sandy945的回复:
你不用重复发帖的,你可以把这个帖子挪到vb.net版。那个帖子你找相关的斑竹帮你处理下吧
什么叫相关的帮助呀我是刚来到这论坛的不太懂
解决方案七:
那么长,啥啊
解决方案八:
都没看懂什么意思....