makejs.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日"
call titlen(piclen)
if rs("imgtime")=1 then
str = str & ""&rs("imgsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br>"
else
str = str & ""&rs("imgsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><br>"
end if
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>

<!--生成专题列表代码-->
<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 desc"
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 & ""&rs("topicsign")&"<a href=./topiclist.asp?topicid="& rs_1("topicid")& ">"& rs_1("topicname")& "</a><br>"
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>

<!-- 生成首页大类代码-->
<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('" 

sql_1 = "select top "&rs("classnum")&" id,classid,title,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 & "')"
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(classlen)
if rs("classtime")=1 then
str = str & ""&rs("classsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br>"
else
str = str & ""&rs("classsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><br>"
end if
rs_1.movenext
n=n+1
loop 
str=str & "')"
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>" 
sql_1 = "select top "&rs("boardnum")&" id,boardid,title,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
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("boardname")&"</td><td><font color=red>暂时还没有文章！</font></td></tr>"
str=str & "</table>')"
else
do while not rs_1.EOF 
temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日"
call titlen(boardlen)
if rs("boardtime")=1 then
str = str & "<tr><td valign=top>"&rs("headsign")&"</td><td><a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br></td></tr>"
else
str = str & "<tr><td valign=top>"&rs("headsign")&"</td><td><a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& 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("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
%>

<!-- 生成最新代码-->
<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\new.js"),true)
str="document.write('" 
sql_1 = "select top 23  id,boardid,title,fpath,fname,ifshow,addtime from article where ifshow=1 order by id desc"
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 
temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日"
call titlen(newest)
if rs("headtime")=1 then
str = str & ""&rs("headsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br>"
else
str = str & ""&rs("headsign")&"<a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><br>"
end if
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>

<!-- 生成最新新闻页最新新闻代码-->
<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\newsnew.js"),true)
str="document.write('" 
sql_1 = "select top 23  id,boardid,title,fpath,fname,ifshow,addtime from article where ifshow=1 order by id desc"
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 
temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日"
call titlen(newest)
if rs("headtime")=1 then
str = str & ""&rs("headsign")&"<a  href=../"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><font color=666666>("& temptime & ")</font><br>"
else
str = str & ""&rs("headsign")&"<a  href=../"& rs_1("fpath")& "/"& rs_1("fname")& " target=_blank title="&rs_1("title")&">"& tlen& "</a><br>"
end if
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>



<%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("inc\end.asp"),true)
str="<center><br> 版权所有：<a href=http://www.it162.com target=_blank>网页酷吧</a> <br>"
fd.write str
fd.close
%>
</table>
<br>