default.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 576 行 · 第 1/2 页
ASP
576 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if Not ChkPost then response.redirect ("../../login/chklogin.asp?login=4")
Response.Expires = 0
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="101" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
act=Replace_Text(Trim(Request("act")))
SErverPath=Request.ServerVariables("Http_Host")
SErverPath="http://"&SErverPath&HOPE_InstallDir
Select case act
Case "yixiang_AD"
SaveUpFilesPath="UploadFile/AD/"
WebPath=SErverPath&"UploadFile/AD/"
Case "yixiang_expouppic"
SaveUpFilesPath="UploadFile/expouppic/"
WebPath=SErverPath&"UploadFile/expouppic/"
Case "yixiang_infouppic"
SaveUpFilesPath="UploadFile/infouppic/"
WebPath=SErverPath&"UploadFile/infouppic/"
Case "yixiang_aboutuppic"
SaveUpFilesPath="UploadFile/aboutuppic/"
WebPath=SErverPath&"UploadFile/aboutuppic/"
Case "yixiang_Other"
SaveUpFilesPath="UploadFile/Other/"
WebPath=SErverPath&"UploadFile/Other/"
Case "yixiang_User"
SaveUpFilesPath="UploadFile/User/"
WebPath=SErverPath&"UploadFile/User/"
Case "yixiang_vipinfopic"
SaveUpFilesPath="UploadFile/vipinfopic/"
WebPath=SErverPath&"UploadFile/vipinfopic/"
Case "yixiang_js"
SaveUpFilesPath="ads/JS/"
WebPath=SErverPath&"ads/JS/"
Case "yixiang_up_adsimg"
SaveUpFilesPath="ads/up_adsimg/"
WebPath=SErverPath&"ads/up_adsimg/"
Case "yixiang_Cofferlist"
SaveUpFilesPath="corporation/offerlist/"
WebPath=SErverPath&"corporation/offerlist/"
Case "yixiang_Ctrade"
SaveUpFilesPath="corporation/trade/"
WebPath=SErverPath&"corporation/trade/"
Case "yixiang_Hdetail"
SaveUpFilesPath="Help/bin/detail/"
WebPath=SErverPath&"Help/bin/detail/"
Case "yixiang_Hinfo"
SaveUpFilesPath="Help/bin/info/"
WebPath=SErverPath&"Help/bin/info/"
Case "yixiang_community"
SaveUpFilesPath="info/community/"
WebPath=SErverPath&"info/community/"
Case "yixiang_Idetail"
SaveUpFilesPath="info/detail/"
WebPath=SErverPath&"info/detail/"
Case "yixiang_ptAll"
SaveUpFilesPath="Ptcom/"
WebPath=SErverPath&"Ptcom/"
Case "yixiang_Sofferlist"
SaveUpFilesPath="Seller/offerlist/"
WebPath=SErverPath&"Seller/offerlist/"
Case "yixiang_Sofferdetail"
SaveUpFilesPath="Seller/offerdetail/"
WebPath=SErverPath&"Seller/offerdetail/"
Case "yixiang_Strade"
SaveUpFilesPath="Seller/trade/"
WebPath=SErverPath&"Seller/trade/"
Case "yixiang_Tofferlist"
SaveUpFilesPath="tradeinfo/offerlist/"
WebPath=SErverPath&"tradeinfo/offerlist/"
Case "yixiang_Ttrade"
SaveUpFilesPath="tradeinfo/trade/"
WebPath=SErverPath&"tradeinfo/trade/"
Case "yixiang_Tofferdetail"
SaveUpFilesPath="tradeinfo/offerdetail/"
WebPath=SErverPath&"tradeinfo/offerdetail/"
Case "yixiang_Vipcom"
SaveUpFilesPath="VipCom/"
WebPath=SErverPath&"VipCom/"
Case "yixiang_page"
SaveUpFilesPath="vipinfo/"
WebPath=SErverPath&"vipinfo/"
Case "yixiang_Vofferdetail"
SaveUpFilesPath="vipinfo/offerdetail/"
WebPath=SErverPath&"vipinfo/offerdetail/"
Case else
SaveUpFilesPath="UploadFile/"
WebPath=SErverPath&"UploadFile/"
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成文件管理</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<style type="text/css">
<!--
.STYLE1 {color: #0099CC}
.STYLE2 {color: #FF0000}
-->
</style>
<script language="javascript" >
function isgo()
{
var i=confirm("你确定要删除吗？此操作将删除的是所有的该名目下生成的html文件，不可恢复！请慎重！");
if(i)
{
return true;
}
else
{
return false;
}
}
</script>
</head>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th height=25 class="tableHeaderText">上传文件与生成ＨＴＭＬ文件管理</th>
</tr>
<tr>
<td height="25" bgcolor="#EFF1F8" >
<span style='color:red'>注意：
①删除文件时,请慎重操作。一旦删除后将无法恢复(注意：站点文件夹UploadFile下的图片文件nopicture.gif是默认的无图片显示用，请不要删除)</span></td>
</tr>
<tr><td height="30">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#7B9EDE">
<tr>
<td bgcolor="#E2E8F3">
<span class="STYLE1"><strong> 快捷批量删除生成文件</strong>(<font color="red">提示：此操作将删除该名目下的<font color="#0033FF"><b>所有</b></font>的生成的html文件，不可恢复！</font>)</span>:<br>
(<span class="STYLE2">一</span>).<a href="delfolderin.asp?dir=tradeinfo/trade" onClick="return isgo();">供应信息一、二级分类</a>|<a href="delfolderin.asp?dir=tradeinfo/offerlist" onClick="return isgo();">供应信息三级分类</a>|<a href="delfolderin.asp?dir=tradeinfo/offerdetail" onClick="return isgo();">供应信息详细页面</a>
(<span class="STYLE2">二</span>).<a href="delfolderin.asp?dir=seller/trade" onClick="return isgo();">求购信息一二级分类</a>|<a href="delfolderin.asp?dir=seller/offerlist" onClick="return isgo();">求购信息三级分类</a>|<a href="delfolderin.asp?dir=seller/offerdetail" onClick="return isgo();">求购信息详细页面</a>
<br>
(<span class="STYLE2">三</span>).<a href="delfolderin.asp?dir=productshow/trade" onClick="return isgo();">产品库信息一二级分类</a>|<a href="delfolderin.asp?dir=productshow/offerlist" onClick="return isgo();">产品库信息三级分类</a>|<a href="delfolderin.asp?dir=productshow/offerdetail" onClick="return isgo();">产品库信息详细页面</a>
(<span class="STYLE2">四</span>).<a href="delfolderin.asp?dir=service/expo/info" onClick="return isgo();">展会资讯信息详细页面</a>|<a href="delfolderin.asp?dir=service/expo/detail" onClick="return isgo();">展会信息详细页面</a>
<br> (<span class="STYLE2">五</span>).<a href="delfolderin.asp?dir=help/bin/info" onClick="return isgo();">帮助信息分类列表页</a>|<a href="delfolderin.asp?dir=help/bin/detail" onClick="return isgo();">帮助信息详细页面</a>
(<span class="STYLE2">六</span>).<a href="delfolderin.asp?dir=info/community" onClick="return isgo();">行业资询信息分类列表页</a>|<a href="delfolderin.asp?dir=info/detail" onClick="return isgo();">行业资询信息详细页面</a>
<br>
(<span class="STYLE2">七</span>).<a href="delfolderin.asp?dir=vipinfo/offerdetail" onClick="return isgo();">专项商机信息详细页面</a>
(<span class="STYLE2">八</span>).<a href="delfolderin.asp?dir=corporation/trade" onClick="return isgo();">公司库信息一二级分类</a>|<a href="delfolderin.asp?dir=corporation/offerlist" onClick="return isgo();">公司库信息三级分类</a>|<a href="delfolderin.asp?dir=Ptcom" onClick="return isgo();">所有企业的单名片页面</a> </td>
</tr>
</table>
</td></tr>
<tr>
<form name="form1">
<td height="40" bgcolor="#FAFBFC" >
<script language="JavaScript">
<!--
var subcat = new Array();
subcat[0] = new Array('pic','AD','AD')
subcat[1] = new Array('pic','expouppic','expouppic')
subcat[2] = new Array('pic','infouppic','infouppic')
subcat[3] = new Array('pic','aboutuppic','aboutuppic')
subcat[4] = new Array('pic','Other','Other')
subcat[5] = new Array('pic','User','User')
subcat[6] = new Array('pic','vipinfopic','vipinfopic')
subcat[7] = new Array('ads','js','js')
subcat[8] = new Array('ads','up_adsimg','up_adsimg')
subcat[9] = new Array('Help','detail','Hdetail')
subcat[10] = new Array('Help','info','Hinfo')
subcat[11] = new Array('info','community','community')
subcat[12] = new Array('info','detail','Idetail')
subcat[13] = new Array('pt','所有','ptAll')
subcat[14] = new Array('seller','offerlist','Sofferlist')
subcat[15] = new Array('seller','trade','Strade')
subcat[23] = new Array('seller','offerdetail','Sofferdetail')
subcat[16] = new Array('tradeinfo','offerlist','Tofferlist')
subcat[17] = new Array('tradeinfo','trade','Ttrade')
subcat[24] = new Array('tradeinfo','offerdetail','Tofferdetail')
subcat[18] = new Array('Vipcom','根目录','Vipcom')
subcat[19] = new Array('vipinfo','根目录','page')
subcat[20] = new Array('vipinfo','offerdetail','Vofferdetail')
subcat[21] = new Array('Co','offerlist','Cofferlist')
subcat[22] = new Array('Co','trade','Ctrade')
function changeselect1(locationid)
{
document.form1.s2.length = 0; //初始化下拉列表 清空下拉数据
document.form1.s2.options[0] = new Option('==请选择==',''); //给第一个值
for (i=0; i<subcat.length; i++) //legth=20
{
if (subcat[i][0] == locationid) //[0] [1] 第一列 第二列
{document.form1.s2.options[document.form1.s2.length] = new Option(subcat[i][1], subcat[i][2]);} //建立option
//第一次 length=1 因为有==请选择==
//i=9时 length= 10 值有11个 因为从0数起 subcat[i][0] == locationid屏蔽了再写
}
}
//-->
function localhref(Values)
{
window.location.href='default.asp?act=yixiang_'+Values;
}
</script>
选择管理
<select name="s1" onChange="changeselect1(this.value)">
<option>========请选择======</option>
<option value="pic">UploadFile文件夹</option>
<option value="ads">ads文件夹</option>
<option value="info">info文件夹</option>
<option value="Co">corporation文件夹</option>
<option value="Help">help\bin文件夹</option>
<option value="pt">Ptcom文件夹</option>
<option value="seller">seller文件夹</option>
<option value="tradeinfo">tradeinfo文件夹</option>
<option value="Vipcom">Vipcom文件夹</option>
<option value="vipinfo">vipinfo文件夹</option>
</select>
下的
<select name="s2" onChange="localhref(this.value)">
<option>==请选择==</option>
</select>
文件夹
</form>
</tr>
<tr>
<td class="forumRowHighlight">
<span class="forumRowHighlight"> <br>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?