?? 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 + -