📄 create_new.asp
字号:
<!--#include file="Config.asp" -->
<%
on error resume next
dim shu,cut
if Trim(Request.QueryString("shu"))="" or Trim(Request.QueryString("shu"))="0" then
shu=10
else
shu=cint(Request.QueryString("shu"))
end if
if Trim(Request.QueryString("cut"))="" or Trim(Request.QueryString("cut"))="0" then
cut=50
else
cut=cint(Request.QueryString("cut"))
end if
set rs=server.createobject("adodb.recordset")
sql="SELECT top "& shu & " "&CategoryName&"_SoftInfo.SoftID,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.SoftVer,"&CategoryName&"_SoftInfo.RootID,"&CategoryName&"_SoftInfo.CatalogID,"&CategoryName&"_SoftInfo.AllHits,"&CategoryName&"_SoftInfo.SoftTime,"&CategoryName&"_Catalog.CatalogName FROM "&CategoryName&"_SoftInfo,"&CategoryName&"_Catalog where "&CategoryName&"_SoftInfo.CatalogID="&CategoryName&"_Catalog.CatalogID order by "&CategoryName&"_SoftInfo.SoftTime desc,"&CategoryName&"_SoftInfo.SoftID desc"
'response.write sql
'response.end
rs.open sql,conn,1,1
if rs.eof and rs.bof then
HtmlCode="<p align=""center"">Sorry! 没有软件</p>"
else
HtmlCode="<table>"
do while not rs.eof
if rs("SoftTime")=date() then
SoftTime="<FONT color=red>"&month(rs("SoftTime"))&"/"&day(rs("SoftTime"))&"</FONT >"
else
SoftTime="<FONT color=#999999>"&month(rs("SoftTime"))&"/"&day(rs("SoftTime"))&"</FONT >"
end if
HtmlCode=HtmlCode&"<TR><TD> <img src=down/images/d_2.gif border=0> [<A href='"&url&"SoftList/Catalog_"&rs("CatalogID")&"_SoftTime_Desc_1.html' target='_blank'>"&rs("CatalogName")&"</A>] <A href='"&url&"SoftView/SoftView_"&rs("SoftID")&".html' title='"&rs("SoftName")&" "&rs("SoftVer")&"' target='_blank'>"&cutStr(rs("SoftName")&" "&rs("SoftVer"),cut) &"</A> </TD></TR>"
rs.movenext
loop
HtmlCode=HtmlCode&"</table>"
end if
'response.write HtmlCode
'response.end
foolcat="document.write ("&Chr(34)&HtmlCode&Chr(34)&");"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("js/new.js"))
fout.WriteLine foolcat
fout.close
set fout = nothing
%>
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<table width="100%" border="0" cellspacing="2">
<tr>
<td width="20%" align="center" valign="top" class="tdbgleft"><SCRIPT language=javascript1.2>
function showsubadmin_menu(sid)
{
whichEl = eval("subadmin_menu" + sid);
if (whichEl.style.display == "none")
{
eval("subadmin_menu" + sid + ".style.display=\"\";");
}
else
{
eval("subadmin_menu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
<tr>
<td bgcolor="#FFFFFF">
<table width="135" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td><a href="Admin_Index.asp">管理首页</a> | <a href="User.asp?action=logout">退出</a>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
<tr>
<td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(0)" bgcolor="#efefef" style="cursor: crosshair;">
<span><font color=#0066CC><b>软件管理</b></font></span> </td>
</tr>
<tr>
<td style="display:" id='subadmin_menu0' bgcolor="#FFFFFF">
<div class=sec_admin_menu>
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20><a href=Admin_SoftInfo.asp>添加软件</a></td></tr>
<tr>
<td height=20><a href=Admin_Skycn.asp>天空专用</a> | <a href=Admin_Newhua.asp>华军专用</a></td>
</tr>
<tr><td height=20><a href=Admin_Soft_List.asp?action=l>软件列表</a> | <a href=Admin_Soft_List.asp>管理搜索</a></td></tr>
<tr><td height=20><a href=Admin_SoftDown_Catalog.asp>软件分类</a> | <a href=Admin_SoftDown_Catalog.asp?action=add>添加分类</a></td></tr>
<tr><td height=20><a href=Admin_BatchLink.asp>下载地址批量替换</a></td></tr>
<tr><td height=20><a href=Admin_BatchDelEssay.asp>批删评论</a></td></tr>
<tr><td height=20><a href=Admin_Publish.asp>前台发布软件管理列表</a></td></tr>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
<tr>
<td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(1)" bgcolor="#efefef" style="cursor: crosshair;">
<span><font color=#0066CC><b>文章管理</b></font></span> </td>
</tr>
<tr>
<td style="display:" id='subadmin_menu1' bgcolor="#FFFFFF">
<div class=sec_admin_menu>
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20><a href=Admin_Article.asp>文章添加</a></td></tr>
<tr><td height=20><a href=Admin_Article_List.asp?action=l>文章列表</a> | <a href=Admin_Article_List.asp>管理搜索</a></td></tr>
<tr><td height=20><a href=Admin_Article_Catalog.asp>文章分类</a> | <a href=Admin_Article_Catalog.asp?action=add>添加分类</a></td></tr>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
<tr>
<td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(2)" bgcolor="#efefef" style="cursor: crosshair;">
<span><font color=#0066CC><b>生成HTML</b></font></span> </td>
</tr>
<tr>
<td style="display:" id='subadmin_menu2' bgcolor="#FFFFFF">
<div class=sec_admin_menu>
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20><a href=Create_Soft_Default.asp>默认首页</a></td></tr>
<tr><td height=20><a href=Create_Soft_List.asp>软件列表</a> | <a href=Create_Soft_View.asp>软件信息页</a></td></tr>
<tr><td height=20><a href=Create_Soft_News.asp>最新软件</a> | <a href=Create_Soft_Top.asp>下载排行榜</a></td></tr>
<tr><td height=20><a href=Create_Soft_Commend.asp>推荐软件</a></td></tr>
<tr><td height=20><table height="5" border="0"><tr><td></td></tr></table><a href=Create_Article_Default.asp>文章首页</a></td></tr>
<tr><td height=20><a href=Create_Article_List.asp>文章列表</a> | <a href=Create_Article_View.asp>文章浏览页</a></td></tr>
<tr><td height=20><table height="5" border="0"><tr><td></td></tr></table>
<a href=Create_new.asp>最新 JS</a> | <a href=Create_soft.asp>资源信息JS</a></td>
</tr>
<tr>
<td height=20><a href=Create_JsFiles.asp>其他HTML页及JS文件</a></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table cellpadding=0 cellspacing=1 width="100%" align=center border="0" bgcolor="#cccccc">
<tr>
<td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick="showsubadmin_menu(3)" bgcolor="#efefef" style="cursor: crosshair;">
<span><font color=#0066CC><b>系统设置</b></font></span> </td>
</tr>
<tr>
<td style="display:" id='subadmin_menu3' bgcolor="#FFFFFF">
<div class=sec_admin_menu>
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20><a href=Admin_Setup.asp>基本设置</a> | <a href=Admin_updateRs.asp>数据更新</a></td></tr>
<tr><td height=20><a href=Admin_Messages.asp>系统公告</a> | <a href=Admin_Messages.asp?action=add>添加公告</a></td></tr>
<tr><td height=20><a href=Admin_Template.asp>模板设置</a> | <a href=Admin_Template.asp?action=news>添加</a></td></tr>
<tr><td height=20><a href=Admin_SoftLinkType.asp>下载站预定义</a> | <a href=Admin_SoftLinkType.asp?action=add>添加</a> </td></tr>
<tr><td height=20><a href=Admin_lockIP.asp>IP 限制</a> | <a href=admin_lockIP.asp?action=add>添加</a></td></tr>
<tr><td height=20><a href=Admin_SiteLink.asp>友情链接</a> | <a href=Admin_SiteLink.asp?action=add>添加</a></td></tr>
<tr><td height=20><a href=Admin_User.asp>用户管理</a> | <a href=Admin_UserSetting.asp>添加</a></td></tr>
</table>
</div>
</td>
</tr>
</table>
</td>
<td class="b1" valign="top"> <table width="100%" border="0" cellpadding="5">
<tr>
<td class="tdbg1"><strong>成功更新JS数据</strong></td>
</tr>
<tr>
<td class="tdbg2">成功更新JS：<font color="#FF0000"><strong>new.js </strong></font><script
language="JavaScript1.1" src="<font color="#FF0000">***</font>/js/new.js"></script></td>
</tr>
<tr>
<td class="tdbg2"><a href="javascript:history.go(-1)" ><< 返回上一页</a></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="2">
<tr>
<td align="center" class="b1">版权所有 Copyright© 2001-2003 www.mesky.cn, All Rights
Reserved. <br>
授权使用：动感网络 程序设计：小张 版本信息：ActiveDown System XP V2.0 </td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -