<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<!--#include file="inc/conn.asp"-->
<%id=Trim(request.QueryString("id"))
if id<>"" then
if not isnumeric(id) then
response.Redirect("/")
end if
end if
bigclassid=trim(request.QueryString("bigclassid"))
if bigclassid<>"" then
if not isnumeric(bigclassid) then
response.Redirect("/")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass_new where bigclassid="&bigclassid&"",conn,1,1
bigclassname=rs("bigclassname")
rs.close
end if
newsid=Trim(request.QueryString("newsid"))
if newsid<>"" then
if not isnumeric(newsid) then
response.Redirect("/")
end if
end if
ggid=Trim(request.QueryString("ggid"))
if ggid<>"" then
if not isnumeric(ggid) then
response.Redirect("/")
end if
end if
pid=Trim(request.QueryString("pid"))
if pid<>"" then
if not isnumeric(pid) then
response.Redirect("/")
end if
set hitsrs=server.createobject("adodb.recordset")
hitssql="select hits from product where ArticleID="&pid&""
hitsrs.open hitssql,conn,1,3
conn.execute "update product set hits=hits+1 where ArticleID="&pid&""
end if
bigproclassid=Trim(request.QueryString("bigproclassid"))
if bigproclassid<>"" then
if not isnumeric(bigproclassid) then
response.Redirect("/")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bigclass where bigclassid="&bigproclassid&"",conn,1,1
bigclassname=rs("bigclassname")
rs.close
end if
smallproclassid=Trim(request.QueryString("smallproclassid"))
if smallproclassid<>"" then
if not isnumeric(smallproclassid) then
response.Redirect("/")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where smallclassid="&smallproclassid&"",conn,1,1
bigclassname=rs("bigclassname")
smallclassname=rs("smallclassname")
rs.close
end if
Set rscolumns = Server.CreateObject("ADODB.Recordset")
sqlcolumns="select * from columns where id="&id&""
rscolumns.open sqlcolumns,conn,1,1
title=rscolumns("title")
columns=rscolumns("columns")
content=rscolumns("content")
content
rscolumns.close%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<title>晨钟课《崇高的恩召》目录点击每一天提供每日灵修的阅读资料-现代真理宝藏></title>
<meta name="Robots" content="现代真理宝藏" />
<meta name="Keywords" content="<真理宝藏，现代真理，现代真理书籍，预言之灵，怀著>" />
<meta name="Description" content="<真理宝藏，现代真理，现代真理书籍，预言之灵，怀著>" />
<meta name="googlebot" content="真理宝藏，现代真理，现代真理书籍，预言之灵，怀著" />
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
font-size:12px;
background-image:url(images/nbg.jpg);
background-position:center;
background-repeat:repeat-y;
}
.STYLE1 {
font-family: "SimSun";
color: #6e0201;
font-weight: bold;
text-decoration:none;
}
.STYLE1 a{
font-family: "SimSun";
color: #6e0201;
font-weight: bold;
text-decoration:none;
}
.STYLE1 a:hover{
font-family: "SimSun";
color: #6e0201;
font-weight: bold;
text-decoration:underline;
}
-->
</style>
<link href="css/lanrentuku.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript" src="js/jquery-1.4.2.js"></script>
<script type="text/JavaScript" src="js/slide.js"></script>
<script language="JavaScript">
function correctPNG() // correctly handle PNG transparency in Win IE 5.5 & 6.
{
var arVersion = navigator.appVersion.split("MSIE")
var version = parseFloat(arVersion[1])
if ((version >= 5.5) && (document.body.filters))
{
for(var j=0; j<document.images.length; j++)
{
var img = document.images[j]
var imgName = img.src.toUpperCase()
if (imgName.substring(imgName.length-3, imgName.length) == "PNG")
{
var imgID = (img.id) ? "id='" + img.id + "' " : ""
var imgClass = (img.className) ? "class='" + img.className + "' " : ""
var imgTitle = (img.title) ? "title='" + img.title + "' " : "title='" + img.alt + "' "
var imgStyle = "display:inline-block;" + img.style.cssText
if (img.align == "left") imgStyle = "float:left;" + imgStyle
if (img.align == "right") imgStyle = "float:right;" + imgStyle
if (img.parentElement.href) imgStyle = "cursor:hand;" + imgStyle
var strNewHTML = "<span " + imgID + imgClass + imgTitle
+ " style=\"" + "width:" + img.width + "px; height:" + img.height + "px;" + imgStyle + ";"
+ "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader"
+ "(src=\'" + img.src + "\', sizingMethod='scale');\"></span>"
img.outerHTML = strNewHTML
j = j-1
}
}
}
}
window.attachEvent("onload", correctPNG);
</script>
<style type="text/css">
<!--
.STYLE2 {
font-family: "SimSun";
font-size: 14px;
color: #000000;
font-weight: bold;
text-decoration:none;
}
.STYLE2 a{
font-family: "SimSun";
font-size: 14px;
color: #000000;
font-weight: bold;
text-decoration:none;
}
.STYLE2 a:hover{
font-family: "SimSun";
font-size: 14px;
color: #d90000;
font-weight: bold;
text-decoration:none;
}
.STYLE3 {
font-family: "SimSun";
font-size: 14px;
color: #000000;
text-decoration:none
}
.STYLE3 a{
font-family: "SimSun";
font-size: 14px;
color: #000000;
text-decoration:none
}
.STYLE4 {
font-family: "SimSun";
font-size: 14px;
color: #FFFFFF;
font-weight: bold;
}
.STYLE5 {
font-family: "SimSun";
color: #860104;
text-decoration:none;
}
.STYLE5 a{
font-family: "SimSun";
color: #860104;
text-decoration:none;
}
.STYLE5 a:hover{
font-family: "SimSun";
color: #000000;
text-decoration:none;
}
-->
</style>
</head>
<body>
<table width="960" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><table width="960" cellspacing="0" cellpadding="0">
<!--#include file="top.asp"-->
<tr>
<td height="10"></td>
</tr>
<tr>
<td valign="top">
<table width="960" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"><table width="714" cellspacing="0" cellpadding="0">
<tr>
<td height="42" background="images/t1-1.png" style="background-repeat:no-repeat"><table width="714" height="31" cellpadding="0" cellspacing="0">
<tr>
<td width="239" align="center"><span class="STYLE2">
现代真理</span></td>
<td width="473" align="center" class="STYLE2">现在的位置》》现代真理 》
<%if id=4 or id=5 then%>
<%=smallclassname%>
<%else%>
<%=title%>
<%end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#ffffff" style="border-left:#d9bb78 1px solid; border-right:#d9bb78 1px solid; padding-top:10px;">
<!--#include file="show.asp"-->
</td>
</tr>
</table></td>
<td align="right" valign="top">
<!--#include file="right3.asp"-->
</td>
</tr>
</table></td>
</tr>
<!--#include file="bottom.asp"-->
</table></td>
</tr>
</table>
</body>
</html>
<%
'显示二级类别下的所有产品
'id是栏目id
'smallproclassid是产品二级类别id
'bigclassname是产品一级类别名
'smallclassname是产品二级类别名
sub showproduct2(id,bigproclassid,smallproclassid,bigclassname,smallclassname)%>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="9" height="22" align="left" valign="top"> </td>
<td align="center" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top">
<table width="100%" cellspacing="0" cellpadding="0">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from product where bigclassname='"+bigclassname+"' and SmallClassName='"+smallclassname+"'",conn,1,1
do while not rs.eof%>
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="left" width="100%" class="STYLE2" height="50">
<a href="xiandai.asp?pid=<%=rs("articleid")%>&id=5"><span style="font-size:24px; color:#F00;" ><%=gotTopic(rs("title"),cint(30))%><br/></span></a>
<span style="font-size:12px; font-weight:normal; color:#666666;">点击数：<%=rs("hits")%> 发布时间：<%=rs("UpdateTime")%></span>
</td>
</tr>
<tr>
<td width="100%" align="left" class="STYLE2" >
<span style="font-size:12px; font-weight:normal;"><%=rs("sim-content")%></span>
</td>
</tr>
<tr>
<td align="right" style="padding-right:10px;">
<a href="xiandai.asp?pid=<%=rs("articleid")%>&id=5" style="color:#FF0000;">>>阅读全文</a>
</td>
</tr>
</table>
</td>
</tr>
<%rs.movenext
loop
rs.close%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end sub
'显示产品详细信息
'id是栏目id
'pid是产品id
sub showproduct(id,pid)
set rs_news=server.createobject("adodb.recordset")
sqltext4="select * from product where articleid ="+pid+" "
rs_news.open sqltext4,conn,1,1
if rs_news.eof or rs_news.bof then
response.Write("目前没有所需的产品！")
end if
do while not rs_news.eof%>
<table width="95%" border="0" cellpadding="0" cellspacing="0">
<tr height="10">
<td></td>
</tr>
<tr>
<td width="95%" align="center" class="STYLE2" height="50">
<span style="font-size:24px; color:#F00" >
<%=rs_news("title")%><br/>
</span>
<span style="font-size:12px; font-weight:normal; color:#666666;">点击数：<%=rs_news("hits")%> 发布时间：<%=rs_news("UpdateTime")%></span>
</td>
</tr>
<tr height="5">
<td>
</td>
</tr>
<tr>
<td align="left" valign="top" width="90%"><%=rs_news("content")%></td>
</tr>
</table>
<%rs_news.movenext
loop
rs_news.close%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><div align="center" class="green12"><a href="<%=Request.ServerVariables("HTTP_REFERER")%>" style="font-size:15px; color:#FE1B4E;">[返回]</a></div></td>
</tr>
</table>
<%end sub%>
下面是另一个ASP【TOP.ASP】页面的代码，我想可能会和上面ASP页面有联系，我也一并把这个TOP页面的代码发上来
<script language="JavaScript" type="text/JavaScript">
<!--
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_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/css.css" rel="stylesheet" type="text/css">
<tr>
<td><table width="960" cellspacing="0" cellpadding="0">
<tr>
<td height="125"><table width="960" cellspacing="0" cellpadding="0">
<tr>
<td width="409" align="left"><img src="images/logo.gif" width="409" height="123" /></td>
<td width="465"><table width="465" cellspacing="0" cellpadding="0">
<tr>
<td height="92" background="images/topbg.png"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,19,0" width="465" height="92">
<param name="movie" value="images/top.swf" />
<param name="wmode" value="transparent">
<param name="quality" value="high" />
<embed src="images/top.swf" quality="high" wmode="transparent" pluginspage="http://www. type="application/x-shockwave-flash" width="465" height="92"></embed>
</object></td>
</tr>
</table></td>
<td align="right" style="line-height:21px;"><span class="STYLE1"><a href="http://www.返回旧站</a><br />
<a href="main.asp?id=32">留 言 薄</a><br />
<a href="main.asp?id=7">联系我们</a><br />
<a href="Javascript:window.external.addFavorite(document.location.href,document.title)">收藏本站</a></span></td>
</tr>
</table></td>
</tr>
<tr>
<td height="44" align="center" background="images/menubg.jpg" style="background-repeat:no-repeat"><div id="menu">
<ul id="nav"><li class="mainlevel" id="mainlevel_01"><a href="index.asp">网站首页</a>
</li>
<li class="mainlevel" id="mainlevel_02"><a href="shipin.asp?id=1">视频宝藏</a>
<ul id="sub_02" class="mainlevel1">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where bigclassname='视频宝藏'order by orderid ",conn,1,1
do while not rs.eof%>
<li>
<a href="shipin.asp?id=5&bigproclassid=19&smallproclassid=<%=rs("smallclassid")%>">
<%=gotTopic(rs("smallclassname"),cint(18))%>
</a>
</li>
<%rs.movenext
loop
rs.close%>
</ul>
</li>
<li class="mainlevel" id="mainlevel_03"><a href="yinpin.asp?id=6">音频宝藏</a>
<ul id="sub_03" class="mainlevel1">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where bigclassname='音频宝藏'order by orderid ",conn,1,1
do while not rs.eof%>
<li>
<a href="yinpin.asp?id=5&bigproclassid=20&smallproclassid=<%=rs("smallclassid")%>">
<%=gotTopic(rs("smallclassname"),cint(18))%>
</a>
</li>
<%rs.movenext
loop
rs.close%>
</ul>
</li>
<li class="mainlevel" id="mainlevel_04"><a href="xiandai.asp?id=5&bigproclassid=23&smallproclassid=26">现代真理</a>
<ul id="sub_04" class="mainlevel1">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where BigClassName='现代真理' order by orderid desc",conn,1,1
do while not rs.eof%>
<li><a href="xiandai.asp?id=5&bigproclassid=23&smallproclassid=<%=rs("SmallClassID")%>"><%=rs("SmallClassName")%></a></li>
<%rs.movenext
loop
rs.close%>
</ul>
</li>
<li class="mainlevel" id="mainlevel_05"><a href="shengjing.asp?id=5&bigproclassid=24&smallproclassid=31">圣经学课</a>
<ul id="sub_05" class="mainlevel1">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where BigClassName='圣经学课' order by orderid desc",conn,1,1
do while not rs.eof%>
<li><a href="shengjing.asp?id=5&bigproclassid=24&smallproclassid=<%=rs("SmallClassID")%>"><%=rs("SmallClassName")%></a></li>
<%rs.movenext
loop
rs.close%>
</ul>
</li>
<li class="mainlevel" id="mainlevel_06"><a href="jiankang.asp?id=28">健康福音</a>
</li>
<li class="mainlevel" id="mainlevel_07"><a href="xiazai.asp?id=5&bigproclassid=23&smallproclassid=47">下载宝藏</a>
</li>
<li class="mainlevel" id="mainlevel_08" style="background:none"><a href="main.asp?id=7">联系我们</a>
</li>
</ul>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="280" style="background-repeat:no-repeat">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,19,0" width="960" height="280">
<param name="movie" value="images/banner.swf" />
<param name="wmode" value="transparent">
<param name="quality" value="high" />
<embed src="images/banner.swf" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="960" height="280"></embed>
</object>
</td>
</tr>
<tr>
<td height="20" align="left" valign="middle" style="color:#FF0000; font-weight:bold; font-size:14px; padding-top:5px;"><img src="images/2.png">公告：<marquee width="800" behavior="scroll" direction="left" scrollamount="2"><%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from gonggao order by id desc",conn,1,1
do while not rs.eof%>
<a href="main.asp?ggid=<%=rs("id")%>&id=8" title="<%=rs("title")%>" style=" text-decoration:none; color:#CC0000; font-size:14px;">
<%=rs("title")%></a>
<%rs.movenext
loop
rs.close%></marquee></td>
</tr>
[此贴子已经被作者于2022-1-5 20:38编辑过]