UC知道如何自动生成JS文件,每次都要手动更新怎么自动化
来源：百度知道 编辑：UC知道 时间：2024/06/05 15:19:23
后台更新JS文件,每次都要点击才会在首页更新，如何才能自动更新定时或有新文章自动刷新都行,在线等
--------
下面是ASP后台更新JS文件的代码
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if
if session("flag")>1 then
errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
call diserror()
response.end
end if%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
--------
下面是ASP后台更新JS文件的代码
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
founderr=true
errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
call diserror()
response.end
end if
if session("flag")>1 then
errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
call diserror()
response.end
end if%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
很简单啊！试试下面的.后面的时间你可以自己改
<%
If datediff("s",times,NOW()) > 3600 Then
jishu=1
jscr="document.write('"
set rs_url=server.createobject("adodb.recordset")
sql_url="select top 10 wwwid,wwwurl,wwwweb,addtime,isok,hits from happywz_WEB order by wwwid desc"
rs_url.open sql_url,conn,1,1
while not rs_url.eof
jscr=jscr+"<LI><B>"&jishu&".</B><A HREF="&rs_url("wwwurl")&" TARGET=_blank>"&left(rs_url("wwwweb"),11)&"</A></LI>"
jishu=jishu+1
rs_url.movenext
wend
rs_url.close
set rs_url=nothing
jscr=jscr+"')"
Set fso= Server.CreateObject(""&fsoset&"")
set fd=fso.createtextfile(server.MapPath("..\js\wztop.js"),true)
fd.writeline jscr
fd.close
%> <table cellspacing="1"