📄 outjs.asp

📁 图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业
💻 ASP
字号:
<!--#INCLUDE FILE="conn.asp" --> 
<%
  if session("admin")="" then
  response.redirect "login.asp"
  else
	if session("flag")>2 then
		response.write"<SCRIPT language=JavaScript>alert('您没有操作的权限！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
	end if
  end if
  
%>

<head>
<style type=text/css>
body  { margin:0px; font:9pt "宋体"; SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #d6d6d6; SCROLLBAR-SHADOW-COLOR: #d6d6d6; SCROLLBAR-3DLIGHT-COLOR: #135184; SCROLLBAR-ARROW-COLOR: white; SCROLLBAR-TRACK-COLOR: #d6d6d6; SCROLLBAR-DARKSHADOW-COLOR: #135184}
td {  font-size: 12px; color: #006600}
</style> 

</head>

<BR><BR><table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center> 
<tr bgcolor=#cccccc><td colspan=2>☆ 十佳漫画榜 ☆ </td></tr> <%
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("..\js\top10pic.js"),true)
str="document.write('" 
sql_1 = "select top 10   picid,picname,tday,picsy from pic where picsy<>0 and tday=date() order by tohit desc"
rs_1.Open sql_1,conn,1,2
if rs_1.eof then
response.write "<tr ><td align=right width='30%' >☆ 十佳漫画榜 ☆</td><td><font color=red>暂时还没有☆ 十佳漫画榜 ☆！</font></td></tr>"
str=str & "</table>')"
else
do while not rs_1.EOF 
str = str & "<li><a  href=pic_list.asp?picid="& rs_1("picid")& " target=_blank>"& left(rs_1("picname"),11)& "</a>"
rs_1.movenext
n=n+1
if n=11 then exit do
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>☆ 十佳文字榜 ☆ </td></tr> <%
n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("..\js\top10list.js"),true)
str="document.write('" 
sql_1 = "select top 10  articleid,title,today from learning where syxs<>0 and today=date()  order by todayhits desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
response.write "<tr><td align=right width='30%' >☆ 十佳文字榜 ☆</td><td><font color=red>暂时还没有☆ 十佳文字榜 ☆！</font></td></tr>"
str=str & "</table>')"
else
do while not rs_1.EOF 
str = str & "<li><a  href=show.asp?id="& rs_1("articleid")& " target=_blank>"&left(rs_1("title"),11)& "</a>"
rs_1.movenext
n=n+1
if n=11 then exit do
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> <BR><BR><HR SIZE="1"><BR><BR> <TABLE WIDTH="100%" BGCOLOR=#999999 CELLSPACING="1"  CELLPADDING="5" ALIGN=center> 
<TR BGCOLOR=#cccccc><TD HEIGHT="27" WIDTH="20%">☆ 十佳漫画榜 ☆</TD><TD HEIGHT="27" WIDTH="20%">☆ 
十佳文字榜 ☆</TD></TR><TR BGCOLOR=#cccccc VALIGN="TOP"><TD HEIGHT="28"><SCRIPT LANGUAGE="javascript" SRC="../js/top10pic.js"></SCRIPT></TD><TD HEIGHT="28"><SCRIPT LANGUAGE="javascript" SRC="../js/top10list.js"></SCRIPT></TD></TR></TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -