上传信息管理

rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Upload.asp';" value='上传设置' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=log';" value='上传记录' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=file&path=1';" value='歌曲文件' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=file&path=2';" value='歌曲图片' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=file&path=3';" value='会员头像' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=file&path=4';" value='会员相册' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=file&path=5';" value='专辑图片' />

<% Dim Action Dim CmsDjUpload:Set CmsDjUpload = New CmsDj_Com_Upload action=Request.QueryString("action") page=int(request.QueryString ("page")) key=request.QueryString("key") path=request.querystring("path") Select Case Lcase(action) Case "save" : Call Save() Case "log" : Call Log() Case "file" : Call File() Case Else : Call Main() End Select Call Admin_FooterB %> <%Sub File() Select Case path Case "1" UploadUrl="../Upload/Url" name="歌曲文件" Case "2" UploadUrl="../Upload/djpic" name="歌曲图片" Case "3" UploadUrl="../Upload/Headpic" name="会员头像" Case "4" UploadUrl="../Upload/Pic" name="会员相册" Case "5" UploadUrl="../Upload/Special" name="专辑图片" End Select Ylmv_Com=server.mappath(UploadUrl) If not IsObjInstalled("Scripting.FileSystemObject") Then Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能" Else set fs=server.createobject("scripting.filesystemobject") set f=fs.GetFolder(Ylmv_Com) set fc=f.files end if %> <% pagesetup=15 '设定每页的显示数量 If Count/pagesetup > (Count\pagesetup) Then TotalPage=(Count\pagesetup)+1 Else TotalPage=(Count\pagesetup) End If if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage")) if PageCount <=0 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage pagesize=15 page=request.querystring("page") if page="" or not isnumeric(page) then page=1 else page=int(page) end if filenum=fc.count pagenum=int(filenum/pagesize) if filenum mod pagesize>0 then pagenum=pagenum+1 end if if page> pagenum then page=1 end if i=0 for each f1 in fc if instr(f1.name,genre) > 0 then i=i+1 if i>(page-1)*pagesize and i<=page*pagesize then F_Ext=Mid(f1.name, InStrRev(f1.name, ".") + 1) FileExt=LCase(F_Ext) %> <% elseif i>page*pagesize then exit for end if end if Next %>

<%=name%> 上传文件列表
文件名	文件大小	文件类型	创建时间
<%=f1.name%><%IF FileExt="asp" Or FileExt="php" Or FileExt="aspx" Or FileExt="jsp" Then Echo " 危险文件,注意检查!"End IF%>	<%=CmsDj_Com_Size(f1.size)%>	<%=f1.type%>	<%=f1.datecreated%>
<%=List_Page(m,z,page,"Admin_Upload.asp?action="&action&"&key="&key&"&",15,7)%>

<% End Sub Sub Log()%>

上传记录
关键字（输入文件名或会员名都可以）：

<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key<>"" Then SqlA="filename like '%"&key&"%' or UserName like '%"&key&"%' or webtype like '%"&key&"%' order by id desc" Else SqlA="order by id desc" End If Set Rs=CmsDjUpload.GetRs("id,webtype,filename,url,totable,UserName,uploadtime",0,SqlA) If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页舞曲 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>

文件名 <%if key<>"" then Response.Write "（以下为搜索 "&key&" 结果）"%>	上传会员	大小	类型	格式	上传时间
" target="u"><%=replace(rs("filename"),key,""&key&"")%><%IF FileExt="asp" Or FileExt="php" Or FileExt="aspx" Or FileExt="jsp" Then Echo " 危险文件,注意检查!"End IF%> <%=CheckPic%>	"><%=replace(rs("UserName"),key,""&key&"")%>	<%=CmsDj_Com_Size(rs("totable"))%>	"><%=rs("webtype")%>	<%IF FileExt="asp" Or FileExt="php" Or FileExt="aspx" Or FileExt="jsp" Then Echo ""&FileExt&"" Else Echo ""&FileExt&"" End IF%>	<%If Cstr(FormatDatetime(rs("uploadtime"),2))=Cstr(Date()) Then Response.Write""&rs("uploadtime")&"" Else Response.Write""&rs("uploadtime")%>
没有数据
<%=List_Page(m,z,page,"Admin_Upload.asp?action="&action&"&key="&key&"&",15,7)%>

<% End Sub Sub Main()%>

上传相关设置打开 /Include/RayFileUp/index.asp 设置自己的网盘帐号 (把223041353@qq.com改为自己的)
前台会员上传的方式：	* 选网络硬盘的即将歌曲传到 RayFile 网络硬盘,一样可以播放,方便没有服务器的朋友!
前台上传的用户权限：
前台每天上传的数量：	* 默认为 10
前台上传文件最大数：	* 单位为 M
图片上传的支持格式：	* 各个类型间用 \| 隔开
歌曲上传的支持格式：	* 各个类型间用 \| 隔开
图片水印设置（需要支持AspJpeg组件）
设置图片水印开关：
设置水印图片的路径：	*
设置水印图片的宽度：	* 高度自动获取
设置文字水印信息：	*
设置水印字体名称：
设置水印写入位置：
设置水印字体大小：	*
设置文字水印颜色：

<% End Sub Sub Save() CD_UploadType = SafeRequest("CD_UploadType","post") CD_CanupLoad = SafeRequest("CD_CanupLoad","post") CD_UploadNum = SafeRequest("CD_UploadNum","post") CD_UploadSize = SafeRequest("CD_UploadSize","post") CD_UploadTypeA = SafeRequest("CD_UploadTypeA","post") CD_UploadTypeB = SafeRequest("CD_UploadTypeB","post") CD_UplogoYes = SafeRequest("CD_UplogoYes","post") CD_UplogoImg = SafeRequest("CD_UplogoImg","post") CD_UplogoImgW = SafeRequest("CD_UplogoImgW","post") CD_UplogoFnot = SafeRequest("CD_UplogoFnot","post") CD_LogoFnotName = SafeRequest("CD_LogoFnotName","post") CD_UplogoSpan = SafeRequest("CD_UplogoSpan","post") CD_LogoFnotSize = SafeRequest("CD_LogoFnotSize","post") CD_LogoFnotColor = SafeRequest("CD_LogoFnotColor","post") Dim n,TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim CD_UploadType,CD_CanupLoad,CD_UploadNum,CD_UploadSize,CD_UploadTypeA,CD_UploadTypeB,CD_UplogoYes,CD_UplogoImg,CD_UplogoImgW,CD_UplogoFnot" & VbCrLf TempStr = TempStr & "Dim CD_LogoFnotName,CD_UplogoSpan,CD_LogoFnotSize,CD_LogoFnotColor" & VbCrLf TempStr = TempStr & "CD_UploadType="& Chr(34) & CD_UploadType & Chr(34) & VbCrLf TempStr = TempStr & "CD_CanupLoad="& Chr(34) & CD_CanupLoad & Chr(34) & VbCrLf TempStr = TempStr & "CD_UploadNum="& Chr(34) & CD_UploadNum & Chr(34) & VbCrLf TempStr = TempStr & "CD_UploadSize="& Chr(34) & CD_UploadSize & Chr(34) & VbCrLf TempStr = TempStr & "CD_UploadTypeA="& Chr(34) & CD_UploadTypeA & Chr(34) & VbCrLf TempStr = TempStr & "CD_UploadTypeB="& Chr(34) & CD_UploadTypeB & Chr(34) & VbCrLf TempStr = TempStr & "CD_UplogoYes="& Chr(34) & CD_UplogoYes & Chr(34) & VbCrLf TempStr = TempStr & "CD_UplogoImg="& Chr(34) & CD_UplogoImg & Chr(34) & VbCrLf TempStr = TempStr & "CD_UplogoImgW="& Chr(34) & CD_UplogoImgW & Chr(34) & VbCrLf TempStr = TempStr & "CD_UplogoFnot="& Chr(34) & CD_UplogoFnot & Chr(34) & VbCrLf TempStr = TempStr & "CD_LogoFnotName="& Chr(34) & CD_LogoFnotName & Chr(34) & VbCrLf TempStr = TempStr & "CD_UplogoSpan="& Chr(34) & CD_UplogoSpan & Chr(34) & VbCrLf TempStr = TempStr & "CD_LogoFnotSize="& Chr(34) & CD_LogoFnotSize & Chr(34) & VbCrLf TempStr = TempStr & "CD_LogoFnotColor="& Chr(34) & CD_LogoFnotColor & Chr(34) & VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile TempStr,"../Data/Cache/CmsDj.Upload.asp" Call AdminAlert("更新上传信息成功，正在返回...","Admin_Upload.asp",0) Response.End End Sub %>