📄 syjs.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="../inc/const.asp"-->
<%
dim shu,news,classid,foolcat,showname,title,new55,hot55
if request.querystring("shu")="" or request.querystring("shu")=0 then
shu=13
else
shu=CINT(request.querystring("shu"))
end if
set rs=server.createobject("adodb.recordset")

if request("classid")<>"" then
classid=request("classid")
session("classid")=classid
classid=session("classid")
sql="select id,showname,bb,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where download.classid="&classid                           
sql=sql&" order by download.dateandtime Desc"  
set rs = conn.Execute (sql)
news=1
do until rs.eof
showname=""&rs("showname")&" "&rs("bb")&""
	if intercept then
		title=left(showname,20)+"..."
	else
		title=showname
	end if

tmp = "http://" & request.servervariables("SERVER_NAME") & _            
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/admin/syjs.asp"))
   foolcat = foolcat + "☉<a href="&tmp&"/list.asp?id="&rs("id")&" target=_blank>" & title & "</a>("&month(rs("dateandtime"))&"月"&day(rs("dateandtime"))&"日)<br>"
news=news+1     
	 if news>shu then exit do
rs.MoveNext
loop

foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../js/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\news"& classid &".js")
fout.WriteLine foolcat

else
response.write "cuowu"
response.end
end if

session("classid")=""
fout.close
set fout = nothing
Rs.Close
set Rs=nothing
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#468ea3"><br><br>
<p align=center><FONT color="#FFFFFF"><b>成功更新JS文件</b></FONT><br><br><a href="javascript:history.go(-1)">返回</a></p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -