📄 adminmap.asp
字号:
<%
if session("admin")="" then
response.redirect "../admin.asp"
else
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
end if
%>
<!--#include file=conn.asp -->
<html>
<head>
<title>文件上传系统设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../inc/admin.css">
</head>
<body>
<table width="95%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td class=lanyuss colspan="2">
文件上传参数设置
</td>
</tr>
<tr class=lanyuds>
<%
set rsmap = Server.CreateObject("ADODB.Recordset")
if Request.form("mapupdate")<>"true" then
mapsql = "SELECT * FROM setmap"
rsmap.Open mapsql,conn
%>
<form name="form1" method="POST" action="adminmap.asp">
<td align=right>
文 件 类 型 ：
</td>
<td>
<input type="text" name="leixin" size="30" value="<%=(rsmap("leixin"))%>">
</td>
</tr>
<tr class=lanyuds>
<td align=right>
上 传 限 制 ：
</td>
<td>
<input type="text" name="size" size="20" value="<%=(rsmap("size"))%>"> B
</td>
</tr>
<tr class=lanyuds>
<td align=right>
上 传 设 置 ：
</td>
<td>
<select name="fileset">
<option value="1" <% if rsmap("fileset")=1 then response.write "selected" %>>开通上传</option>
<option value="0" <% if rsmap("fileset")=0 then response.write "selected" %>>禁止上传</option>
</select>
</td>
</tr>
<tr class=lanyuds>
<td align=right>
自动缩略图宽：
</td>
<td>
<input type="text" name="smallw" size="20" value="<%=(rsmap("width"))%>"> px
</td>
</tr>
<tr class=lanyuds>
<td align=right>
上传名称设置：
</td>
<td>
<select name="nameset">
<option value="1" selected>日期参数</option>
</select>
</td>
</tr>
<tr class=lanyuqs>
<td colspan="2" align="center">
<input type="submit" name="Submit" value="* 修改设置 *">
</td>
</tr>
<input type="hidden" name="mapupdate" value="true">
<input type="hidden" name="mapsetid" value="<%= rsmap("setid") %>">
</form>
</table>
<% else
leixin=Request.form("leixin")
mapsize=Request.form("size")
fileset=Request.form("fileset")
nameset=Request.form("nameset")
width=Request.form("smallw")
kword=split("asp,asa,mdb,jsp,php,cgi",",")
function keyWord(s)
dim KwCount
KwCount=0
for kwi=0 to ubound(kword)
KwCount = KwCount + instr(s,kword(kwi))
next
keyWord=KwCount
end function
if keyWord(leixin)>0 then
response.write "嘿嘿，想黑我的网站么？"
else
mapsql="select * from setmap where setid="&request("mapsetid")
rsmap.open mapsql,conn,1,3
rsmap("leixin")=leixin
rsmap("size")=mapsize
rsmap("fileset")=fileset
rsmap("nameset")=nameset
rsmap("width")=width
rsmap.update
%>
<td align=center>
上传设置完成！
</td>
</tr>
</table>
</body>
</html>
<%
rsmap.Close
set rsmap=nothing
conn.close
set conn=nothing
end if
%>
<% end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -