标题:程序添加问题,急!求助!
只看楼主
酷酷的鱼
Rank: 1
等 级:新手上路
威 望:1
帖 子:472
专家分:0
注 册:2005-8-9
 问题点数:0 回复次数:1 
程序添加问题,急!求助!

<!--#include file="../include/opendb.asp"--> <HTML><HEAD><TITLE></TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <LINK href="sc.files/text.css" rel=stylesheet> <STYLE type=text/css> .formboder { BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #999999 1px solid; LINE-HEIGHT: 140%; BORDER-BOTTOM: #999999 1px solid } A:link { FONT-SIZE: 12px; COLOR: #000000; LINE-HEIGHT: 20px; TEXT-DECORATION: none } A:visited { COLOR: #000000; TEXT-DECORATION: none } A:hover { COLOR: #ee710c; TEXT-DECORATION: none } A:active { FONT-SIZE: 12px; COLOR: #888888; TEXT-DECORATION: none } .style1 { color: #333333; font-weight: bold; } .style2 {color: #000000} .style3 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } </STYLE>

<div align="center"> </div> <TABLE width=787 border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FF9900"> <TBODY> <TR> <TD valign="top" bgColor=#FF9900> <table width="775" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#FFFFFF"><iframe frameborder="0" marginheight="0" marginwidth="0" width="787" height="212" scrolling="no" src="../index/top.htm"></iframe></td> </tr> <tr> <td height="30" background="sc.files/Img226406346.gif"><div align="justify" class="style3">                     本埠车市 - 外埠车市 - 赛车图片 - 赛车看台 - 展会信息 - 车展风采 </div></td> </tr> </table><table width="775" height="277" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="277"><TABLE width="775" border=0 cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF"> <TBODY> <TR> <TD height=40 background=sc.files/daohang_bg.gif bgcolor="#FFFFFF"> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width=103 height="33" align=middle><IMG height=33 src="sc.files/car.gif" width=103></TD> <TD width=120><a href="http://www.pcauto.com.cn/playcar/racing/"><img height=33 src="sc.files/f1tt.gif" width=120 border=0></a></TD> <TD width="548" align=middle vAlign=bottom>&nbsp;</TD> </TR> </TBODY> </TABLE> <br> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR vAlign=top align=middle> <TD width="602" vAlign=top background=sc.files/line_bg3.gif bgcolor="#F7F8F9"><table width="100%" cellpadding=0 cellspacing=0 bgcolor="#F7F8F9"> <tbody> <tr> <td valign=bottom background=qc.files/hline.gif colspan=2 height=1></td> <td valign=bottom width=321 height=1></td> </tr> <tr> <td width="264" height=12 valign=bottom background="sc.files/news_titlebg_2.gif" bgcolor=#efefef> <div align=left><span class=th2> <strong>本埠新闻 </strong></span></div></td> <td height=12 colspan="2" valign=bottom background="sc.files/news_titlebg_2.gif" bgcolor=#efefef><span class=th2><strong>外埠新闻</strong></span></td> </tr> <tr> <td valign=bottom background=qc.files/hline.gif colspan=3 height=1></td> <td width=11 height=1 valign=bottom background="sc.files/news_titlebg_2.gif"></td> </tr> <tr> <td height=44 colspan=3 valign=top bgcolor="#F7F8F9"><table cellspacing=0 cellpadding=0 width="100%"> <tbody> <tr> <td height=22 colspan="2"><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> </a></span> <span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 12 newid,bt,time2 FROM xwtp where leibie='本阜新闻' ORDER BY newid desc" rs.Open strsql,conn,1 %> </a></span> <table border="0" cellspacing="0" cellpadding="0"> <%do while not RS.eof%><tr> <td width="25"><span class=th2><img height=18 src="sc.files/hjt1.gif" width=18></span></td> <td width="248"><span class=th2><%=mid(rs("bt"),1,12)%></span></td> </tr> <%rs.MoveNext%> </table></td> <td width=308 height=21><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7143" target=_blank> </a></span> <span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 12 newid,bt,time2 FROM xwtp where leibie='外阜新闻' ORDER BY newid desc" rs.Open strsql,conn,1 %> </a></span> <table border="0" cellspacing="0" cellpadding="0"> <%do while not RS.eof%> <tr> <td width="25"><span class=th2><img height=18 src="sc.files/hjt1.gif" width=18></span></td> <td width="248"><span class=th2><%=mid(rs("bt"),1,12)%></span></td> </tr> <%rs.MoveNext%> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td background=qc.files/hline.gif colspan=3 height=1></td> </tr> <tr> <td colspan="2" valign=bottom bgcolor=#F7F8F9><div align="right"><span class=th2> <a href="http://www.zzcar.net/news_more.asp?ttype=%D2%B5%BD%E7%B6%AF%CC%AC" target=_blank>更多...</a></span></div> <div align=right><span class=th2></span></div></td> <td valign=bottom bgcolor=#F7F8F9><div align="right"><span class=th2><a href="http://www.zzcar.net/news_more.asp?ttype=%D2%B5%BD%E7%B6%AF%CC%AC" target=_blank>更多...</a></span></div></td> </tr> </tbody> </table></TD> <TD width=11 background=sc.files/line_bgright.gif bgcolor="#F7F8F9">&nbsp;</TD> <TD width=170 background=sc.files/line_bg3.gif><p align="center"><span class="leftrighta"><IMG style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid" height=61 src="sc.files/20050531_pcjd02.jpg" width=150 border=0></span></p> <p align="center"><span class="leftrighta"><IMG style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid" height=60 src="sc.files/20050531_pcjd02.jpg" width=150 border=0></span></p> <p align="center"><span class="leftrighta"><IMG style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid" height=55 src="sc.files/20050531_pcjd02.jpg" width=150 border=0></span> <br> </p></TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE></td> </tr> </table><table width="775" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="338" height="265" valign="top"><TABLE width="140%" border=0 cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD class=font_menu3 vAlign=center width=91 background=sc.files/news_titlebg_1.gif height=27><TABLE width="100%" height="20" border=0 cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD align=middle width=16>&nbsp;</TD> <TD width="126"><span class="style1">赛车图片</span></TD> </TR> </TBODY> </TABLE></TD> <TD class=font_menu3 vAlign=center align=right width=334 background=sc.files/news_titlebg_2.gif>更多</TD> <TD class=font_menu3 vAlign=center width=38 background=sc.files/news_titlebg_3.gif>&nbsp;</TD> </TR> </TBODY> </TABLE> <SPAN class=sfont><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank><% '数据库连接页

connstr="DBQ="+server.mappath("../include/image.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr %> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 4 i FROM imgdate ORDER BY time desc" rs.Open strsql,conn,1 %> <%rs.pagesize=4 for i=1 to rs.pagesize if rs.bof or rs.eof then exit for end if

%> <a href="ly.asp?id=<%=rs("num")%>" target="_blank"><img src="kkk.asp?id=<%=rs("num")%>" width="165" height="130"></a> </span></SPAN> <SPAN class=sfont><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> </a><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> </a></span></SPAN> <% rs.movenext

next %></td> <td width="429" valign="top"><TABLE style="BORDER-COLLAPSE: collapse" borderColor=#cccccc cellSpacing=0 cellPadding=0 width="100%" bgColor=#f7f8f9 border=1> <TBODY> <TR> <TD height="257"> <TABLE cellSpacing=0 cellPadding=0 border=0> <TBODY> <TR> <TD class=font_menu3 vAlign=center width=126 background=sc.files/news_titlebg_1.gif height=27> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD align=middle width=23>&nbsp;</TD> <TD width="68"><span class="style1">赛事看台</span></TD> </TR> </TBODY> </TABLE></TD> <TD class=font_menu3 vAlign=center align=right width=420 background=sc.files/news_titlebg_2.gif>&nbsp;</TD> <TD class=font_menu3 vAlign=center width=36 background=sc.files/news_titlebg_3.gif>&nbsp;</TD> </TR> </TBODY> </TABLE> <TABLE width="97%" height="220" border=0 align=center cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD height="200" valign="top"> <SPAN class=sfont><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 12 newid,bt,time2 FROM xwtp where leibie='赛事看台' ORDER BY newid desc" rs.Open strsql,conn,1 %> </a></span> <span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> </a></span><BR> </SPAN> <table border="0" cellspacing="0" cellpadding="0"> <%do while not RS.eof%> <tr> <td width="25"><span class=sfont>·</span></td> <td width="248"><span class=sfont> <span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank><%=mid(rs("bt"),1,12)%></a></span> </span></td> </tr> <%rs.MoveNext%> </table> <SPAN class=sfont> </SPAN></TD> </TR> <TR align=right> <TD height="20">更多&gt;&gt; </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE></td> </tr> </table> <table width="775" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="768" height="12" bgcolor="#E8E8E8"><div align="left"> <TABLE cellSpacing=0 cellPadding=0 width=775 align=center bgColor=#ffffff border=0> <TBODY> <TR> <TD width=197 height="191" valign="top"><TABLE cellSpacing=0 cellPadding=0 width="80%" align=left border=0> <TBODY> <TR> <TD><TABLE width="197" border=0 cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD class=font_menu3 vAlign=center width=79 background=sc.files/news_titlebg_1.gif height=27> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD align=middle width=35>&nbsp;</TD> <TD width="109"><strong>展会信息</strong></TD> </TR> </TBODY> </TABLE></TD> <TD class=font_menu3 vAlign=center align=right width=85 background=sc.files/news_titlebg_2.gif>&nbsp;</TD> <TD class=font_menu3 vAlign=center width=33 background=sc.files/news_titlebg_3.gif>&nbsp;</TD> </TR> </TBODY> </TABLE></TD> </TR> <TR> <TD height=83 vAlign=top bgcolor="#F7F8F9"><p class="sfont"><span class="style2"><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 5 newid,bt,time2 FROM xwtp where leibie='展会信息' ORDER BY newid desc" rs.Open strsql,conn,1 %> </a></span><font color=#cccccc><font color=#cccccc></font></font><font color=#cccccc><font color=#cccccc></font></font></span></p> <table border="0" cellspacing="0" cellpadding="0"> <%do while not RS.eof%> <tr> <td width="23"><span class="sfont"><span class="style2">·</span></span></td> <td width="165"><span class="sfont"><span class="style2"><font color=#cccccc><font color=#cccccc><span class=th2><%=mid(rs("bt"),1,5)%></span></font></font></span></span></td> </tr> <%rs.MoveNext%> </table> <p class="sfont"><span class="style2"> </span></p> <p class="sfont"><FONT color=#cccccc><FONT color=#cccccc><br> </FONT></FONT></p></TD> </TR> <TR> <TD height=24 vAlign=top bgcolor="#F7F8F9"><div align="right"> <br> &gt;&gt;更多</div></TD> </TR> </TBODY> </TABLE></TD> <TD width=6 vAlign=top background="sc.files/line_bgright.gif" bgcolor="#E7E7E7">&nbsp; </TD> <TD width="520" rowSpan=2 vAlign=top bgcolor="#E8E8E8"><div align="left"></div> <TABLE width=520 height="177" border=0 align=right cellPadding=0 cellSpacing=0 bgColor=#ffffff> <TBODY> <TR> <TD width=520 height="163" valign="top"> <div align="left"> <SPAN class=sfont><span class=th2><a href="http://www.zzcar.net/xw/imagesnew.asp?id=7144" target=_blank> <%Set rs = Server.CreateObject("ADODB.Recordset") strsql="SELECT top 12 i FROM imgdate ORDER BY time desc" rs.Open strsql,conn,1 %> <%rs.pagesize=4 for i=1 to rs.pagesize if rs.bof or rs.eof then exit for end if

%> <a href="ly.asp?id=<%=rs("num")%>" target="_blank"> <img src="kkk.asp?id=<%=rs("num")%>" width="130" height="160"></a> </span></SPAN> <%

rs.movenext next %> </div></TD> </TR> <TR> <TD height="13" valign="top"><div align="right">&gt;&gt;更多</div></TD> </TR> </TBODY> </TABLE></TD> <TD width="60" rowSpan=2 vAlign=top bgcolor="#E8E8E8"><img height=161 alt=香车美女-太平洋汽车网-汽车模特|西方美女|赛车美女 src="sc.files/bian.gif" width=40></TD> </TR> </TBODY> </TABLE> </div></td> </tr> </table></TD></TR> </TBODY> </TABLE> <table width="787" height="100" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><iframe frameborder="0" marginheight="0" marginwidth="0" width="787" height="110" scrolling="no" src="../index/bottom.htm"></iframe></td> </tr> </table> 这是一个网页文件,我往里面添加相应的文字程序,和图片程序,调试不出来,请高人指点。

搜索更多相关主题的帖子: content include file 
2005-08-15 09:36
酷酷的鱼
Rank: 1
等 级:新手上路
威 望:1
帖 子:472
专家分:0
注 册:2005-8-9
得分:0 

上述文件的图片程序为: <!--#include file="conn.asp"--> <% '相片浏览页 dim rs dim i dim pageno dim qq dim sql

set rs=server.CreateObject("adodb.recordset") sql="SELECT * FROM imgdata order by num desc" rs.Open sql,conn,3,1

RS.pagesize=12 ye=rs.pagecount page=request("page") if page="" then pageno=1 else pageno=page end if rs.absolutepage=pageno %>

<html>

<head>

<title>相片浏览页</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css"> <!-- a:link { color: #FFFFFF; } --> </style> </head>

<body bgcolor="#3399FF">

<table width="713" height="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#999999"> <tr> <td valign="top" width="713"> <% for i=1 to rs.pagesize if rs.bof or rs.eof then exit for end if

%> <a href="ly.asp?id=<%=rs("num")%>" target="_blank"> <img src="kkk.asp?id=<%=rs("num")%>" width="150" height="120"></a>&nbsp;&nbsp; <% rs.movenext

next

%>

</td></tr></table> <% for i=1 to rs.pagecount %> <a href=index.asp?page=<%=i%> target="_self"><%=i%></a> <%next

rs.close conn.close %> <center> <table border="0" cellpadding="0" cellspacing="0" width="748" height="27" > <tr> <td width="748" height="27" align="center"> <hr> <font color="#666699" size="2"> <b><a href="up.asp" target="_self"><font color=#ffffff>上传相片</font></a></b></font> </td> </tr> </table> </center> <%call eenndd%> </body>

</html>


2005-08-15 09:39



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-25153-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042509 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved