📄 index_soft_all.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connDB.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
%>
<!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><%=(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 width=765 colSpan=3></TD>
<TR>
<TD vAlign=top width=195 background=images/index_4.gif><TABLE cellSpacing=0 cellPadding=0 width="102%" 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_NewSoftDown.asp" -->
<!--#include file="index_SoftDown_Hot.asp" -->
</TD>
<TD width=8 background=images/index_5.gif height=35> </TD>
<TD vAlign=top align=middle width=562 bgColor=#f9f9f9><!--#include file="index_Soft_index.asp" -->
</TD>
</TR>
<TR>
<TD background=images/dx2.gif colSpan=3 height=2></TD>
</TR>
</TABLE>
<!-- #include file="advert_bottom.asp"-->
<!-- #include file="FrendSite_bottom.asp"-->
<!-- #include file="index_bottom.asp"-->
<%
RsSiteConfig.Close()
Set RsSiteConfig = Nothing
%>
<%
RsNotice.Close()
Set RsNotice = Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -