📄 edituploadfile.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
if request("step") = "2" then
errstr = ""
if request("display") = "1" then
display = 1
else
display = 0
end if
if request("expfilename") = "" then errstr = errstr & "<LI>扩展名不能为空<BR>"
if request("fileicon") = "" then
fileicon = "default.gif"
else
fileicon = chksql(request("fileicon"))
end if
if errstr = "" then
strsql = "update sf_allowuploadfile set fileicon='" & fileicon & "', display=" & display & " where expfilename ='" & chksql(request("expfilename")) & "'"
Conn.Execute(strsql)
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" align="center">编辑上传文件类型完毕</TD>
</TR>
</TABLE>
<%
else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF">错误:<BR><%= errstr %></TD>
</TR>
</TABLE>
<%
end if
else
errstr = ""
if request("name") = "" then
errstr = errstr & "<LI>参数不能为空<BR>"
else
strsql = "select * from sf_allowuploadfile where expfilename='" & chksql(request("name")) & "'"
Set rs = Conn.Execute(strsql)
if rs.bof or rs.eof then errstr = errstr & "<LI>错误的参数<BR>"
end if
if errstr = "" then
%>
<FORM name="form1" method="post" action="edituploadfile.asp">
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" align="center" colspan="2"><B>编辑允许上传附件类型:</B></TD>
</TR>
<TR bgcolor="#F5F5F5">
<TD width="30%">允许的扩展名</TD>
<TD><% = request("name") %></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="30%"></TD>
<TD><INPUT type="checkbox" name="display" value="1" <%if rs("display") = 1 then response.write "checked" %>>作为图片显示 (只有图片格式文件才适合使用该选项)</TD>
</TR>
<TR bgcolor="#F5F5F5">
<TD>该类型文件的图标文件</TD>
<TD>
<INPUT type="text" name="fileicon" size="30" value="<% = rs("fileicon") %>"><BR> <BR>文件存放于论坛主目录的image/fileicon子目录下</TD>
</TR>
<TR align="center">
<TD colspan="2">
<INPUT type="hidden" name="step" value="2">
<INPUT type="hidden" name="expfilename" value="<% =request("name") %>">
<INPUT type="submit" name="Submit" value="确 定">
</TD>
</TR>
</TABLE>
</FORM>
<%
else
%>
<TABLE width="80%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF">错误:<BR><%= errstr %></TD>
</TR>
</TABLE>
<%
end if
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -