document.write('<font size=2 color=\"#FFFF00\">');
var enabled = 0; today = new Date();var day; var date;if(today.getDay()==0) day = "星期日 "if(today.getDay()==1) day = "星期一 "if(today.getDay()==2) day = "星期二 "if(today.getDay()==3) day = "星期三 "if(today.getDay()==4) day = "星期四 "if(today.getDay()==5) day = "星期五 "if(today.getDay()==6) day = "星期六 "document.fgColor = " FF0072";date1 =(today.getYear()) + "年" + (today.getMonth() + 1 ) + "月" + today.getDate() + "日 " ;date2 = day ;document.write(date1.fontsize(2));document.write(date2.fontsize(2));document.write("<span id='clock'></span>");var now,hours,minutes,seconds,timeValue;function showtime(){now = new Date();hours = now.getHours();minutes = now.getMinutes();seconds = now.getSeconds();timeValue = (hours >= 12) ? "时间 " : "时间 ";timeValue += hours+ ":";timeValue += ((minutes < 10) ? "0" : "") + minutes + ":";timeValue += ((seconds < 10) ? "0" : "") + seconds + "";clock.innerHTML = timeValue;setTimeout("showtime()",100);}showtime();
document.write('</font>');这是原程序的js文件。我现在程序放在了美国主机上,,但是网站面向的是中国人。由于调用的是服务器时间。。所以现在造的情况是,,网站信息的显示错误。。当前显示的是昨天的信息。。我应该怎么改,,美国主机时间与东八区时间(中国时间相差15小时),直接调用用户电脑的时间?还是?本人小白,希望解答的弱智点。。傻瓜点
var enabled = 0; today = new Date();var day; var date;if(today.getDay()==0) day = "星期日 "if(today.getDay()==1) day = "星期一 "if(today.getDay()==2) day = "星期二 "if(today.getDay()==3) day = "星期三 "if(today.getDay()==4) day = "星期四 "if(today.getDay()==5) day = "星期五 "if(today.getDay()==6) day = "星期六 "document.fgColor = " FF0072";date1 =(today.getYear()) + "年" + (today.getMonth() + 1 ) + "月" + today.getDate() + "日 " ;date2 = day ;document.write(date1.fontsize(2));document.write(date2.fontsize(2));document.write("<span id='clock'></span>");var now,hours,minutes,seconds,timeValue;function showtime(){now = new Date();hours = now.getHours();minutes = now.getMinutes();seconds = now.getSeconds();timeValue = (hours >= 12) ? "时间 " : "时间 ";timeValue += hours+ ":";timeValue += ((minutes < 10) ? "0" : "") + minutes + ":";timeValue += ((seconds < 10) ? "0" : "") + seconds + "";clock.innerHTML = timeValue;setTimeout("showtime()",100);}showtime();
document.write('</font>');这是原程序的js文件。我现在程序放在了美国主机上,,但是网站面向的是中国人。由于调用的是服务器时间。。所以现在造的情况是,,网站信息的显示错误。。当前显示的是昨天的信息。。我应该怎么改,,美国主机时间与东八区时间(中国时间相差15小时),直接调用用户电脑的时间?还是?本人小白,希望解答的弱智点。。傻瓜点
那你得到 now.getHours();
把它减掉15 在set进去不就行了..
<!--#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="55"
w7="75"
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&">地区线路</th>" & vbCrLf
Response.Write "<th width="&w5&">客服QQ</th>" & vbCrLf
Response.Write "<th>版本介绍</th>" & vbCrLf
Response.Write "<th width="&w6&">详细介绍</th>" & vbCrLf
Response.Write "<th width="&w7&">推荐星级</th>" & vbCrLf
Response.Write "</TR>" & vbCrLf
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
Response.Write "<TABLE cellSpacing=1 cellPadding=3 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>"
Response.Write "<tr>"
Response.Write "<th>家族名称</th>"
Response.Write "<th>家族QQ群</th>"
Response.Write "<th>家族老大</th>"
Response.Write "<th>游戏版本</th>"
Response.Write "<th>主页</th>"
Response.Write "<th>地区线路</th>"
Response.Write "<th>家族创建日期</th>"
Response.Write "<th>支持度</th>"
Response.Write "<th>TOP排名</th>"
Response.Write "</tr>"'固顶家族列表
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 "<tr><td align='center' bgcolor='#FFFFFF' colspan='9'><FONT color=#FF0000>超强家族等你来拿,家族超强实力象征</FONT></td></tr>"
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
%>
这是首页源代码
<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>
<td align="center"><B><FONT color=#ff0000>超强家族</FONT></B><input type=submit value=" 支 持 " style=background-color:></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 "<tr><td align='center' bgcolor='#FFFFFF' colspan='9'>当前没有最佳人气家族,想在这里出现吗,赶快发动您族员来点击吧!</td></tr>"
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>
<td align="center"><B><FONT color=#ff0000>人气第<%= t %>名·</FONT></B><input type=submit value=" 支 持 " style=background-color:></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
<%
Response.Write "</tr>"
if t>=Rankings then exit do
rs.movenext
loop
rs.close
end if
Response.Write "</table>" & vbCrLf%>
<%
Response.Write "<TABLE cellSpacing=1 cellPadding=3 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th>最新文章top10</th>" & vbCrLf
Response.Write "<th>热门文章top10</th>" & vbCrLf
Response.Write "<th>最新软件top10</th>" & vbCrLf
Response.Write "<th>热门软件top10</th>" & vbCrLf
Response.Write "</tr>" & vbCrLf%>
<tr>
<td width="25%" bgcolor="#FFFFFF" class="you"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center"><%
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 "<div align=center><br>当前没有最新文章<br><br></div>"
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
%>
</table>
</td>
<td width="25%" bgcolor="#FFFFFF"><table cellspacing=1 cellpadding=1 width="98%" border=0 align="left"><%
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 "<div align=center><br>当前没有热门文章<br><br></div>"
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
%>
www.222sf.net
www.gm521.net
www.fsd-cqsf.cn
www.hjsf-yxhjsf.cn
www.cjbtsf.cn
www.159sf.cn
www.gmgm521.cn
www.cqhjsf.cn
www.cqhjsf.com
www.cqhjsf.com.cn
www.cqljsf.cn
www.sun2niang.com
www.sun2niang.net
www.sun2niang.com.cn
www.sun2niang.cn
www.sun2n.net
www.sun2n.com.cn
www.ssshishi.cn
www.wangtongchuanqisifu.cn
www.njls120.cn
www.025ls.com
www.e-suning.com
www.tjls120.cn
www.bjls120.cn
www.cqls120.cn
www.shls120.cn
www.cjnew.com
www.mayouwang.com