?? makejs.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="./inc/head.asp"-->
<!--#include file="config.asp"-->
<%sub titlen(i)
tlen=rs_1("title")
if len(tlen)>i then
tlen=left(tlen,i)&".."
else
tlen=tlen
end if
end sub%>
<% dim tlen
tlen=""
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from [jsconst] order by jsid desc"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td height="20">當前位置：<a href=main.asp>管理首頁</a> >> <a href=makejs.asp>生成代碼</a></td></tr></table>
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#eeeeee><td colspan=2 align=right><%if session("userkey")=3 then%><a href=admin_jsconst.asp?action=jslist>查看JS代碼信息</a> <%elseif session("userkey")>=4 then%><a href=admin_pic.asp>首頁圖片新聞</a> | <a href=admin_jsconst.asp?action=jslist>查看JS代碼信息</a> | <a href=admin_jsconst.asp>配置JS代碼參數</a><%end if%></td></tr></table>
<br><br>
<!--生成專題列表代碼-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>專題列表代碼</td></tr>
<%
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\topic.js"),true)
str="document.write('"
sql_1 = "select top "&rs("topicnum")&" topicid,topicname,topicinfo,ifpub from topic where ifpub=1 order by topicid"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >專題列表</td><td><font color=red>暫時還沒有專題！</font></td></tr>"
str=str & "')"
else
do while not rs_1.EOF
str = str &"<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td width=31% align=right valign=middle><img src=images/1-1_08.jpg width=9 height=5 alt=></td><td width=69% height=26 class=menu> <a href=topiclist.asp?topicid="& rs_1("topicid")& " class=style3>"& rs_1("topicname")& "</a></td></tr><tr align=center valign=middle><td colspan=2><img src=images/1-1_07.jpg width=109 height=1 alt=></td></tr></table>"
rs_1.movenext
n=n+1
loop
str=str & "')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>專題列表</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
%>
</table>
<br><br>
<!-- 生成首頁大類代碼09-10-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首頁公告代碼</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class where classname='焦點新聞'"
rs_2.Open sql_2,conn,1,1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\indexvote.js"),true)
str="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0 class=xinwen>"
sql_1 = "select top "&rs("classnum")&" id,classid,title,tit,fpath,fname,ifshow,addtime from article where classid="&rs_2("classid")&" and ifshow=1 and ifgood=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("classname")&"</td><td><font color=red>暫時還沒有文章！</font></td></tr>"
else
do while not rs_1.EOF
temptime =year(rs_1("addtime")) & "-" & month(rs_1("addtime")) & "-" & day(rs_1("addtime"))
call titlen(20)
if rs("classtime")=1 then
str = str & "<tr class=TPxinwen><td width=3% class=xinwen></td><td width=4% valign=middle class=xinwen><img src=images/xinwen_50.jpg alt= width=6 height=6></td><td width=93% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
else
str = str & "<tr class=TPxinwen><td width=3% class=xinwen></td><td width=4% valign=middle class=xinwen><img src=images/xinwen_50.jpg alt= width=6 height=6></td><td width=93% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
end if
rs_1.movenext
n=n+1
loop
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("classname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
</table>
<br><br>
<!-- 生成首頁大類代碼09-10-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首頁政策法規代碼</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class where classname='政策法規'"
rs_2.Open sql_2,conn,1,1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\zcfg.js"),true)
str="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0 class=xinwen>"
sql_1 = "select top "&rs("classnum")&" id,classid,title,tit,fpath,fname,ifshow,addtime from article where classid="&rs_2("classid")&" and ifshow=1 and ifgood=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("classname")&"</td><td><font color=red>暫時還沒有文章！</font></td></tr>"
else
do while not rs_1.EOF
temptime =year(rs_1("addtime")) & "-" & month(rs_1("addtime")) & "-" & day(rs_1("addtime"))
call titlen(20)
if rs("classtime")=1 then
str = str & "<tr class=TPxinwen><td width=3% class=xinwen></td><td width=4% valign=middle class=xinwen><img src=images/xinwen_50.jpg alt= width=6 height=6></td><td width=93% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
else
str = str & "<tr class=TPxinwen><td width=3% class=xinwen></td><td width=4% valign=middle class=xinwen><img src=images/xinwen_50.jpg alt= width=6 height=6></td><td width=93% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
end if
rs_1.movenext
n=n+1
loop
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("classname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
</table>
<br><br>
<!-- 生成首頁大類代碼09-10-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>首頁大類代碼</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class order by classid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\class"&rs_2("classid")&".js"),true)
str="document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>"
sql_1 = "select top "&rs("classnum")&" id,classid,title,tit,fpath,fname,ifshow,addtime from article where classid="&rs_2("classid")&" and ifshow=1 and ifgood=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("classname")&"</td><td><font color=red>暫時還沒有文章！</font></td></tr>"
else
do while not rs_1.EOF
temptime =year(rs_1("addtime")) & "-" & month(rs_1("addtime")) & "-" & day(rs_1("addtime"))
call titlen(classlen)
if rs("classtime")=1 then
str = str & "<tr><td width=8% class=xinwen></td><td width=92% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
else
str = str & "<tr><td width=8% class=xinwen></td><td width=92% class=xinwen><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=style5 title="&rs_1("tit")&">"&tlen&"</a></td></tr>"
end if
rs_1.movenext
n=n+1
loop
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("classname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.MoveNext
Loop
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
</table>
<br><br>
<!--生成欄目精選代碼（焦點新聞）-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b> 大類欄目精選代碼</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class order by classid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\focus"&rs_2("classid")&".js"),true)
str="document.write('<table width=135 border=0 cellspacing=0 cellpadding=0>"
sql_1 = "select top "&rs("focusnum")&" id,classid,title,tit,fpath,fname,ifshow,addtime from article where classid="&rs_2("classid")&" and ifgood=1 and ifshow=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("classname")&"</td><td><font color=red>暫時還沒有文章！</font></td></tr>"
else
do while not rs_1.EOF
temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日 "
call titlen(focuslen)
if rs("focustime")=1 then
str = str & "<tr><td valign=top>"&rs("focussign")&"</td><td><a href=/"& rs_1("fpath")& "/"& rs_1("fname")& " class=style3 title="&rs_1("tit")&">"&tlen&"</a><font color=666666>("& temptime & ")</font><br></td></tr>"
else
str = str & "<tr><td valign=top>"&rs("focussign")&"</td><td><a href=/"& rs_1("fpath")& "/"& rs_1("fname")& " class=style3 title="&rs_1("tit")&">"&tlen&"</a><br></td></tr>"
end if
rs_1.movenext
n=n+1
loop
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("classname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.MoveNext
Loop
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
</table>
<br><br>
<!--生成子類代碼-->
<table width="95%" bgcolor=#999999 cellspacing="1" cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>二級頁面子類代碼</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from board order by boardid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("js\board"&rs_2("boardid")&".js"),true)
str="document.write('<table width=90% border=0 cellspacing=0 cellpadding=0>"
sql_1 = "select top "&rs("boardnum")&" id,boardid,title,tit,fpath,fname,ifshow,addtime from article where boardid="&rs_2("boardid")&" and ifshow=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("boardname")&"</td><td><font color=red>暫時還沒有文章！</font></td></tr>"
else
do while not rs_1.EOF
temptime =year(rs_1("addtime")) & "-" & month(rs_1("addtime")) & "-" & day(rs_1("addtime"))
call titlen(boardlen)
if rs("boardtime")=1 then
str = str & "<tr><td width=25><img src=img/222.gif width=9 height=7></td><td height=23><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " title="&rs_1("tit")&">"&rs_1("tit")&"</a></td><td width=85 align=right class=a><font color=666666>["& temptime & "]</font></td></tr><tr><td></td><td background=img/027.gif colspan=2><img src=img/027.gif width=3 height=1></td></tr>"
else
str = str & "<tr><td width=25><img src=img/222.gif width=9 height=7></td><td height=23><a href=./"& rs_1("fpath")& "/"& rs_1("fname")& " title="&rs_1("tit")&">"&rs_1("tit")&"</a></td><td width=85 align=right class=a><font color=666666>["& temptime & "]</font></td></tr><tr><td></td><td background=img/027.gif colspan=2><img src=img/027.gif width=3 height=1></td></tr>"
end if
rs_1.movenext
n=n+1
loop
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("boardname")&"</td><td><font color=blue>完成更新</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.MoveNext
Loop
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
<%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("inc\end.asp"),true)
str="<center><br>■■■■■■■■ <font color=red>歡迎光臨瀏陽市國稅局網站后臺管理系統</font> ■■■■■■■■<br><br>版權所有：<a href=http://# >瀏陽市國稅局</a><br><br>"
fd.write str
fd.close
%>
</table>
<br>
<!--#include file="./inc/end.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -