📄 cz-upfile_main.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CZ-UPFILEConfig.asp"-->
<%
if session("admin_name")="" then
response.redirect "../login.asp"
response.end
end if
Dim Msg
If Request.QueryString("Action") = "Save" Then SaveData
Sub SaveData()
myConn.execute("update Config set OKAr='"&Request.Form("ftype")&"',OKsize="&Request.Form("fsize"))
Msg = "<font size=2>成功修改了文件数据信息</font>"
End Sub
If msg <> "" Then
Response.Write("<meta http-equiv=refresh content='3;URL=cz-upfilelist.asp'>"&Msg&"<font size=2><br>本页将在3秒内返回数据列表项！<BR>如果你的浏览器没有反应，请<a href=cz-upfilelist.asp>点击此处返回</a></font>")
Response.End()
End If
%><%
set frst = Server.CreateObject("adodb.recordset")
sql = "select * from Config"
frst.open sql,myconn,1,1
If not frst.Eof then
%>
<html>
<head>
<title>up-filelist</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<script src="czUpfile.Js"></script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"></font>
<br>
<br>
<br>
<div align="center">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="336699" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td height="25" colspan="3" background="../images/pics/tile_sub.gif">
<div align="center"><font color="#FFFFFF"><strong></strong></font> <font color="#FFFFFF"><strong>上
传 属 性 设 置 </strong></font></div></td>
</tr><form method="post" action="cz-upfile_main.asp?Action=Save&ID=<%=ID%>" name="main">
<tr>
<td height="25" bgcolor="#FFFFFF">
<p align="center"><font color="333333"><b>允许上传的文件类型：</b></font></td>
<td bgcolor="#FFFFFF"> <font color="333333">
<input name="ftype" type="text" class="TextBoxT" value="<%=rs(0)%>" size="31" style="color: #333333; border: 1px solid #333333">
</font></td>
<td bgcolor="#FFFFFF"><font color="333333">以","分隔后缀名,切记勿允许上传asp/exe文件!</font></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF">
<p align="center"><font color="333333"><b>允许上传的文件大小：</b></font></td>
<td bgcolor="#FFFFFF"> <font color="333333">
<input name="fsize" type="text" class="TextBoxT" value="<%=rs(1)%>" size="18" style="color: #333333; border: 1px solid #333333">
Byte</font></td>
<td bgcolor="#FFFFFF"><font color="333333"> 单位以：“字节”来换算.如:100Byte=100字节</font></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF"><font color="333333"> </font></td>
<td bgcolor="#FFFFFF">
<INPUT type=image src="../images/pics/s_button000.gif" align=absMiddle width="45" height="20" border=0></td>
<td bgcolor="#FFFFFF"> </td>
</tr></form>
<tr>
<td height="25" colspan="3" bgcolor="#FFFFFF">
<div align="center"><font color="333333"><img src="../images/pics/seperator.gif" width="100%" height="1">
<%
else
%>
<b>对不起.没有找到相对应的数据！</b></font></div></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF"><font color="333333"> </font></td>
<td colspan="2" bgcolor="#FFFFFF"> <font color="333333">
<%
end if
frst.close
set frst = nothing
myconn.close
set myconn = nothing
%>
</font></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -