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

📄 selimage.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%
MM_Author="0"
If CStr(Request.Cookies("MM_ADMINNAME")) = "" OR InStr(CStr(Request.Cookies("MM_LEVEL")),MM_Author) = 0 Then
Response.Write("会话已过期，<a target=_blank href=../login.asp>请点击这里重新登陆</a>")
Response.end
end if
%>
<% '判断UP_files文件夹是否存在，如果不存在，自动建立一个
Set fs=Server.CreateObject("Scripting.FileSystemObject")
DDir=server.mappath("\Up_files")
if (fs.FolderExists(Ddir)) then
else
fs.CreateFolder(Ddir)
end if 
%>
<% '格式化文件大小
function ObjSize(fsize)
fsize = fsize / 1024
fsize = int(fsize)
ObjSize = fsize
end function 
%>
<% '格式化日期
function FormatTime(ftime)
ftime = Month(ftime)&"-"&Day(ftime)
FormatTime = ftime
end function 
%>
<% '定义图标
Function ShowImageForType(strName)
	Dim strTemp
	strTemp = strName
	
	If strTemp <> "dir" Then
		strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
	End If
	
	Select Case strTemp
		Case "css"
			strTemp = "css"
		Case "dir"
			strTemp = "dir"
		Case "htm", "html","asp","aspx"
			strTemp = "htm"
		Case "gif"
			strTemp = "gif"
		Case  "jpg","jpeg"
			strTemp = "jpg"
		Case "bmp"
			strTemp = "bmp"
		Case Else
			strTemp = "misc"
	End Select
	strTemp = "<IMG SRC=""images/file_" & strTemp & ".gif"" WIDTH=16 HEIGHT=16 BORDER=0  align=""absmiddle"">"
	ShowImageForType = strTemp
End Function
Dim strPath   
Dim objFSO   
Dim objFolder 
Dim objItem   
strPath = "/Up_files/"
if Trim(Request.QueryString("path")) <> "" then
	if right(Trim(Request.QueryString("path")),1) <> "/" then
	strPath = Trim(Request.QueryString("path")) + "/"
	else
	strPath = Trim(Request.QueryString("path"))
	end if
end if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
 '判断这个月的文件夹是否存在，如果不存在，就新建一个,上传的文件都会放到相关的日期下面
sDir = Year(now())&"-"&Month(now())
Set fs=Server.CreateObject("Scripting.FileSystemObject")
DDir=server.mappath("\Up_files")&"\"&sDir
if (fs.FolderExists(Ddir)) then'判断今天的文件夹是否存在
else
fs.CreateFolder(Ddir)
end if 
 %>
<%'自动生成文件名，格式：日-时间-随机数，没有扩展名
function makefilename(fname)
fname = time()
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = day(now())&"-"&fname
Randomize
suij=rnd()
suij=replace(suij,".","")
suij=left(suij,6)'随机产生六位整数

makefilename=fname&suij
end function 
Dim fname
Dim filepath
fname = makefilename(now()) '文件名
filepath=("/Up_files/"&sDir&"/")
%> 
<HTML>
<HEAD>
<TITLE>插入、更新图片</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE>BODY {
	FONT-SIZE: 9pt}
TABLE {
	FONT-SIZE: 9pt}
INPUT {
font-size: 9pt}
SELECT {
TOP: 2px; font-size: 9pt}
.bar {
	BORDER-TOP: #99ccff 1px solid; BACKGROUND: #336699; WIDTH: 100%; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 20px
}
</STYLE>
</HEAD>
<%
dim action
action=request.querystring("action")
select case action
case""
%>
<BODY bottomMargin=5 vLink=mediumslateblue aLink=mediumslateblue link=blue 
bgColor=#efeff7 leftMargin=5 topMargin=5 onload=checkImage() rightMargin=5>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY> 
  <TR> 
    <TD vAlign=top> 
      <!-- Content -->
      <TABLE cellSpacing=6 cellPadding=0 align=center border=0>
        <TBODY> 
        <TR> 
          <TD 
          style="BORDER-RIGHT: #336699 1px solid; BORDER-TOP: #336699 1px solid; BORDER-LEFT: #336699 1px solid; BORDER-BOTTOM: #336699 1px solid" 
          align=middle bgColor=white valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
              <tr>
                <td>
                  <div align="center">图片预览</div>
                </td>
              </tr>
            </table>
            <DIV id=divImg 
            style="OVERFLOW: auto; WIDTH: 150px; HEIGHT: 170px"></DIV>
          </TD>
          <TD vAlign=top> 
            <TABLE cellSpacing=0 cellPadding=0 width=262 border=0>
              <TBODY> 
              <TR> 
                <TD  valign="bottom">文件地址:<% if len(strPath) > 20 then Response.Write("/.."&right(strpath,20)) else Response.Write(strPath) %></TD>
                <TD width="40" align="right"  valign="bottom"><a href="selimage.asp">根目录</a></TD>
<%
if Trim(Request.QueryString("path")) <> "" then
UpPath = Trim(Request.QueryString("path"))
if right(UpPath,1) = "/" then UpPath = left(UpPath,len(UpPath)-1)
UpPath = left(UpPath,InstrRev(UpPath,"/")-1)
if UpPath = "/Up_files" then UpPath = ""
end if
%>
                <TD width="30" align="center"><% If Trim(Request.QueryString("path")) <> "" Then %><a href="selimage.asp?path=<%= UpPath %>">返回</a>
                  <% End If %></TD>
              </TR>
              </TBODY> 
            </TABLE>
            <DIV style="BORDER: lightsteelblue 1px solid; OVERFLOW: auto; WIDTH: 260px; HEIGHT: 180px;background-color:#FFFFFF;"> 
              <TABLE width="100%" CELLPADDING="0" CELLSPACING="1">
<%
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, "_vti", 1) = 0 Then
TYPEDIR = "<TR><TD ALIGN=left bgcolor=#F7F7F7>"&ShowImageForType("dir") _
&"&nbsp;<A HREF=selimage.asp?path="&strPath & objItem.Name&">"&objItem.Name&"</A></TD>" _
&"<TD ALIGN=right bgcolor=#FFFFFF>"&ObjSize(objItem.Size)&"Kb</TD>" _
&"<TD ALIGN=center bgcolor=#F7F7F7 >"&FormatTime(objItem.DateCreated)&"</TD>" _
&"<TD ALIGN=center bgcolor=#FFFFFF ><A HREF=selimage.asp?path="&strPath & objItem.Name&">浏览</A></TD>" _
&"<TD ALIGN=center bgcolor=#FFFFFF style='CURSOR: hand'><a onClick=""GP_popupConfirmMsg('确认删除该文件夹吗?　删除后将无法恢复！');return document.MM_returnValue"" href=selimage.asp?action=deldir&dirname="& strPath & objItem.Name&">删除</a></TD></TR>" & TYPEDIR
End If
Next 
Response.Write(TYPEDIR)
For Each objItem In objFolder.Files
if len(objItem.Name)>12 then
	OBJFILENAME = "."&right(objItem.Name,12)
else
OBJFILENAME = (objItem.Name) 
end if
if Trim(Request.QueryString("file")) = objItem.Name then
OBJFILENAME = "<font color=#FF0000>"&OBJFILENAME&"</font>"
end if
TYPEFILE = "<TR><TD ALIGN=left bgcolor=#F7F7F7  style='CURSOR: hand' onclick=""selectImage('"&strPath & objItem.Name &"')"">"& ShowImageForType(objItem.Name)&"&nbsp;"&OBJFILENAME&"</TD>" _
&"<TD ALIGN=right bgcolor=#FFFFFF>"&ObjSize(objItem.Size)&"Kb</TD>" _
&"<TD ALIGN=center bgcolor=#F7F7F7 >"& FormatTime(objItem.DateCreated)&"</TD>" _
&"<TD ALIGN=center bgcolor=#FFFFFF><A target=_blank HREF="& strPath & objItem.Name &">查看</A></TD>" _
&"<TD ALIGN=center bgcolor=#FFFFFF><a onClick=""GP_popupConfirmMsg('确认删除该文件吗?　删除后将无法恢复！');return document.MM_returnValue"" href=selimage.asp?action=delfile&fname="& strPath & objItem.Name&"&path="& strPath &">删除</a></TD></TR>" & TYPEFILE
%>
<%
Next
Response.Write(TYPEFILE)
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</TABLE>
            </DIV>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <form id=form1 name=form1 action=selimage.asp?action=upload method=post enctype=multipart/form-data>
                  <td height="50"> 上传图片: <br>
                      <input id=File1 type=file size=22 name=File1>
                      <input type=submit value=上传 name="Submit">
                      <input name="fname" type="hidden" id="fname" value="<%= fname %>">
                      <input name="filepath" type="hidden" id="filepath" value="<%= filepath %>">
                  </td>
                </form>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD colSpan=2> 
            <HR>
            <TABLE cellSpacing=1 cellPadding=3 width=340 border=0>
              <TBODY> 
              <TR> 
                <TD width="66">图片来源:</TD>
                <TD colSpan=3> 
                  <INPUT id=inpImgURL size=39 name=inpImgURL>
                  <!--<font color=red>(you can type your own image path here)</font>-->
                </TD>
              </TR>
              <TR> 
                <TD width="66">提示信息:</TD>
                <TD colSpan=3> 
                  <INPUT id=inpImgAlt size=39 
name=inpImgAlt>
                </TD>
              </TR>
              <TR> 
                <TD width="66">对齐方式</TD>
                <TD width="86"> 
                  <SELECT id=inpImgAlign name=inpImgAlign>
                    <OPTION 
                    value="" selected>默认置</OPTION>
                    <OPTION 
                    value=baseline>基线</OPTION>
                    <OPTION 
                  value=top>顶端</OPTION>
                    <OPTION 
                    value=middle>居中</OPTION>
                    <OPTION 
                    value=bottom>底部</OPTION>
                    <OPTION
12

⌨️ 快捷键说明

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