⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adduploadfile.asp

📁 很好的一个论坛原代码
💻 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="0" topmargin="30">

<%
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 = "insert into sf_allowuploadfile(expfilename, fileicon, display) values('" & chksql(request("expfilename")) & "', '" & fileicon & "'," & display & ")"
		Conn.Execute(strsql)
%>
<TABLE width="80%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">添加上传文件类型完毕</TD>
  </TR>
</TABLE>
<%
	else
%>
<TABLE width="80%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF">错误:<BR><%= errstr %></TD>
  </TR>
</TABLE>
<%
	end if

else
%>
<FORM name="form1" method="post" action="adduploadfile.asp">
  <TABLE width="90%" 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> 
        <INPUT type="text" name="expfilename" size="10">(不加点号, 例如: zip)<BR>&nbsp;<BR>强烈建议您不要允许asp htm等扩展名的文件上传!</TD>
    </TR>
    <TR bgcolor="#FFFFFF">
      <TD width="30%"></TD>
      <TD><INPUT type="checkbox" name="display" value="1">作为图片显示 (只有图片格式文件才适合使用该选项)</TD>
    </TR>
    <TR bgcolor="#F5F5F5">
      <TD>该类型文件的图标文件</TD>
      <TD> 
        <INPUT type="text" name="fileicon" size="30" value="default.gif"><BR>&nbsp;<BR>文件存放于论坛主目录的image/fileicon子目录下</TD>
    </TR>
    <TR align="center"> 
      <TD colspan="2"> 
        <INPUT type="hidden" name="step" value="2">
        <INPUT type="submit" name="Submit" value="确 定">
      </TD>
    </TR>
  </TABLE>
</FORM>
<%
	
end if

%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -