📄 index.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLUser.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockUser.asp"-->
<!--#include file="Include/Style.asp"-->
<html>
<head>
<title><%=WebSiteName%>__首页</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="<%=WebSiteMKeywords%>">
<meta name="Description" Content="<%=WebSiteMDescription%>">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<link type="text/css" rel="stylesheet" href="Style/<%=WebSiteStyle%>/Style.css">
<Script Language="JavaScript" src="Include/PopText.js"></Script>
</head>
<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<!--#include file="Include/Top.asp"-->
<!--#include file="Include/Menu.asp"-->
<!--#include file="Include/Ads2.asp"-->
<center>
<table border="0" cellpadding="0" cellspacing="1" width="780" height="10" class="T_BGColor_1">
<tr>
<td width="205" class="T_TD_BGColor_1_1" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
<tr>
<td height="8"></td>
</tr>
<%if IndexMessageShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Message.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=IndexMessageTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="60" align="center" valign="top"><font class="BlackS12"><%
dim rsIn1
set rsIn1=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
rsIn1.open GuSQL,GuConn,1,1
if not(rsIn1.eof and rsIn1.bof) then
%><marquee id="IndexWebMessageText" onMouseOver="JavaScript:IndexWebMessageText.stop();" onMouseOut="JavaScript:IndexWebMessageText.start();" scrollAmount="1" scrollDelay="100" direction="up" height="80" width="190"><%=rsIn1("Co_IndexWebMessageText")%></marquee><%
end if
rsIn1.close
set rsIn1=Nothing
%></font></td>
</tr>
<%end if%>
<%if IndexResourceStatisticsShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Count.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=IndexResourceStatisticsTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10" valign="top"><table border="0" cellspacing="0" cellpadding="0" width="100%" height="10"><tr><td height="2"></td></tr>
<%
dim rsIn9,AllDayUpdate
set rsIn9=Server.CreateObject("Adodb.RecordSet")
GuSQL="Select count(Ar_ID) from "&GuTablePrefix&"_Article Where Ar_Show='1' and Ar_UserPublish='0' and Ar_DateTime=Date()"
rsIn9.open GuSQL,GuConn,1,1
AllDayUpdate=rsIn9(0)
if isnull(AllDayUpdate) then
AllDayUpdate=0
end if
rsIn9.close
GuConn.execute("update "&GuTablePrefix&"_ConfigIC set CIC_Number="&AllDayUpdate&" where CIC_ID=1")
set rsIn9=Nothing
dim rsIn2
set rsIn2=Server.CreateObject("Adodb.RecordSet")
GuSQL="select * from "&GuTablePrefix&"_ConfigIC where CIC_Show='1' order by CIC_Order asc"
rsIn2.open GuSQL,GuConn,1,1
if rsIn2.bof and rsIn2.eof then
Response.write "<tr><td width=""184"" height=""50""> <font class=""SilverS12"">没有找到相关数据</font></td></tr>"
else
do while not rsIn2.eof
%>
<tr>
<td height="21"> <img src="Style/<%=WebSiteStyle%>/Title_01.gif" border="0" width="8" height="14"> <font class="BlackV12"><%if rsIn2("CIC_Type")="Sort" then%><a href="List.asp?So=<%=rsIn2("CIC_OldIDA")%>" class="NavyS12"><%=rsIn2("CIC_Name")%></a><%elseif rsIn2("CIC_Type")="AsSort" then%><a href="List.asp?So=<%=rsIn2("CIC_OldIDA")%>&AS=<%=rsIn2("CIC_OldIDB")%>" class="NavyS12"><%=rsIn2("CIC_Name")%></a><%else%><%=rsIn2("CIC_Name")%><%end if%>：</font><font class="RedG12"><%=rsIn2("CIC_Number")%></font></td>
</tr>
<%
rsIn2.movenext
loop
end if
rsIn2.close
set rsIn2=Nothing
%><tr><td height="4"></td>
</tr>
</table></td>
</tr>
<%end if%>
<%if IndexSearchShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Search.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=IndexSearchTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10" align="center" valign="top"><!--#include file="Include/search.asp"--></td>
</tr>
<%end if%>
<tr>
<td height="1" align="center" valign="top"><!--#include file="Include/Ads7.asp"--></td>
</tr>
<%if IndexBlueShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_CommendB.gif" width="26" height="26" border="0"></td><td width="88" valign="bottom"><a href="List.asp?CT=Ar_CommendB" class="WSText"><%=IndexBlueTitle%></a></td><td width="55" valign="bottom"><a href="List.asp?CT=Ar_CommendB" class="WSText">More...</a></td></tr></table></td>
</tr>
<tr>
<td height="10" valign="top"><%
dim rsIn3
set rsIn3=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top "&IndexBlueNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_CommendB,Ar_DateTime from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' and Ar_CommendB='1'"
rsIn3.open GuSQL,GuConn,1,1
if rsIn3.eof and rsIn3.bof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsIn3.eof
response.write " <img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsIn3("Ar_ID")&""" style=""color:"&rsIn3("Ar_NameColor")&""" class=""BlackV12"" title="""&rsIn3("Ar_Name")&" "&rsIn3("Ar_DateTime")&""">"&GuStringCut(rsIn3("Ar_Name"),24)&"</a><br>"
rsIn3.movenext
loop
end if
rsIn3.close
set rsIn3=Nothing
%></td>
</tr>
<%end if%>
<%if IndexHitsShow="1" then%>
<tr>
<td height="40" background="Style/<%=WebSiteStyle%>/TD_T_Bg_L.gif"><table border="0" cellpadding="0" cellspacing="0" width="188" height="26"><tr><td width="45" align="right"><img src="Style/<%=WebSiteStyle%>/TD_T_Hits.gif" width="26" height="26" border="0"></td><td width="140" valign="bottom"><font class="WSText"><%=IndexHitsTitle%></font></td></tr></table></td>
</tr>
<tr>
<td height="10" valign="top"><%
dim rsWeekHits
set rsWeekHits=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top "&IndexHitsNum&" Ar_ID,Ar_Name,Ar_NameColor,Ar_DateTime,Ar_WeekHits from "&GuTablePrefix&"_Article where Ar_Show='1' and Ar_UserPublish='0' order by Ar_WeekHits desc,Ar_ID desc"
rsWeekHits.open GuSQL,GuConn,1,1
if rsWeekHits.eof and rsWeekHits.bof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsWeekHits.eof
Response.write " <img src=""Style/"&WebSiteStyle&"/Title_02.gif"" border=""0""><a href=""Article.asp?ID="&rsWeekHits("Ar_ID")&""" style=""color:"&rsWeekHits("Ar_NameColor")&""" class=""BlackV12"" title="""&rsWeekHits("Ar_Name")&" "&rsWeekHits("Ar_DateTime")&""">"&GuStringCut(rsWeekHits("Ar_Name"),24)&"</a><br>"
rsWeekHits.movenext
loop
end if
rsWeekHits.close
set rsWeekHits=Nothing
%></td>
</tr>
<%end if%>
</table></td>
<td width="572" class="T_TD_BGColor_1_2" align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="98%" height="10">
<tr>
<td height="8"></td>
</tr>
<tr>
<td height="10" valign="top"><table border="0" cellpadding="0" cellspacing="2" width="278" height="10">
<tr><%
dim rsIn6,iIn,rsIn7
set rsIn6=Server.CreateObject("Adodb.RecordSet")
set rsIn7=Server.CreateObject("Adodb.RecordSet")
rsIn6.open "select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc",GuConn,1,1
if err.number<>0 then
Response.write "数据库查询出错"
else
if rsIn6.bof and rsIn6.eof then
Response.write "<td></td>"
else
iIn=1
do while not rsIn6.eof
%><td align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="98%" height="10">
<tr>
<td height="28" background="Style/<%=WebSiteStyle%>/Td_T_Sort.gif" valign="middle"><table border="0" cellpadding="0" cellspacing="0" width="276" height="22"><tr><td width="218"> <a href="List.asp?So=<%=rsIn6("So_ID")%>" class="BlackV12"><%=rsIn6("So_Name")%></a></td><td width="58" align="right"><a href="List.asp?So=<%=rsIn6("So_ID")%>" class="LightgrayS12">More...</a></td></tr></table></td>
</tr>
<tr>
<td height="10" valign="top"><%
rsIn7.open "select top "&IndexAsSortNum&" "&GuTablePrefix&"_Article.Ar_ID,"&GuTablePrefix&"_Article.Ar_Name,"&GuTablePrefix&"_Article.Ar_SortID,"&GuTablePrefix&"_Article.Ar_AsSortID,"&GuTablePrefix&"_Article.Ar_NameColor,"&GuTablePrefix&"_Article.Ar_Show,"&GuTablePrefix&"_Article.Ar_DateTime,"&GuTablePrefix&"_AsSort.AS_ID,"&GuTablePrefix&"_AsSort.AS_Name from "&GuTablePrefix&"_Article,"&GuTablePrefix&"_AsSort where "&GuTablePrefix&"_AsSort.AS_SortID="&rsIn6("So_ID")&" and "&GuTablePrefix&"_Article.Ar_SortID="&rsIn6("So_ID")&" and "&GuTablePrefix&"_AsSort.AS_ID="&GuTablePrefix&"_Article.Ar_AsSortID and Ar_Show='1' and Ar_UserPublish='0' order by "&GuTablePrefix&"_Article.Ar_DateTime desc,"&GuTablePrefix&"_Article.Ar_ID desc",GuConn,1,1
if err.number<>0 then
Response.write "数据库查询出错"
else
if rsIn7.bof and rsIn7.eof then
Response.write "<br> <font class=""SilverS12"">没有找到相关数据</font><br><br>"
else
do while not rsIn7.eof
%><a href="List.asp?So=<%=rsIn6("So_ID")%>&AS=<%=rsIn7("AS_ID")%>" class="LightgrayS12">[<%=rsIn7("AS_Name")%>]</a> <a href="Article.asp?ID=<%=rsIn7("Ar_ID")%>" style="color:<%=rsIn7("Ar_NameColor")%>" class="BlackV12" title="<%=rsIn7("Ar_Name")%> <%=rsIn7("Ar_DateTime")%>"><%=GuStringCut(rsIn7("Ar_Name"),IndexAsSortArticleNum)%></a> <font class="<%if rsIn7("Ar_DateTime")=date() then Response.write "RedS10" else Response.write "SilverS10" end if%>">[<%=month(rsIn7("Ar_DateTime"))%>-<%=day(rsIn7("Ar_DateTime"))%>]</font><br>
<%
rsIn7.movenext
loop
end if
end if
rsIn7.close
%></td>
</tr>
</table></td><%
if (iIn mod 2)=0 then Response.write "</tr><tr>"
iIn=iIn+1
rsIn6.movenext
loop
end if
end if
rsIn6.close
set rsIn7=Nothing
set rsIn6=Nothing
%></tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</center>
<!--#include file="Include/WebLink.asp"-->
<!--#include file="Include/Bottom.asp"-->
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -