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>&nbsp;<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")) & "日&nbsp;"
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"-->