请问下各位老鸟高手们 我ASP时间无法更新请问如何修改？
请问下各位老鸟高手们 我ASP时间无法更新请问如何修改？ 下面付代码<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<!--#include file="Inc/Cls_New.asp"-->
<%
Dim Menu,Rs2,Sql2,Rankings,Rs3,Rs4,Rs5,Rs6,Rs7,Rs8,strHtmlFront,strListFront
Menu = tee5.IndexGame
dim w1,w2,w3,w4,w5,w6,w7
w1="100"
w2="100"
w3="145"
w4="80"
w5="75"
w6="52"
w7="55"
Rankings = 20
start="天龙八部"
tee5.head()
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th width="&w1&">服务器名</th>" & vbCrLf
Response.Write "<th width="&w2&">服务器IP</th>" & vbCrLf
Response.Write "<th width="&w3&">开机时间[月/日/时间]</th>" & vbCrLf
Response.Write "<th width="&w4&">" & vbCrLf
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=/>全部</option>"
response.write "</SELECT></th>" & vbCrLf
Response.Write "<th width="&w5&">客服QQ</th>" & vbCrLf
Response.Write "<Th align=""left"">版本介绍 "
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>"
dim rs11
set rs11=Server.CreateObject("ADODB.RecordSet")
rs11.Open "select * from banbenClass order by classid",conn,1,1
do while not rs11.eof
response.write "<option value=search.asp?key="&rs11("classname")&"&otype=banben&menu=all>"&rs11("classname")&"</option>"
rs11.movenext
loop
rs11.close
set rs11=nothing
response.write "<option value=/>全部类型</option>"
response.write "</SELECT></Th>"
Response.Write "<th width="&w6&">详细介绍</th>" & vbCrLf
Response.Write "<th width="&w7&">开区推荐</th>" & vbCrLf
Response.Write "</TR>" & vbCrLf
TeGq.SetRed_adsb()
TeGq.SetRed_adsa()
TeGq.SetRed_ads()
If tee5.Indexsf1 = 1 then
If minute(now) < 30 then
TeGq.Today_00()
End If
If minute(now) >= 30 then
TeGq.Today_30()
End If
If hour(now) > Clng(tee5.hottime_1) then
TeGq.Overnight_aa()
TeGq.Overnight_a()
End If
If hour(now) < Clng(tee5.hottime_2) then
TeGq.Overnight_bb()
TeGq.Overnight_b()
End If
Response.Write "</TBODY>"
Response.Write "</TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<TBODY>"
End If
If tee5.Indexsf1 = 1 then
If minute(now) >= 30 then
TeGq.Today_30_1()
End If
TeGq.Today_00_30_1()
If minute(now) < 30 then
TeGq.Today_30_2()
End If
TeGq.Today_00_30_2()
If hour(now) <= Clng(tee5.hottime_1) then
TeGq.Beforea()
TeGq.Before()
End If
End If
Response.Write "</TBODY>"
Response.Write "</TABLE>" & vbCrLf
If tee5.Indexsf2 = 1 then
TeGq.days_1()
TeGq.night_1()
End If
If tee5.Indexsf3 = 1 then
TeGq.days_2()
TeGq.night_2()
End If
If tee5.Indexsf4 = 1 then
TeGq.yesterday()
End If
If tee5.Indexsf5 = 1 then
TeGq.yesterday1()
End If
If SFstatus=1 then
' TeGq.free()
End If
%>
<%
Dim t
'固顶家族列表
sql="select Gq_Jzdata.id,Gq_Jzdata.name,Gq_Jzdata.qq,Gq_Jzdata.master,Gq_Jzdata.bulid,Gq_Jzdata.peo,Gq_Jzdata.addr,Gq_Jzdata.web,Gq_Jzdata.tel,Gq_Jzdata.hits,Gq_Jzdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_Jzdata,Gq_GameType where Gq_Jzdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_Jzdata.ulock=true and Gq_Jzdata.top=true order by Gq_Jzdata.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
rs.close
else
do while not rs.eof
t=t+1
if t mod 2=1 then
Response.Write "<tr bgcolor=#FFFF00>"
else
Response.Write "<tr bgcolor=#FFFF55>"
end if
%>
<form method=POST action='JzVote.asp' target=_blank>
<input type=hidden name=IsSub value=YES><input type=hidden name=SS value=<%=rs("id")%>>
<td align=center><%=rs("name")%></td>
<td align=center><%=rs("QQ")%></td>
<td align=center><%=rs("master")%></td>
<td> [<%=rs("game")%>]<%=rs("TEL")%></td>
<td align="center"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href="&rs("web")&" target=_blank>访问</a>" end if%></td>
<td align="center"><%=rs("addr")%><%=rs("peo")%></td>
<td align="center"><%=formatdatetime(rs("Bulid"),1)%></td>
<td align="center"><INPUT id=hits maxLength=20 size=5 value=<%=rs("hits")%> name=hits></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
<%
Response.Write "</tr>"
rs.movenext
loop
rs.close
end if
'人气过百家族排名列表
sql="select top "&Rankings&" Gq_Jzdata.id,Gq_Jzdata.name,Gq_Jzdata.qq,Gq_Jzdata.master,Gq_Jzdata.bulid,Gq_Jzdata.peo,Gq_Jzdata.addr,Gq_Jzdata.web,Gq_Jzdata.tel,Gq_Jzdata.hits,Gq_Jzdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_Jzdata,Gq_GameType where Gq_Jzdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_Jzdata.ulock=true and Gq_Jzdata.hits>=100 order by Gq_Jzdata.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
Rs.Close
else
do while not rs.eof
t=t+1
if t mod 2=1 then
Response.Write "<tr bgcolor=#FFFF00>"
else
Response.Write "<tr bgcolor=#FFFF55>"
end if
%>
<form method=POST action='JzVote.asp' target=_blank>
<input type=hidden name=IsSub value=YES><input type=hidden name=SS value=<%=rs("id")%>>
<td align=center><%=rs("name")%></td>
<td align=center><%=rs("QQ")%></td>
<td align=center><%=rs("master")%></td>
<td> [<%=rs("game")%>]<%=rs("TEL")%></td>
<td align="center"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href="&rs("web")&" target=_blank>访问</a>" end if%></td>
<td align="center"><%=rs("addr")%><%=rs("peo")%></td>
<td align="center"><%=formatdatetime(rs("Bulid"),1)%></td>
<td align="center"><INPUT id=hits maxLength=20 size=5 value=<%=rs("hits")%> name=hits></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
<%
Response.Write ""
if t>=Rankings then exit do
rs.movenext
loop
rs.close
end if
Response.Write "" & vbCrLf%>
<%
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf
Response.Write " " & vbCrLf%>
<%
set rs4=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by id DESC,ID DESC"
rs4.open sql,conn,1,1
if rs4.eof and rs4.bof then
response.write " "
Else
do while not rs4.eof
%>
<tr>
<td height="20" valign="middle" class="xiamian">· <a href='html/Article/<%=rs4("cat_id")%>/<%if rs4("art_date")<>"" then response.write year(rs4("art_date"))&""&month(rs4("art_date"))&""&day(rs4("art_date"))&""%>/News_<%=rs4("id")%>.html' target='_blank' Title='文章标题：<%=rs4("art_title")%> 发表时间：<%=rs4("art_date")%> 阅读次数：<%=rs4("art_count")%>次'><font color="#333333"><%=left(rs4("art_title"),15)%>...</font></a></td>
</tr>
<%
rs4.movenext
loop
End If
rs4.close
set rs4=nothing
%>
<%
set rs5=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article order by art_count DESC,ID DESC"
rs5.open sql,conn,1,1
if rs5.eof and rs5.bof then
response.write " "
Else
do while not rs5.eof
%>
<tr>
<td height="20" valign="middle" class="xiamian">· <a href='html/Article/<%=rs5("cat_id")%>/<%if rs5("art_date")<>"" then response.write year(rs5("art_date"))&""&month(rs5("art_date"))&""&day(rs5("art_date"))&""%>/News_<%=rs5("id")%>.html' target='_blank' Title='文章标题：<%=rs5("art_title")%> 发表时间：<%=rs5("art_date")%> 阅读次数：<%=rs5("art_count")%>次'><font color="#333333"><%=left(rs5("art_title"),15)%>...</font></a></td>
</tr>
<%
rs5.movenext
loop
End If
rs5.close
set rs5=nothing
%>
<%
set rs7=server.createobject("adodb.recordset")
sql="select top 10 id,wgtype,Title,url,Content,wgtime,Hits from Gq_soft order by wgtime desc,ID DESC"
rs7.open sql,conn,1,1
if rs7.eof and rs7.bof then
response.write " "
Else
do while not rs7.eof
%>
<TR>
<TD height="20" valign="middle" class="xiamian">· <a href='open.asp?action=down&id=<%=rs7("id")%>' target='_blank' Title='软件标题：<%=rs7("title")%> 发表时间：<%=rs7("wgtime")%> 下载次数：<%=rs7("Hits")%>次'><%=left(rs7("title"),15)%>...</a></TD>
</TR>
<%
rs7.movenext
loop
End If
rs7.close
set rs7=nothing
%>
<%
set rs8=server.createobject("adodb.recordset")
sql="select top 10 id,wgtype,Title,url,Content,wgtime,Hits from Gq_soft order by Hits desc,ID DESC"
rs8.open sql,conn,1,1
if rs8.eof and rs8.bof then
response.write " "
Else
do while not rs8.eof
%>
<TR>
<TD height="20" valign="middle" class="xiamian">· <a href='open.asp?action=down&id=<%=rs8("id")%>' target='_blank' Title='软件标题：<%=rs8("title")%> 发表时间：<%=rs8("wgtime")%> 下载次数：<%=rs8("Hits")%>次'><%=left(rs8("title"),15)%>...</a></TD>
</TR>
<%
rs8.movenext
loop
End If
rs8.close
set rs8=nothing
%>
</TABLE></td>
</tr>
</table>
<%
Response.Write "<table width=" & tee5.TabWidth & " height=24 border=0 align=center cellpadding=5 cellspacing=1 class=tableBorder1>" & vbCrLf
Response.Write "<Th align=center colspan=20>"
Response.Write "家族排行"
Response.Write "</Th>" & vbCrLf%>
<tr><%For i = 1 To 30%>
<TD align=center bgcolor=#FFFFFF><a href="/Search.asp?key=<%=Year(Date)%>-<%=Month(date)%>-<%=i%>&menu=all&otype=sdate&" target=_blank><%=Month(date)%>月<%=i%>日</a></TD><%
If i Mod 15=0 Then
Response.Write "</TR>"
End If
Next
Response.Write "</table>" & vbCrLf%>
<script language="JavaScript">
<!--
var limit="1:00"
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+" "
else
curtime=cursec+"秒后重刷本页！"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}
window.onload=beginrefresh
//-->
</script>
<%Response.Write " " & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>"
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,LinkType,title from Gq_link where LinkType=0 and top=1 order by id asc"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
'Response.Write " "
End If
do while not rs2.eof
Response.Write " "
rs2.movenext
loop
rs2.close
set rs2=nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=22>" & vbCrLf
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,LinkType,title from Gq_link where LinkType=1 and top=1 order by id asc"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
Response.Write " "
End If
do while not rs2.eof
Response.Write " <a href="&rs2("imglink")&" target=_blank><img src="&rs2("imgurl")&" width=88 height=31 border=0 title="&rs2("title")&"></a> "
rs2.movenext
loop
rs2.close
set rs2=nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
tee5.footer()
CloseConn()
%>
