📄 adminmap.asp
字号:
<%@ LANGUAGE="VBScript" %>
<%
if session("admin")="" then
response.redirect "admin.asp"
else
if session("flag")<>2 then
response.write "<script>alert('对不起!你不是高级管理员!');history.back();</script>"
response.end
end if
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<!-- #include file="const.asp" -->
<html>
<head>
<title>文件上传系统设置 | WLONG3D文件上传系统wlup3.5参数设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="FORUM.CSS" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#FF0000">
<table width="95%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#6699FF">
<tr bgcolor="#99CCFF">
<td colspan="2" height="25">
<div align="center"><b>WLONG3D文件上传系统wlup3.5参数设置</b></div>
</td>
</tr>
<tr>
<td valign="top" width="23%" bgcolor="#FFFFCC">
<!--#include file="left.asp" -->
</td>
<td width="77%" align="center" valign="top" bgcolor="#FFFFFF">
<% If IsObjInstalled("Scripting.FileSystemObject")=true and request("makesj")<>"yes" Then
if request("action")<>"save" then
%>
<form name="form1" method="POST" action="adminmap.asp?action=save">
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#6699FF">
<tr align="center" bgcolor="#FFCC00">
<td colspan="2"><strong>系统支持<font color="#FF0000">FSO</font>写目录权限，你可以进行上传设置。</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">文件类型：</div></td>
<td width="69%"> <input type="text" name="FileType" size="30" value="<%=FileType%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传限制：</div></td>
<td width="69%"> <input type="text" name="FileMaxSize" size="20" value="<%=FileMaxSize%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">用户文件夹限制：</div></td>
<td width="69%"> <input type="text" name="setmyfoldersize" size="20" value="<%=setmyfoldersize%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">文件存储路径：</div></td>
<td width="69%"> <input type="text" name="filepath" size="20" value="<%=filepath%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">用户名称文件夹路径：</div></td>
<td width="69%"> <input type="text" name="makefile" size="50" value="<%=makefile%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">系统LOGO路径：</div></td>
<td width="69%"> <input type="text" name="logopath" size="50" value="<%=logopath%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传文件夹的绝对路径：</div></td>
<td width="69%"> <input type="text" name="fileweb" size="50" value="<%=fileweb%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传设置：</div></td>
<td width="69%"> <select name="fileset" class="buttonface">
<option value="1" <% if fileset=1 then %>selected<% end if %>>开通上传</option>
<option value="0" <% if fileset=0 then %>selected<% end if %>>禁止上传</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传名称设置：</div></td>
<td width="69%"> <select name="nameset" class="buttonface">
<option value="1" <% if nameset=1 then %>selected<% end if %>>日期参数</option>
<option value="2" <% if nameset=2 then %>selected<% end if %>>原文件名</option>
<option value="3" <% if nameset=3 then %>selected<% end if %>>日期+原名</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">同时上传文件数：</div></td>
<td width="69%"> <input type="text" name="upset" size="10" value="<%=upset%>" class="buttonface">
个文件<font color="#FF0000">（*如果上传模式是<font color="#0000FF">存储上传</font>，系统默认为上传1个文件）</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传模式：</div></td>
<td width="69%"> <select name="uplink" class="buttonface">
<option value="0" <% if uplink=0 then %>selected<% end if %>>普通上传</option>
<option value="1" <% if uplink=1 then %>selected<% end if %>>存储上传</option>
<option value="2" <% if uplink=2 then %>selected<% end if %>>上传数据库</option>
</select>
<font color="#FF0000">*选择上传数据库模式必须→</font>【<a href="adminmap.asp?makesj=yes">设置上传数据库</a>】</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <div align="right">上传路径设置：</div></td>
<td width="69%"> <select name="pathset">
<option value="0" <% if pathset=0 then %>selected<% end if %>>系统默认路径</option>
<option value="1" <% if pathset=1 then %>selected<% end if %>>文件分类路径</option>
<option value="2" <% if pathset=2 then %>selected<% end if %>>自动分配路径</option>
<option value="3" <% if pathset=3 then %>selected<% end if %>>用户文件夹</option>
<option value="4" <% if pathset=4 then %>selected<% end if %>>时间文件夹</option>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%" align="right">定义图片类型：</td>
<td width="69%"> <input type="text" name="flmap" size="50" value="<%=flmap%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%" align="right">定义软件类型：</td>
<td width="69%"> <input type="text" name="flsoft" size="50" value="<%=flsoft%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%" align="right">定义文本类型：</td>
<td width="69%"> <input type="text" name="fltxt" size="50" value="<%=fltxt%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%" align="right">定义视频类型：</td>
<td width="69%"> <input type="text" name="flvedio" size="50" value="<%=flvedio%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%" align="right">定义音乐类型：</td>
<td width="69%"> <input type="text" name="flmidi" size="50" value="<%=flmidi%>" class="buttonface">
</td>
</tr>
<tr bgcolor="#99CCFF">
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value="* 修改设置 *" class="buttonface">
</div></td>
</tr>
</table>
</form>
<% else
dim upseter
Dim objFSO, objTextFile
if request("uplink")=1 then
upseter=1
else
upseter=request("upset")
end if
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("const.asp"),TRUE)
objTextFile.WriteLine("<" & "%")
objTextFile.WriteLine("fileset=" & request("fileset") & "")
objTextFile.WriteLine("FilePath=""" & request("FilePath") & """")
objTextFile.WriteLine("makefile=""" & request("makefile") & """")
objTextFile.WriteLine("FileMaxSize=" & request("FileMaxSize") & "")
objTextFile.WriteLine("setmyfoldersize=" & request("setmyfoldersize") & "")
objTextFile.WriteLine("fileweb=""" & request("fileweb") & """")
objTextFile.WriteLine("nameset=" & request("nameset") & "")
objTextFile.WriteLine("pathset=" & request("pathset") & "")
objTextFile.WriteLine("upset=" & upseter & "")
objTextFile.WriteLine("uplink=" & request("uplink") & "")
objTextFile.WriteLine("logopath=""" & request("logopath") & """")
objTextFile.WriteLine("FileType=""" & request("FileType") & """")
objTextFile.WriteLine("Flmap=""" & request("Flmap") & """")
objTextFile.WriteLine("Flsoft=""" & request("Flsoft") & """")
objTextFile.WriteLine("Fltxt=""" & request("Fltxt") & """")
objTextFile.WriteLine("Flvedio=""" & request("Flvedio") & """")
objTextFile.WriteLine("Flmidi=""" & request("Flmidi") & """")
objTextFile.WriteLine("%" & ">")
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
<div align="center"><b><font color="#FF0000"><% if request("uplink")<>2 then %>图片上传设置已经完成，请继续别的操作！<% else %>你选择了上传数据库模式，所以必须→【<a href="adminmap.asp?makesj=yes">设置上传数据库</a>】<% end if %></font></b></div>
<% end if
else %>
<!--#include file="conn.asp" -->
<% dim rs,sql
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select upsize from mset"
rs.open sql,conn,1,3
if request("order")="save" then
if request.Form("upsize")="" or not isnumeric(request.Form("upsize")) then
response.write "<script>alert('对不起!你还没有填写上传文件大小限制或提交数据不是数字!');history.back();</script>"
response.end
else
rs("upsize")=request.Form("upsize")
rs.update
response.write "修改参数完成<br>"
end if
end if
%>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6699FF">
<form name="form2" method="post" action="adminmap.asp?order=save"><tr>
<td colspan="2" align="center" bgcolor="#FFCC00"><strong><% if request("makesj")<>"yes" then %>很遗憾，你的服务器不支持<font color="#FF0000">FSO</font>写目录的权限，你只能上传图片到数据库！<% else %>你在进行上传文件到数据库设置操作！<input name="makesj" type="hidden" value="yes"><% end if %></strong></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">上传文件类型：</td>
<td bgcolor="#FFFFFF">目前只允许上传<font color="#FF0000">JPG</font>和<font color="#FF0000">GIF</font>格式的图片</td>
</tr>
<tr>
<td width="31%" align="right" bgcolor="#FFFFFF">上传文件大小限制：</td>
<td width="69%" bgcolor="#FFFFFF"><input name="upsize" type="text" class="buttonface" id="upsize" value="<%=rs("upsize")%>" size="20">
</td>
</tr>
<tr align="center">
<td colspan="2" bgcolor="#99CCFF"><input name="Submit2" type="submit" class="buttonface" value="* 修改设置 *"></td>
</tr>
</form>
</table>
<% rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
</td>
</tr>
<tr bgcolor="#FFCC00">
<td colspan="2" height="20">
<div align="center">版权所有 © 2003-2006 <a href="http://www.wlong3d.com">wlong3d.com</a></div>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -