📄 admin_upload.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript">
<!--
function Address_Select() {
document.Admin_Upload.GuFolderpath.value=document.Admin_Upload.Address_List.value;
}
//-->
</Script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<!--#include file="Include/Session.asp"-->
<form name="Admin_Upload" method="post" action="Admin_UploadClass.asp?T=<%=Trim(Request.QueryString("T"))%>" enctype="multipart/form-data">
<%if Trim(Request.QueryString("T"))="E" or Trim(Request.QueryString("T"))="P" or Trim(Request.QueryString("T"))="PS" then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="10" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="28"> <input type="hidden" name="GuFolderpath" value="<%if Trim(Request.QueryString("T"))="E" then Response.write Trim(Request.QueryString("GuFEPathD")) else Response.write UploadPictureFolder0 end if%>" size="16"><input type="file" name="GuFile" size="1" class="Admin_InputText" style="width:<%if Trim(Request.QueryString("T"))="E" or Trim(Request.QueryString("T"))="P" then Response.write "212" else Response.write "428" end if%>;background-Typelor:#FFFFFF;"> <input type="submit" name="Submit" value="上传" class="Admin_InputText" style="width:40;background-color:#EBE9ED;"></td>
</tr>
</table>
<%elseif Trim(Request.QueryString("T"))="F" then%>
<table border="0" cellpadding="0" cellspacing="0" width="510" height="10" bgcolor="#FFFFFF">
<tr>
<td width="510" height="24" valign="bottom"> <input type="text" name="GuFolderpath" value="<%=UploadFileFolder0%>" size="1" class="Admin_InputText" style="width:120;background-color:#FFFFFF;" title=""> <select name="Address_List" onchange="JavaScript:Address_Select();" class="Admin_Select" style="width:90;background-color:#FFFFFF;">
<Option>-目录选择-</Option><%
dim rsUp1
set rsUp1=Server.CreateObject("Adodb.RecordSet")
rsUp1.open "select top 100 * from "&GuTablePrefix&"_DownloadSite where DS_Type='F' order by DS_Order asc",GuConn,1,1
if rsUp1.bof and rsUp1.eof then
Response.write ""
else
do while not rsUp1.eof
%><Option value="<%=rsUp1("DS_Folder")%>" title="<%=rsUp1("DS_Folder")%>"><%=rsUp1("DS_Name")%></Option><%
rsUp1.movenext
loop
end if
rsUp1.close
set rsUp1=Nothing
%>
</select> <input type="file" name="GuFile" size="1" class="Admin_InputText" style="width:203;background-color:#FFFFFF;"> <button name="Submit" type="submit" class="Admin_InputText" style="width:40;background-color:#EBE9ED;">上传</button></td>
</tr>
</table>
<%
else
end if
%>
</form>
<!--#include file="Include/Message.asp"-->
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -