📄 adminfileupset.asp
字号:
<%dim nowplace
nowplace="article"
dim dbpath
dbpath="../"
%>
<!--#include file="chk.asp"-->
<!--#include file="../db_conn.asp" -->
<!--#include file="../comm/my_request.asp" -->
<!--#include file="../comm/my_lib.asp" -->
<%
action=my_request("action",0)
if action="save" then
call save()
end if
set rs=conn.execute ("select Sfileup from system_setup")
Sfileup=rs(0)
rs.close
set rs=nothing
Sfileups=split(Sfileup,"‖")
filesize=Sfileups(0)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传基本参数设置</title>
<link href=AdminStyle.css rel=stylesheet type=text/css>
</head>
<body>
<table border="0" width="100%" id="table1" cellpadding="4" style="border:1px solid #183789; border-collapse: collapse; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" cellspacing="1">
<form action=Adminfileupset.asp method=post name=form1 onsubmit="return checksubmit();">
<tr>
<td width="100%" colspan="2" background="Image/admin_bg_1.gif" height="25">
<font color="#FFFFFF"><b>文件上传基本参数设置：</b></font></td>
</tr>
<tr>
<td width="165" align="right">上传文件大小：</td>
<td width="800">
<input type="text" name="filesize" size="13" maxlength="5" value="<%=filesize%>">K
（关系说明：1K=1024字节，1M=1024K）</td>
</tr>
<tr>
<td width="165" align="right">上传文件类型设置：</td>
<td width="800">
<input type="checkbox" name="filetype" value="gif" <%if instr(Sfileups(1),"gif")>0 then response.write "checked" end if%>>GIF
<input type="checkbox" name="filetype" value="jpg" <%if instr(Sfileups(1),"jpg")>0 then response.write "checked" end if%>>JPG(jpeg)
<input type="checkbox" name="filetype" value="jpeg"<%if instr(Sfileups(1),"jpeg")>0 then response.write "checked" end if%>>JPEG
<input type="checkbox" name="filetype" value="png" <%if instr(Sfileups(1),"png")>0 then response.write "checked" end if%>>PNG
<input type="checkbox" name="filetype" value="bmp" <%if instr(Sfileups(1),"bmp")>0 then response.write "checked" end if%>>BMP
<input type="checkbox" name="filetype" value="swf" <%if instr(Sfileups(1),"swf")>0 then response.write "checked" end if%>>SWF(Flash文件)</td>
</tr>
<tr>
<td width="165"> </td>
<td width="800"><input type=hidden name=action value=save><input type="submit" value="保存数据" name="B1"></td>
</tr>
</form>
</table>
</body>
</html>
<%
sub save()
filesize=trim(my_request("filesize",0))
filetype=trim(my_request("filetype",0))
Sfileup=filesize&"‖"&filetype
conn.execute ("update system_setup set Sfileup='"&Sfileup&"'")
call wurl("数据保存成功","Adminfileupset.asp")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -