📄 uploadfile.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("mode") = "del" then
Conn.Execute("delete from sf_allowuploadfile where expfilename='" & chksql(request("name")) & "'")
%>
<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 bgcolor="#D1E3BF" align="center">
<TD colspan="5"><B>上传附件格式设置</B></TD>
</TR>
<TR bgcolor="#F5F5F5" align="center">
<TD width="30%">允许的上传文件扩展名</TD><TD width="30%">图标文件</TD><TD width="20%">是否当作图片显示</TD><TD width="10%"></TD><TD></TD>
</TR>
<%
StrSql = "select * from sf_allowuploadfile"
Set rs = Conn.Execute(StrSql)
if not(rs.bof or rs.eof) then
do until rs.eof
response.write "<TR bgcolor=""#FFFFFF""><TD>" & rs("expfilename") & "</TD><TD>" & rs("fileicon") & " <img src=""../image/fileicon/" & rs("fileicon") & """></TD><TD align=""center"">"
if rs("display") = 1 then
response.write "<B>是</B>"
else
response.write "否"
end if
response.write "</TD><TD><A href=""edituploadfile.asp?name=" & rs("expfilename") & """><B>编辑</B></A></TD><TD><A href=""uploadfile.asp?mode=del&name=" & rs("expfilename") & """>删除</A></TD></TR>"
rs.MoveNext
loop
else
response.write "<TR bgcolor=""#FFFFFF""><TD colspan=""5"">当前无任何允许上传的文件格式</TD></TR>"
end if
%>
<TR bgcolor="#F5F5F5" align="center">
<TD colspan="5"><A href="adduploadfile.asp">添加新的格式</A></TD>
</TR>
</TABLE>
<%
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -