📄 index.asp

📁 本程序采用ACC数据核心构件！！功能介绍：程序代码重新设计与优化
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/new.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<!--
┌─────────xuncms ──────────────────────────────┐
│                                  顶部广告开始调用                                   │
└──────────────────────────────────────.Cn  ──┘
-->
<%
set rsad = server.createobject("adodb.recordset")
sqlad="select * from Gq_ads where foot=false order by id desc"
rsad.open sqlad,conn,1,1
while not rsad.eof 
if checkday(rsad("time"),rsad("count")) then
response.write "</TR>"
response.write "</TBODY>"
response.write "<TABLE cellSpacing=0 cellPadding=1 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
response.write "<TR>"
response.write "<TD align='center' style='BACKGROUND-COLOR: #990000' width=120>"
if instr(lcase(rsad("imgpic")),".swf")>0 then
response.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='982' height='50'>"
response.write "<param name='movie' value='"&rsad("imgpic")&"'>"
response.write "<param name='quality' value='high'>"
response.write "<embed src='"&rsad("imgpic")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='982' height='50'></embed></object>"
else
response.write "<a href='open.asp?action=ads&id="&rsad("id")&"' target=_blank><img src='"&rsad("imgpic")&"' width='982' height='50' border='0' title="&rsad("title")&"></a></TD>"
end if
end if
rsad.movenext
wend
rsad.close
set rsad=nothing
%>
<!--
┌─────────xuncms ──────────────────────────────┐
│                                  顶部广告开始结束                                   │
└──────────────────────────────────────.Cn  ──┘
-->
<table width="984" height="27" border="0" align="center" cellpadding="0" cellspacing="0" background="index_img/Index_c1_r5.jpg" class="T_t_b">
  <tr>
    <td height="27" align="center"class="m_f1"><strong>↓官方强烈推荐今天最新开放征途私服游戏 套黄精品征途游戏区域，公平，稳定，长久，玩家务必首选↓</strong></td>
  </tr>
</table>
<%
start="征途私服-讯网联盟免费发布提供经典asp程序征途发布系统"
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
menu=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
	menu="all"
end if
set rs = server.createobject("adodb.recordset")
dim w1,w2,w3,w4,w5,w6,w7,w8,w9
w1=""&sfdata_1&""
w2=""&sfdata_2&""
w3=""&sfdata_3&""
w4=""&sfdata_4&""
w5=""&sfdata_5&""
w6=""&sfdata_6&""
w7=""&sfdata_7&""
w8=""&sfdata_8&""
w9=""&sfdata_9&""
function checkday(toptime,topday)
 if not isnull(toptime) then
 if cdate(toptime)+topday>=date then
   checkday=true
 else
   checkday=false
 end if
 else
   checkday=false
 end if
end function
%>
<script language="JavaScript">
<!-- 
var limit="<%=indextime%>"

if (document.images){
var parselimit=limit.split(":")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{ 
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+"分"+cursec+"秒后重刷本页！■■欢迎来到[就上征途].每天新开征途..尽在Www.93zt.Com■■"
else
curtime=cursec+"秒后重刷本页！■■欢迎来到[就上征途].每天新开征途..尽在Www.93zt.Com■■"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}

window.onload=beginrefresh
//-->
</script>
<%
response.write "<TBODY>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align='center' bgColor=#990000 border=0>"
response.write "<TBODY>"
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TBODY>"
response.write "<table width=984 border=0 cellspacing=0 cellpadding=0 align='center'>"
response.write "<tr>"
response.write "<TABLE align='center' cellSpacing=1 cellPadding=5 width=984 align=center  bgColor=#990000 border=0>"
response.write "<tr bgcolor=#FF9900 align='center'>"
response.write "<TD width="&w1&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器名</font></b></TD>"
response.write "<TD width="&w2&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器IP</font></b></TD>"
response.write "<TD width="&w3&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;开机时间[年/月/日/时间]</font></b></TD>"
response.write "<TD width="&w4&" bgcolor=#FF9900><b><font color='#FFFFFF'>"
response.write "<SELECT class=""Input"" onchange=""if(this.options[this.selectedIndex].value != '') {window.location=(this.options[this.selectedIndex].value) }"" name=""netSelect"">"
response.write "<OPTION selected>线路</OPTION>"
response.write "<option value=search.asp?key=0&otype=Service&menu=all>电信</option>"
response.write "<option value=search.asp?key=1&otype=Service&menu=all>网通</option>"
response.write "<option value=search.asp?key=2&otype=Service&menu=all>双线</option>"
response.write "<option value=index.asp>全部</option>"
response.write "</SELECT>"
response.write "</font></b></TD>"
response.write "<TD width="&w9&" bgcolor=#FF9900><b><font color='#FFFFFF'>Zone</font></b></TD>"
response.write "<TD width="&w8&" bgcolor=#FF9900><b><font color='#FFFFFF'>注册</font></b></TD>"
response.write "<TD width="&w5&" bgcolor=#FF9900><b><font color='#FFFFFF'>客服QQ</font></b></TD>"
response.write "<TD bgcolor=#FF9900><b><font color='#FFFFFF'>版本介绍</font></b></TD>"
response.write "<TD width="&w7&" bgcolor=#FF9900><b><font color='#FFFFFF'>开放状态</b></font></TD>"
response.write "<TD width="&w6&" bgcolor=#FF9900><b><font color='#FFFFFF'>详细介绍</font></b></TD>"
response.write "</TR></TBODY></TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
call SetRed_ads()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)>hottime_1 then
call Overnight_a()
end if
if hour(now)<hottime_2 then
call Overnight_b()
end if
if minute(now)<30 then
call Today_00()
end if
if minute(now)>=30 then
call Today_30()
call Today_30_1()
end if
call Today_00_30_1()
if minute(now)<30 then
call Today_30_2()
end if
call Today_00_30_2()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)<=hottime_1 then
call Before()
end if

response.write "</TBODY>"
response.write "</TABLE>"
call days_1()
call night_1()
call days_2()
call night_2()
call yesterday()
call yesterday1()
call yesterday2()
if SFstatus=1 then
call free()
end if
%>
<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0><TBODY></TBODY></TABLE><TBODY>
<!--
┌─────────xuncms ──────────────────────────────┐
│                                  顶部广告开始调用                                   │
└──────────────────────────────────────.Cn  ──┘
-->
<%
set rsad = server.createobject("adodb.recordset")
sqlad="select * from Gq_ads where foot=true order by id desc"
rsad.open sqlad,conn,1,1
while not rsad.eof  
if checkday(rsad("time"),rsad("count")) then
response.write "</TR>"
response.write "</TBODY>"
response.write "<TABLE cellSpacing=0 cellPadding=1 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
response.write "<TR>"
response.write "<TD align='center' style='BACKGROUND-COLOR: #990000' width=120>"
if instr(lcase(rsad("imgpic")),".swf")>0 then
response.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='982' height='50'>"
response.write "<param name='movie' value='"&rsad("imgpic")&"'>"
response.write "<param name='quality' value='high'>"
response.write "<embed src='"&rsad("imgpic")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='982' height='50'></embed></object>"
else
response.write "<a href='open.asp?action=ads&id="&rsad("id")&"' target=_blank><img src='"&rsad("imgpic")&"' width='982' height='50' border='0' title="&rsad("title")&"></a></TD>"
end if
end if
rsad.movenext
wend
rsad.close
set rsad=nothing
%>
<!--
┌─────────xuncms ──────────────────────────────┐
│                                  顶部广告开始结束                                   │
12 下一页
💿 文件大小 1066 K
👤 上传用户 guigui2008q
📂 所属分类数据库系统
🏷️ 相关标签

#ACC #程序 #数据 #代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -