📄 powereasy.upfile.asp
字号:
Response.Write "文件上传成功！ <a href='javascript:history.go(-1)'>继续上传</a>"
strJS = strJS & "parent.document.myform.Photo.value='" & SavePath & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
strJS = strJS & "parent.document.myform.showphoto.src='" & SavePath & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
Exit For
Case "userblogpic"
If cFileExt = "rar" Or cFileExt = "zip" Or cFileExt = "ace" Then
Response.Write "附件上传成功！"
strJS = strJS & "parent.document.myform.img.src='../images/rar.gif';" & vbCrLf
ElseIf cFileExt = "swf" Then
Response.Write "FLASH上传成功！"
strJS = strJS & "parent.document.myform.img.src='../images/swf.gif';" & vbCrLf
Else
Response.Write "图片上传成功！"
strJS = strJS & "parent.document.myform.img.src='" & SavePath & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
End If
strJS = strJS & "parent.document.myform.url.value='" & SavePath & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
Exit For
Case "intervieweepic" '2006-1-13
Response.Write "照片上传成功！ <a href='javascript:history.go(-1)'>继续上传</a>"
strJS = strJS & "parent.document.myform.MyPhoto.value='UploadPhotos" & "/" & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
Exit For
Case "adpic"
'Response.Write "文件上传成功！"
If cFileExt = "swf" Then
strJS = strJS & "parent.document.myform.FlashUrl.value='" & InstallDir & ADDir & "/UploadADPic/" & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
strJS = strJS & "parent.ADTypeChecked(1);" & vbCrLf
Else
strJS = strJS & "parent.document.myform.ImgUrl.value='" & InstallDir & ADDir & "/UploadADPic/" & dirMonth & strFileName & "." & cFileExt & "';" & vbCrLf
strJS = strJS & "parent.ADTypeChecked(0);" & vbCrLf
End If
strJS = strJS & "history.go(-1);" & vbCrLf
Exit For
End Select
End If
Next
Response.Write "<SCRIPT language='javascript'>" & vbCrLf
If FileType = "batchpic" Then
strTemp = strTemp & "$$$" & FileCount & strUploadPics
Response.Write "window.returnValue=""" & strTemp & """" & vbCrLf
Response.Write "setTimeout(""window.close()"", 1000);" & vbCrLf
Else
Response.Write strJS
If FoundErr = True Then
If msg <> "" Then Response.Write "alert('" & msg & "');" & vbCrLf
If FileType = "pic" Or FileType = "flash" Or FileType = "media" Or FileType = "real" Or FileType = "fujian" Then
Response.Write "window.location='upload.asp?DialogType=" & FileType & "&ChannelID=" & ChannelID & "';" & vbCrLf
Else
Response.Write "history.go(-1);" & vbCrLf
End If
Else
If FileType = "photos" Then Response.Write "history.go(-1);" & vbCrLf
End If
End If
Response.Write "</script>"
Response.Write "</body></html>"
Set PE_Thumb = Nothing
'清除变量及对像
Forms.RemoveAll
Set Forms = Nothing
Files.RemoveAll
Set Files = Nothing
oUpFilestream.Close
Set oUpFilestream = Nothing
Call ClearAspFile(SavePath & dirMonth)
End Sub
Sub ShowUploadForm()
If CheckLogin() = False Then
Response.Write "请先登录！"
Exit Sub
End If
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>上传文件</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link rel='stylesheet' type='text/css' href='../editor/editor_dialog.css'>" & vbCrLf
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function check() " & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " var strFileName=document.form1.FileName.value;" & vbCrLf
Response.Write " if (strFileName=='')" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " alert('请选择要上传的文件');" & vbCrLf
Response.Write " document.form1.FileName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</SCRIPT>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body class='Filebg' leftmargin='5' topmargin='0'><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr><td>" & vbCrLf
Dim ChannelID, sqlChannel, rsChannel, FileType, ModuleType, i, Uname, USpace
ChannelID = PE_CLng(Trim(Request("ChannelID")))
FileType = LCase(Trim(Request("DialogType")))
If FileType = "userblogpic" Then
USpace = LCase(Trim(Request("size")))
End If
If ChannelID = 0 Then
Select Case FileType
Case "authorpic", "copyfrompic", "producerpic", "trademarkpic", "adpic"
If AdminLogined <> True Then
Response.Write "请先登录后台！"
FoundErr = True
End If
Case "adminblogpic"
If AdminLogined <> True Then
Response.Write "请先登录后台！"
FoundErr = True
End If
Uname = LCase(Trim(Request("Uname")))
Case "userblogpic"
Case "intervieweepic" '2006-1-13
Case Else
Response.Write "频道参数丢失！"
FoundErr = True
End Select
Else
sqlChannel = "select Disabled,EnableUploadFile,ModuleType from PE_Channel where ChannelID=" & ChannelID
Set rsChannel = Server.CreateObject("adodb.recordset")
rsChannel.Open sqlChannel, Conn, 1, 1
If rsChannel.BOF And rsChannel.EOF Then
Response.Write "找不到此频道"
FoundErr = True
Else
If rsChannel("Disabled") = True Then
Response.Write "此频道已经被禁用！"
FoundErr = True
Else
If rsChannel("EnableUploadFile") = False Then
Response.Write "对不起，本频道不允许上传文件！"
FoundErr = True
End If
ModuleType = rsChannel("ModuleType")
End If
End If
rsChannel.Close
Set rsChannel = Nothing
End If
If FoundErr <> True Then
If ModuleType = 3 Then
Response.Write "<form action='Upfile.asp' method='post' name='form1' enctype='multipart/form-data'>" & vbCrLf
If PE_CLng(Trim(Request("PhotoUpfileType"))) = 0 Then
For i = 0 To 9
Response.Write " <input name='IsThumb' type='radio' value='" & i & "'"
If i = 0 Then Response.Write " checked"
Response.Write ">"
Response.Write " <input name='FileName" & i & "' type='FILE' class='FileButton' size='28'>" & vbCrLf
If (i + 1) Mod 2 = 0 Then Response.Write " <br>" & vbCrLf
Next
Response.Write "<font style='font-size:9pt'>若选中文件名前的单选框，则表示将此图片设为缩略图。</font> " & vbCrLf
Response.Write " <input type='submit' name='Submit' value='开始上传'>" & vbCrLf
Response.Write " <input name='FileType' type='hidden' id='FileType' value='photos'>" & vbCrLf
Else
Response.Write " <input name='FileName' type='FILE' class='FileButton' size='28'>" & vbCrLf
Response.Write " <input type='submit' name='Submit' value='上传'>" & vbCrLf
Response.Write " <input name='FileType' type='hidden' id='FileType' value='" & FileType & "'>" & vbCrLf
End If
Response.Write " <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>" & vbCrLf
Response.Write " <input name='PhotoUpfileType' type='hidden' id='PhotoUpfileType' value='" & PE_CLng(Trim(Request("PhotoUpfileType"))) & "'>" & vbCrLf
Response.Write "</form>" & vbCrLf
Else
Response.Write "<form action='Upfile.asp' method='post' name='form1' onSubmit='return check()' enctype='multipart/form-data'>" & vbCrLf
If FileType = "authorpic" Or FileType = "copyfrompic" Or FileType = "producerpic" Or FileType = "trademarkpic" Then
Response.Write " <input name='FileName' type='FILE' class='FileButton' size='20'>" & vbCrLf
ElseIf FileType = "adminblogpic" Then
Response.Write " <input name='FileName' type='FILE' class='FileButton' size='20'>" & vbCrLf
Response.Write " <input name='Uname' type='hidden' id='Uname' value='" & Uname & "'>" & vbCrLf
ElseIf FileType = "userblogpic" Then
Response.Write " <input name='FileName' type='FILE' class='FileButton' size='20'>" & vbCrLf
Response.Write " <input name='size' type='hidden' id='size' value='" & USpace & "'>" & vbCrLf
Else
Response.Write " <input name='FileName' type='FILE' class='FileButton' size='35'>" & vbCrLf
End If
Response.Write " <input type='submit' name='Submit' value='上传'>" & vbCrLf
Response.Write " <input name='FileType' type='hidden' id='FileType' value='" & FileType & "'>" & vbCrLf
Response.Write " <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>" & vbCrLf
Response.Write "</form>" & vbCrLf
End If
End If
Response.Write "</td></tr></table>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf
End Sub
Function CheckLogin()
Dim AdminName, AdminPassword, RndPassword
Dim UserPassword, LastPassword, UserSetting
Dim rsUser, sqlUser
AdminName = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
CheckLogin = False
Else
'验证管理员帐号及密码并检测是否为多人同时使用
sqlUser = "select * from PE_Admin where AdminName='" & AdminName & "' and Password='" & AdminPassword & "'"
Set rsUser = Conn.Execute(sqlUser)
If rsUser.BOF And rsUser.EOF Then
AdminLogined = False
Else
If rsUser("EnableMultiLogin") <> True And Trim(rsUser("RndPassword")) <> RndPassword Then
AdminLogined = False
Else
AdminLogined = True
End If
End If
rsUser.Close
Set rsUser = Nothing
End If
UserName = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("UserName")))
If AdminLogined = True Then
uEnableUpload = True
uMaxFileSize = 99999999
CheckLogin = True
Exit Function
End If
UserPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("UserPassword")))
LastPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("LastPassword")))
If (UserName = "" Or UserPassword = "" Or LastPassword = "") Then
CheckLogin = False
Exit Function
End If
sqlUser = "SELECT U.UserID,U.SpecialPermission,U.UserSetting,G.GroupSetting FROM PE_User U inner join PE_UserGroup G on U.GroupID=G.GroupID WHERE"
sqlUser = sqlUser & " UserName='" & UserName & "' AND UserPassword='" & UserPassword & "' AND LastPassword='" & LastPassword & "' and IsLocked=" & PE_False & ""
Set rsUser = Conn.Execute(sqlUser)
If rsUser.BOF And rsUser.EOF Then
CheckLogin = False
Else
CheckLogin = True
If rsUser("SpecialPermission") = True Then
UserSetting = Split(Trim(rsUser("UserSetting")) & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0", ",")
Else
UserSetting = Split(Trim(rsUser("GroupSetting")) & ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0", ",")
End If
uEnableUpload = CBool(PE_CLng(UserSetting(9)))
uMaxFileSize = PE_CLng(UserSetting(10))
End If
Set rsUser = Nothing
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -