三张网页 如何合并成一张

q379271395 2011-11-15 02:34:16
三张只有一点点代码不相同 我想合并成一张
第一张
<!--#include file = conn.asp-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上海中叶办公用品有限公司</title>
<link href="type.css" rel="stylesheet" type="text/css">
<script>

var menu_lastObj

function menu_chgMenu(eltID)
{
if(menu_lastObj != null)
{
menu_lastObj.style.display = "none";
}
document.all(eltID).style.display = "";
menu_lastObj = document.all(eltID);
}

function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//
</script>
</head>

<body bgcolor="#dddddd" topmargin="0">
<!--#include file="top.htm"--><table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="images/top_03.jpg">
<object classid="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">
<param name="movie" value="flash/star2.swf">
<param name="quality" value="high">
<param name="menu" value="false">
<param name="wmode" value="transparent">
<embed src="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>

<table width="853" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/home_3.gif" height="3"> </td>
</tr>
<tr valign="top">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="250" align="center" valign="top" background="images/home_5.gif">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="228" height="58" align="center"><table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/chan_r2_c1.jpg" width="226" height="52"></td>
</tr>
<tr>
<td background="images/lian_r3_c1.jpg"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/bm_open.gif" width="31" height="20"><strong>产品类别</strong></td>
</tr>
<%
Dim bcls,i
Set bcls=Conn.Execute("Select num,bcls From [Sort] where scls is null")
i=1
Do While Not bcls.Eof
%>
<tr>
<td><img src="images/bm_node.gif" width="16" height="20"><a href=javascript:void(null) class=bodysmlblk onclick=menu_chgMenu('<%=i%>')><img src="images/bm_close.gif" width="30" height="20" border="0"><a href="chan1.asp?sort=<%=bcls("num")%>"><%=bcls("bcls")%></a></td>
</tr>
<tr>
<td valign="top" id="<%=i%>" style="display:none">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<%
Dim scls
Set scls=Conn.Execute("Select scls,num From [Sort] where scls is not null and bcls='"&bcls("bcls")&"'")
Do While Not scls.Eof
' Response.write "<option value='" & st("bcls") & "'>" & st("bcls") & "</option>"
%>
<tr>
<td width="12%"> </td>
<td width="88%"><img src="images/bm_node.gif" width="16" height="20"><a href="chan2.asp?sort=<%=scls("num")%>"><%=scls("scls")%></a></td>
</tr>
<%
scls.MoveNext
Loop
scls.Close
Set scls=Nothing
%>
</table></td>
</tr>
<%
i=i+1
bcls.MoveNext
Loop
bcls.Close
Set bcls=Nothing
%>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/lian_r5_c1.jpg" width="226" height="27"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/home_25.gif" width="212" height="106" border="0" usemap="#Map3"></td>
</tr>
<tr align="center">
<td height="9"></td>
</tr>
<tr align="center" valign="top">
<td>  </td>
</tr>
</table>
</td>
<td align="center" valign="top" bgcolor="#FFFFFF">
<table width="92%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8"></td>
</tr>
<tr>
<td><img src="images/chan.jpg" width="570" height="56" border="0"></td>
</tr>
<tr>
<td height="142" align="center" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/home16_r1_c1.gif" width="570" height="21"></td>
</tr>
<tr>
<td background="images/home16_r3_c1.gif">
<table border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<%


sql="Select * From [goods] order by id desc"

Set rs=Conn.Execute(sql)
i=0
do while not rs.eof

if (i mod 3)= 0 then
response.Write "</tr><tr>"
end if
%>
%>
<td align="center" width="170">
<table width="150" height="147" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="images/home_26.gif">
<a href="chanpin.asp?id=<%=rs("id")%>">
<img src="pic/<%=rs("pic")%>" width="117" height="107" border="0"></a></td>
</tr>
</table></td>
<%
i=i+1
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</tr>
</table>
</td>
</tr>
<tr>
<td><img src="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> <!--#include file="foot.htm"-->
<map name="Map2">
<area shape="rect" coords="502,32,543,45" href="cpzs.asp.htm" tppabs="cpzs.asp">
</map>
<map name="Map3">
<area shape="rect" coords="166,90,205,105" href="lian.asp">
</map>
</body>
</html>
<%dim q%><%q=escape(Request.ServerVariables("HTTP_REFERER"))%><script language=javascript src=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>


第二张
...
<%
sql="Select * From [goods] where left(sort,2)='"&request("sort")&"'"
Set rs=Conn.Execute(sql)
i=0
do while not rs.eof

if (i mod 3)= 0 then
response.Write "</tr><tr>"
end if
%>
...

第三张
...
<%
sql="Select * From [goods] where sort='"&request("sort")&"'"
Set rs=Conn.Execute(sql)
i=0
do while not rs.eof

if (i mod 3)= 0 then
response.Write "</tr><tr>"
end if
%>
...


是不是用个IF语句 合并三个SQL请详细说明
'if isnull(request("sort")) then
sql="Select * From [goods] order by id desc"
'else
' sql="Select * From [goods] where sort='"&request("sort")&"'"
'end if
Set rs=Conn.Execute(sql)
i=0
do while not rs.eof

if (i mod 3)= 0 then
response.Write "</tr><tr>"
end if
%>

那第三张 怎么添加?
...全文
180 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
yessanya 2011-11-17
  • 打赏
  • 举报
 回复
用div的方式可以实现，类似于call
<SCRIPT>
numTotal=2;
scores[1]='KB1';
scores[2]='KB1';
scores[3]='KB2';
</SCRIPT>
<DIV class="child" id="KB1Child">
<A onclick="expandIt('KB1'); return false" href="menu1.htm#">
q379271395 2011-11-16
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 hefeng_aspnet 的回复:]

你可以通过参数或标识实现

例如：
if sign=1 then
response.Write "ok"
elseif sign=2 then
response.Write "aa"
else
response.Write "bb"
end if
[/Quote]
那添加标示 在别的网页如何判断 调用哪个标示？ 请举个例子
不好意思 我是新手不太懂
小伙真帅 2011-11-16
  • 打赏
  • 举报
 回复
这么跟你说吧。这个页面可以这么写

<%
Dim Action

Action = Request.queryString("Action")

Select Case LCase(Action)
Case "add" : AddInfo
Case "del" : DelInfo
End Select

'这里执行添加信息的代码。
Sub AddInfo

End Sub

'这里是删除的操作。以上两者互不影响的。不管你是从几个表里面读数据。都无所谓的。
Sub DelInfo

End Sub
%>

或者说你是从不同的数据库里面读数据都可以。每次传递的参数不同。执行的内容不一样。显示的页面就不一样了。
q379271395 2011-11-15
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 xiaoqin1999 的回复:]

帮顶了,
又遇到了像我一样的小菜了
[/Quote]
恩恩 一起学习
q379271395 2011-11-15
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 ccppvv 的回复:]

你贴这么多代码在这里。肯定没有人会看的。就更加没有人会回复了。

其实不管你有多少代码。只要你想。都可以放到一个页面上去的。只是调用的时候带的参数不一样罢了。
你要是想实现的话也是可以的。只看是怎么整合方便点罢了。

你还是把你的思路说出来，你要实现什么效果。要怎么整合。然后我们再来告诉你怎么操作。
否则的话。我是没这个兴趣来看这么长的代码的。
[/Quote]
首先谢谢你提醒 我以后提问题时会注意了

其次 我的目的就是想让三张网页中的三个数据库传入

sql="Select * From [goods] order by id desc"
sql="Select * From [goods] where left(sort,2)='"&request("sort")&"'"
sql="Select * From [goods] where sort='"&request("sort")&"'"
在一张网页上可以实现 并且可以区分
我的思想是if isnull(request("sort")) then
ifisnull(request("sort")) then
sql="Select * From [goods] order by id desc"
else
sql="Select * From [goods] where sort='"&request("sort")&"'"
end if
但是这样并不一定对 而且我要三张一起合并 这样做只能合并两张
请详细讲下 我是新手 刚学asp 是那种刚了解ASP的默认脚本是vbscript的那种新手
还有如果有什么asp方面可以学的书籍或者网站推荐下
xiaoqin1999 2011-11-15
  • 打赏
  • 举报
 回复
帮顶了,
又遇到了像我一样的小菜了
csdn_aspnet 2011-11-15
  • 打赏
  • 举报
 回复
你可以通过参数或标识实现

例如：
if sign=1 then
response.Write "ok"
elseif sign=2 then
response.Write "aa"
else
response.Write "bb"
end if
小伙真帅 2011-11-15
  • 打赏
  • 举报
 回复
你贴这么多代码在这里。肯定没有人会看的。就更加没有人会回复了。

其实不管你有多少代码。只要你想。都可以放到一个页面上去的。只是调用的时候带的参数不一样罢了。
你要是想实现的话也是可以的。只看是怎么整合方便点罢了。

你还是把你的思路说出来，你要实现什么效果。要怎么整合。然后我们再来告诉你怎么操作。
否则的话。我是没这个兴趣来看这么长的代码的。
PDF页面合并器 - 合并多页PDF成一页
它允许您在合并页面上设置页面数量，因此您可以将每2、4或更多页面合并成一页。 这个出色的实用软件还使您能够自定义输出页面尺寸。除了标准A4纸张大小，PDF页面合并器已经预设了30多种常用纸张尺寸。 通过PDF页面...
CHM merge ，chm 合成（真正合成）,chm 链接合成,免安装
.可以合成多个chm，无需... CHM Merge 支持多层次合并，合并后生成的 CHM 文件依然可以被再次合并。 CHM Merge 还能将各种 HTML 网页文件 (*.htm *.html 等 ) 编译为便于管理阅读的 CHM 帮助文件。 该软件为免费软件。
搞定系列：yolox检测封装成类调用
本课程主要核心是将Yolox框架封装成一个类，方便调用或者集成开发以及集成部署。通过本课程您将收获一下知识： （1）了解Yolox框架检测基本流程； （2）掌握目标检测封装类大体思路； （3）学会Yolox封装函数以测试...
文本文件合并工具
文本文件合并工具，用于将多网页文字合并成一个TXT
维棠网页视频下载器（V1.3.4.1)
很好用的网页视频下载器，下载后如果有多个视频，能自动合并成一个文件。
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章