📄 index_bottomurl.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="DT_inc/SQL_injection.asp"-->
<!--#include file="Connections/connDB.asp" -->
<!--#include file = "editor/Include/DeCode.asp"-->
<!--#include file="Advert.asp"-->
<%
Dim RsSiteConfig
Dim RsSiteConfig_numRows
Set RsSiteConfig = Server.CreateObject("ADODB.Recordset")
RsSiteConfig.ActiveConnection = MM_connDB_STRING
RsSiteConfig.Source = "SELECT * FROM tSiteConfig"
RsSiteConfig.CursorType = 0
RsSiteConfig.CursorLocation = 2
RsSiteConfig.LockType = 1
RsSiteConfig.Open()
RsSiteConfig_numRows = 0
%>
<%
Dim RsNotice
Dim RsNotice_numRows
Set RsNotice = Server.CreateObject("ADODB.Recordset")
RsNotice.ActiveConnection = MM_connDB_STRING
RsNotice.Source = "SELECT * FROM tNotice"
RsNotice.CursorType = 0
RsNotice.CursorLocation = 2
RsNotice.LockType = 1
RsNotice.Open()
RsNotice_numRows = 0
%>
<%
Dim RsChannelBottomUrlContent__MMColParam
RsChannelBottomUrlContent__MMColParam = "1"
If (Request.QueryString("fID") <> "") Then
RsChannelBottomUrlContent__MMColParam = Request.QueryString("fID")
End If
%>
<%
Dim RsChannelBottomUrlContent
Dim RsChannelBottomUrlContent_numRows
Set RsChannelBottomUrlContent = Server.CreateObject("ADODB.Recordset")
RsChannelBottomUrlContent.ActiveConnection = MM_connDB_STRING
RsChannelBottomUrlContent.Source = "SELECT * FROM tChannelBottomUrl WHERE fID = " + Replace(RsChannelBottomUrlContent__MMColParam, "'", "''") + ""
RsChannelBottomUrlContent.CursorType = 0
RsChannelBottomUrlContent.CursorLocation = 2
RsChannelBottomUrlContent.LockType = 1
RsChannelBottomUrlContent.Open()
RsChannelBottomUrlContent_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style_index.css" rel="stylesheet" type="text/css">
<title><%=(RsChannelBottomUrlContent.Fields.Item("fBUrlName").Value)%>::<%=(RsSiteConfig.Fields.Item("fSiteTitle").Value)%></title>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=2>
<!--#include file="index_top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=765 align=center border=0>
<TR>
<TD vAlign=top width=195 background=images/index_4.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD><IMG height=41 src="images/index1_1.gif"
width=16></TD>
<TD background=images/index1_2.gif><IMG height=41
src="images/index1_2.gif" width=10></TD>
<TD width=89 background=images/index1_2.gif
height=41><% If Not RsNotice.EOF Or Not RsNotice.BOF Then %>
<%=(RsNotice.Fields.Item("fNoticeTitle").Value)%>
<% End If ' end Not RsNotice.EOF Or NOT RsNotice.BOF %></TD>
<TD background=images/index1_5.gif><IMG height=41
src="images/index1_4.gif" width=30></TD>
<TD width=140 background=images/index1_5.gif></TD>
<TD><IMG height=41 src="images/index1_7.gif"
width=14></TD>
</TR>
<TR>
<TD><IMG height=119 src="images/index1_8.gif"
width=16></TD>
<TD vAlign=top background=images/index1_9.gif colSpan=4><MARQUEE align="left" direction="up" width=100% height="110" scrollAmount=1 scrollDelay=4 onMouseOver="this.stop()" onMouseOut="this.start()">
<% If Not RsNotice.EOF Or Not RsNotice.BOF Then %>
<%=(RsNotice.Fields.Item("fNoticeContent").Value)%>
<% End If ' end Not RsNotice.EOF Or NOT RsNotice.BOF %>
<% If RsNotice.EOF And RsNotice.BOF Then %>
<div align="center"><br>
没有信息！！！</div>
<% End If ' end RsNotice.EOF And RsNotice.BOF %>
</MARQUEE>
</TD>
<TD><IMG height=119 src="images/index1_10.gif" width=14></TD>
</TR>
<TR>
<TD><IMG height=18 src="images/index1_11.gif" width=16></TD>
<TD width=250 background=images/index1_12.gif
colSpan=4></TD>
<TD><IMG height=18 src="images/index1_13.gif" width=14></TD>
</TR>
</TABLE>
<!--#include file="index_Count.asp"-->
</TD>
<TD width=8 background=images/index_5.gif height=35> </TD>
<TD vAlign=top align=middle width=562 bgColor=#f9f9f9><br>
<TABLE cellSpacing=0 cellPadding=0 width=97% border=0>
<TR>
<TD width="16"><IMG height=41
src="images/index1_1.gif" width=16></TD>
<TD width=250 background=images/index1_2.gif
height=41><IMG src="images/d5.gif"> <%=(RsChannelBottomUrlContent.Fields.Item("fBUrlName").Value)%></TD>
<TD width=30 background=images/index1_5.gif><IMG
height=41 src="images/index1_4.gif"
width=30></TD>
<TD background=images/index1_5.gif></TD>
<TD width=14><IMG height=41
src="images/index1_7.gif" width=14></TD>
</TR>
<TR>
<TD background=images/index1_8.gif></TD>
<TD background=images/index1_9.gif
colSpan=3><br>
<TABLE width="98%"
border=0 align="center">
<TR>
<TD vAlign=bottom bgColor=#D7F0FF><div align="center"> <br>
<p><%=(RsChannelBottomUrlContent.Fields.Item("fBUrlTittle").Value)%></p>
<p><%=(RsChannelBottomUrlContent.Fields.Item("fBUrlContent").Value)%></p>
<p> </p>
</div></TD>
</TR>
</TABLE></TD>
<TD width=14 background=images/index1_10.gif
height=100></TD>
</TR>
<TR>
<TD><IMG height=18
src="images/index1_11.gif" width=16></TD>
<TD width=250 background=images/index1_12.gif
colSpan=3></TD>
<TD width=14><IMG height=18
src="images/index1_13.gif"
width=14></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD background=images/dx3.gif height=20><P align=center> </P></TD>
<TD background=images/index_5.gif height=20></TD>
<TD background=images/dx3.gif height=20> </TD>
</TR>
</TABLE>
<%Call Advert ("首页底部横条")%>
<!-- #include file="FrendSite_bottom.asp"-->
<!-- #include file="index_bottom.asp"-->
</BODY>
</HTML>
<%
RsSiteConfig.Close()
Set RsSiteConfig = Nothing
%>
<%
RsNotice.Close()
Set RsNotice = Nothing
%>
<%
RsChannelBottomUrlContent.Close()
Set RsChannelBottomUrlContent = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -