在这个页面里怎么样插入对联代码啊？我就是想在这个页里面插入对联代码的，可插来插去都不显示。
所以请求各位帮个忙。
代码如下：
<!--#include file="conn.asp"-->
<!--#include file="config.asp" -->
<!--#include file="Sql.Asp" -->
<!--#include file="cms86_sql.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=cms86_home%></title>
<meta name="keywords" content="<%=cms86_keywords%>" />
<meta name="description" content="<%=cms86_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp" -->
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="220" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?信息中心</td>
</tr>
<tr>
<td height="60" bgcolor="#EFFAFE"><div class="lb"><ul><%=cms86_News_fl_list%></ul></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?关于我们</td>
</tr>
<tr>
<td height="140" bgcolor="#EFFAFE"><div class="lb"><ul><%=cms86_pgxs_list%></ul></div></td>
</tr>
</table></td>
<td width="480" valign="top"><table width="470" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EFFAFE">
<tr>
<td height="25">?关于靓鑫</td>
</tr>
<tr>
<td height="225" class="pic"><div style="margin:8px; line-height:25px;align="left"><div style="width:160px;height:130px;float:left;"><script src=/adfile/ad9.js></script></div> <%
set rs=server.createobject("adodb.recordset")
exec="select * from pg where id=1 order by id desc " 'ID=1为单页分类ID
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.Write(" 暂无记录 !")
end if
response.Write(""&InterceptString(rs("body"),indexabout)&"......")
rs.close
set rs=nothing
%></div></td>
</tr>
</table></td>
<td width="280" height="250" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?会员中心</td>
</tr>
<tr>
<td height="100" bgcolor="#EFFAFE"><div style="text-align:center; line-height:24px"><%=cms86_login%></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?企业文化</td>
</tr>
<tr>
<td height="100" bgcolor="#EFFAFE"><marquee direction="up" height="100" onMouseOut="this.start()" onMouseOver="this.stop()" scrollAmount="1" scrollDelay="1"><div class="gg"><ul>企业文化</ul></div></marquee></td>
</tr>
</table></td>
</tr>
</table>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0" style="margin:3px 0;">
<tr>
<td valign="top"><table width="696" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?产品展示</td>
</tr>
<tr>
<td height="120" bgcolor="#EFFAFE" >
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin:5px auto" class="pic">
<tr>
<td>
<%
set tuijian=server.createobject("adodb.recordset")
exec="select top "&config("sytuijianproducts")&" * from [products] where tuijian=1 order by id desc "
tuijian.open exec,conn,1,1
if tuijian.eof and tuijian.bof then
response.Write(" 暂无推荐产品 !")
end if
%>
<DIV id=demo style="OVERFLOW: hidden; WIDTH: 680px; align: center">
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD id=marquePic1 vAlign=top>
<TABLE height=130 cellSpacing=0 cellPadding=0 width=660 border=0>
<TBODY>
<TR>
<TD align=middle width=103><table border="0" cellspacing="0" cellpadding="0">
<tr>
<%
dim ii
ii=1
do while not tuijian.eof
%>
<td>
<table width="100%" border="0" cellpadding="5" cellspacing="1">
<tr>
<td width="104"><a href="ShowProducts.asp?id=<%=tuijian("id")%>" class="img" title="<%=tuijian("title")%>"><img src="<%=tuijian("img")%>" width="120" height="100" /></a></td>
</tr>
<tr>
<td><div align="center"><a href="ShowProducts.asp?id=<%=tuijian("id")%>"><%=left(tuijian("title"),10)%></a></div></td>
</tr>
</table> </td>
<%
if ii mod 10 =0 then
response.Write "<tr>"
end if
ii=ii+1
tuijian.movenext
loop
%>
</tr>
</table></TD></TR>
</TBODY></TABLE></TD>
<TD id=marquePic2 vAlign=top></TD></TR></TBODY></TABLE></DIV><SCRIPT type=text/javascript>
var speed=30
marquePic2.innerHTML=marquePic1.innerHTML
function Marquee(){
if(demo.scrollLeft>=marquePic1.scrollWidth){
demo.scrollLeft=0
}else{
demo.scrollLeft++
}}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</SCRIPT></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="696" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?资讯中心</td>
</tr>
<tr>
<td height="120" bgcolor="#EFFAFE"><div class="news"><%
set news=server.createobject("adodb.recordset")
exec="select top "&config("synews")&" * from [news] order by id desc "
news.open exec,conn,1,1
if news.eof and news.bof then
response.Write(" 暂无新闻 !")
end if
%>
<ul>
<%
i=1
do while not news.eof
dim url,color
if IsNull(news("url")) or trim(news("url")&"")="" then
url="ShowNews.asp?id="&news("id")&""
else
url=""&news("url")&""
end if
if IsNull(news("color")) or trim(news("color")&"")="" then
color="#000000"
else
color=""&news("color")&""
end if
%>
<li>?<a href="<%=url%>" style="color:<%=color%>; font-size:12px"><%=InterceptString(news("title"),28)%></a> (<%=right("0"&month(news("data")),2)%>-<%=right("0"&day(news("data")),2)%>)</li>
<%
if i mod 2 =0 then
response.Write ""
end if
i=i+1
news.movenext
loop
news.close
set news=nothing
%></ul></div></td>
</tr>
</table>
<td width="280" height="290" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?产品类别</td>
</tr>
<tr>
<td height="120" bgcolor="#EFFAFE"><div class="lb"><ul><%=cms86_products_bigclass%></ul></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#9DE0F9">?联系我们</td>
</tr>
<tr>
<td height="120" bgcolor="#EFFAFE"><div style="line-height:27px; margin:7px 0 8px 7px">
电话：<%=cms86_tel%><br />
传真：<%=cms86_fax%><br />
邮箱：<%=cms86_mail%><br />
地址：<%=cms86_dz%><br />
</div></td>
</tr>
</table></td>
</tr>
</table>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0" style="margin:3px 0;">
<tr>
<td width="23" align="center" valign="middle" bgcolor="#9DE0F9">友<br />
情<br />
链<br />
接</td>
<td width="957" height="84" valign="top" bgcolor="#EFFAFE"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div class="linkt"><%=cms86_link_text%></div></td>
</tr>
<tr>
<td><div class="linkp"><%=cms86_link_img%></div></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="foot.asp" -->
</body>
</html> |
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
使用道具 举报