📄 new.asp

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

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<%
  dim rs
  set rs = server.createobject("adodb.recordset")
	dim classid
	dim classclass
   	if request("classid")<>"" then
		classid=request("classid")
   	else
		classid=1
   	end if
  	set rs = server.createobject("adodb.recordset")
 	set rs1=server.createobject("adodb.recordset")
  	sql="select * from class where classid="&cstr(classid)
 	rs.open sql,conn,1,1
 	if not rs.eof then
		classname=rs("class")
 	end if
	rs.close
%>
<html><head><tltle></tltle>
<link rel="stylesheet" href="images/style.css">
<base target="_blank">
</head>
<body bgcolor="<%=atablebodycolor%>" topmargin="0" leftmargin="0">
<table border="0" width="100%" cellpadding="0" cellspacing="1">            
<%                
sql="select top " & D_newcount                
sql=sql&" download.id,download.showname,bb,download.dateandtime,download.hits,download.classid,download.Nclassid "                
	sql=sql&" from download where classid= " &classid                
	sql=sql&" order by download.dateandtime desc"                
	rs.open sql,conn,1,1                
	if rs.eof and rs.bof then 
response.write "<tr><td class=BorderOff>没有任何软件</td></tr>"            
	else        
	do while not rs.eof       
		response.write "<tr><td class=BorderOff width='100%' "
response.write "onMouseOver=""this.bgColor='"&atalbebackcolor&"';"" onMouseOut=""this.bgColor='"&boardlinkcolor&"';"""
response.write " height=20><font color="&tablecontentcolor&">"
response.write "≮<a href=list.asp?id="&rs("id")
		response.write "><font color="&tablefontcolor&">"
	if intercept then
		response.write leftb(htmlEncode2(trim(rs("showname"))),26)
		response.write "</font></font></a><font color="&tablecontentcolor&">("
response.write month(rs("dateandtime"))&"."&day(rs("dateandtime"))&")</font></td></tr>"
	else
response.write htmlEncode2(trim(rs("showname")))
response.write "</font></font></a><font color="&tablecontentcolor&">("
	response.write month(rs("dateandtime"))&"."&day(rs("dateandtime"))&")</font></td></tr>"        end if
	rs.movenext                      
	loop                                 
	end if                                
	rs.close                                 
response.write "</tr></table></body></html>"
response.end
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -