📄 indebcxg.asp
字号:
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#'include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--#'include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="政府，政府网，政府网站，政府网站源码，政府网站管理系统，未名E设计政府网站，未名E设计政府网站管理系统，未名E设计http://www.wiming.net">
<title><%=jjgn%>_建站铺修正版_bbs.jzpu.com</title>
<LINK href="news.css" rel=stylesheet>
<link rel="Shortcut Icon" href="e-cweb.ico"><!--IE地址栏前换成自己的图标-->
<link rel="Bookmark" href="e-cweb.ico"><!--可以在收藏夹中显示出你的图标-->
<SCRIPT>
<!--
window.defaultStatus="<%=gg1%>";
//-->
</SCRIPT>
<script language="JavaScript">
<!--
if (self != top) top.location.href = window.location.href
//-->
</script>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4" | version == "n3")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee2()
{
if (version == "e4" | version == "n3")
{
document.write("</marquee>")
}
}
function marquee_logo_news()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 1200px; HEIGHT:31px; TEXT-ALIGN: left; TOP: 0px' id='link_map' scrollamount='2' scrolldelay='10' behavior='alternate' direction='right' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee3()
{
if (version == "e4" | version == "n3")
{
document.write("<marquee direction='left' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee4()
{
if (version == "e4" | version == "n3")
{
document.write("</marquee>")
}
}
function marquee5()
{
if (version == "e4" | version == "n3")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px; TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee6()
{
if (version == "e4" | version == "n3")
{
document.write("</marquee>")
}
}
//-->
</script>
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
</script>
<script LANGUAGE="javascript">
<!--
function checkdata()
{
if (document.user.UserName.value=="")
{
alert("对不起，请输入您的论坛用户名！");
document.user.UserName.focus();
return false;
}
else if (document.user.Password.value=="")
{
alert("对不起，请输入您的论坛密码！");
document.user.Passwd.focus();
return false;
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
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;
}
//-->
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FEE8E8}
-->
</style>
</head>
<body>
<!--#include file="Top.asp"-->
<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytypeID(10000),ArraytypeName(10000)
rs.close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=1
while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1
rs.MoveNext
wend
rs.close
%>
<!--#include file="E_Daodu.asp" -->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td height="5" colspan="2"></td></tr>
<tr>
<td width="550" align="left" valign="top"><table width="545" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" background="Images/red_bg.jpg"><span class="white_title">最新图文</span></td>
</tr>
<tr>
<td><!--#include file="NewsTopPhoto.asp"--></td>
</tr>
</table></td>
<td width="210" align="right" valign="top"><table width="210" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" background="Images/red_bg.jpg"><span class="white_title">最新留言</span></td>
</tr>
<tr>
<td><!--#include file="ReviewIndex.asp"--></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td height="5" colspan="2"></td></tr>
<tr valign="top">
<td width="550">
<%
for i=1 to RecordCount
typeID=Arraytyid(i)
typeName=ArraytyName(i)
%>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0" id="AutoNumber6" style="border-collapse: collapse">
<tr>
<td width="50%" valign="top" bgcolor="#FFFFFF">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="265">
<tbody>
<tr>
<td background="Images/title_bg.gif" height="30" colspan="2"><span class="left_align white_title"><%=typeName%></span></td>
</tr>
<tr>
<td width="10%" align="left" valign="top" bgcolor="#F5F5F5">
<%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(eChuang)("key")="super" or Request.cookies(eChuang)("key")="typemaster" or Request.cookies(eChuang)("key")="bigmaster" or Request.cookies(eChuang)("key")="smallmaster" or Request.cookies(eChuang)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("key")="selfreg" then
if Request.cookies(eChuang)("reglevel")=3 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=2 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(eChuang)("reglevel")=1 then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -