📄 makejsall.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!

💻 ASP

字号:

<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<%
dim all
dim this
all=request("all")
this=request("this")
set rs=server.CreateObject ("ADODB.RecordSet")
rs.open "select * from infotype order by id",conn,1,1
if all="" then
all=rs.recordcount
end if
if this="" then
this=0
end if
if cint(all)>cint(this) then
rs.move[this]
typeID=rs("id")
rs.close
set rs=nothing
jsnum=xtlmjs
%>
<head>
<title>管理中心 -晓宇听幽 网站内容管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>

<body>
<%
jsdot=request("jsdot")
jscolo=request("jscolo")

'----------------------------------------------------生成总类别包含小类
if typeID<>"0" then
set rs=server.CreateObject ("ADODB.RecordSet")
rs.open "select * from infotype where id="&typeID,conn,1,1
if not rs.EOF then
ts=rs("ts")
end if
rs.close
sql="select * from infotype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq& " or tid="&rs("id")&""
rs.MoveNext
loop
end if
rs.close
end if
'-----------------------------------------------------生成总类别包含小类结束
'-----------------------------生成文字新闻
set rs=server.CreateObject ("ADODB.RecordSet")
if typeID="0" then
rs.Source="select top 8 * from info order by date desc"
else
rs.Source="select top 8 * from info where tid="&typeID&""&sqqq&" order by date desc"
end if
rs.Open rs.source,conn,1,1
do while not rs.eof
fileming=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
news1=news1&"·<a href="&AllPath&"html/"&fileming&"-1.html>"&rs("title")&"</a><br>"
tzx=tzx+1
if tzx=jsnum then exit do
rs.movenext
loop
rs.close
jscontent="document.write("""&news1&""")"
'-----------------------------生成文字新闻结束

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../js/listjs"&typeID&".js"))
fout.WriteLine jscontent
fout.close
response.write"<meta http-equiv=""refresh"" content=""0;url=makejsall.asp?this="&this+1&"&all="&all&""">"
response.write"<center>共有"&all&"个文件需要生成，目前生成第 "&this&" 个"
else
response.write"<center>全部系统栏目JS生成完毕！<P>共生成"&all&"个JS<P>"
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -