📄 cls_tag.asp
字号:
<%
'==============================================================================
'文件名:Cls_Tag.asp
'摘 要:模板标签处理类
'更 新:2006-11-1
'==============================================================================
Class Cls_Tag
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
Public Sub GetIndex()
Dim Action
Action=Trim(Request("Action"))
ClsTemp.SetVariable "tsoaspupload","<iframe name=ifm3 onload=""style.pixelWidth=ifm3.document.body.scrollWidth;this.style.pixelHeight=ifm3.document.body.scrollHeight"" src=""upocx/progress1.asp"" frameBorder=0 scrolling=no></iframe>"
If Action="Upload" Then
If ClsPub.Tso_Config(41)=1 Then ClsPub.CodeIsTrue
Dim Links,I
Links=Upload()
Links=Split(Links,"|")
ClsTemp.SetTemplateFile "link.html"
ClsTemp.UpdateBlock "links_block"
For i=0 To Ubound(Links)
ClsTemp.SetVariable "links",Links(i)
ClsTemp.ParseBlock "links_block"
Next
ClsPub.Tso_OutPut=ReplacePubTag(ClsPub.Tso_Header&ClsTemp.GetOutPut&ClsPub.Tso_Footer)
Else
If ClsPub.Tso_Config(18)<=1 Then
ClsTemp.SetVariable "filenum","<input name=""upcount"" type=""hidden"" id=""upcount"" value=""1"" size=""4"" maxlength=""3"">"
ClsTemp.SetVariable "setnum",""
Else
ClsTemp.SetVariable "filenum","<input name=""upcount"" type=""text"" id=""upcount"" value=""1"" size=""4"" maxlength=""3"">"
ClsTemp.SetVariable "setnum","<input type=""button"" class=""mybutton"" id=""setids"" name=""setids"" value="""&Language("Index",1)&""" onclick=""setid();"">"
End If
If ClsPub.Tso_Config(41)=1 Then
ClsTemp.SetVariable "vcode",Language("Index",3)&"：<input name=""CodeStr"" type=""text"" id=""CodeStr"">"&ClsPub.GetCode
Else
ClsTemp.SetVariable "vcode","<input name=""CodeStr"" type=""hidden"" id=""CodeStr"">"
End If
ClsTemp.SetVariable "maxfilenum",ClsPub.Tso_Config(18)
ClsPub.Tso_OutPut=ReplacePubTag(ClsPub.Tso_Header&ClsTemp.GetOutPut&ClsPub.Tso_Footer)
End If
End Sub
Public Sub GetGet()
Dim Action,GetFileId
Action=Trim(Request("Action"))
GetFileId=ClsPub.SafeRequest(1,"Id",1,0,0)
If GetFileId="" Then
GetFileId=ClsPub.SafeRequest(2,"Id",1,0,0)
End If
If Action="Download" Then
If ClsPub.Tso_Config(43)=1 Then ClsPub.CodeIsTrue
SysMsg=Language("Get",1)
If GetFileId="" Then Call ClsPub.Alert("?",0)
Dim Temp,BadFileExt
Temp=ClsPub.DB_Query("Select Top 1 F_Ext,F_Path,F_ContentType,F_Size From Tso_FilesList Where F_GetFileId='"&GetFileId&"'")
If IsArray(Temp) Then
BadFileExt=Lcase(Trim(Temp(0,0)))
If BadFileExt = "asp" or BadFileExt = "asa" or BadFileExt = "aspx" or BadFileExt = "php" or BadFileExt = "cgi" or BadFileExt = "jsp" Then
SysMsg=Language("Public",16)
Call ClsPub.Alert("Back",0)
Exit Sub
End If
Select Case ClsPub.Tso_Config(44)
Case "1"
Call GetFileFrom(Temp(1,0),Temp(0,0),Temp(2,0),Temp(3,0))
Case "2"
Response.Redirect(Temp(1,0))
Case Else
If Clng(Temp(3,0))<"102400" Then
Call GetFileFrom(Temp(1,0),Temp(0,0),Temp(2,0),Temp(3,0))
Else
Response.Redirect(Temp(1,0))
End If
End Select
ClsPub.DB_Execute("Update Tso_FilesList Set F_DownloadTimes=F_DownloadTimes+1 Where F_GetFileId='"&GetFileId&"'")
Else
SysMsg=Language("Get",2)
Call ClsPub.Alert("?",0)
End If
Else
ClsTemp.SetVariable "getfileid",GetFileId
If ClsPub.Tso_Config(43)=1 Then
ClsTemp.SetVariable "vcode","<span class=""liu2"">"&Language("Index",3)&": </span><input name=""CodeStr"" type=""text"" id=""CodeStr""size=""10"">"&ClsPub.GetCode
End If
End If
ClsPub.Tso_OutPut=ReplacePubTag(ClsPub.Tso_Header&ClsTemp.GetOutPut&ClsPub.Tso_Footer)
End Sub
Public Sub GetMyFiles()
Dim Action
Action=Trim(Request("Action"))
If Action="ClearCookie" Then
Call ClsPub.SetCookie("MyFiles","",Date()-ClsPub.Tso_Config(47))
SysMsg=Language("MyFiles",1)
Call ClsPub.Alert("Index.asp",0)
Else
Dim ClsPage,UserCookieId,UserID,FileImg
UserID=Session("UserId")
UserCookieId=ClsPub.SafeRequest(4,CacheName&"_MyFiles",1,0,0)
If UserID<>"" Then
Dim Temp,i,MyItem,PageSize,FileCount,Page
Temp=ClsPub.DB_Query("Select F_GetFileId,F_AddTime,F_Ext,F_Id,F_Title,F_Titles From Tso_FilesList Where F_UserID="&UserID&" Order By F_AddTime Desc")
If IsArray(Temp) Then
PageSize=ClsPub.Tso_Config(50)
Page=Request.QueryString("Page")
If Page="" OR Not IsNumeric(Page) Then
Page=1
Else
Page=Int(Page)
End If
FileCount=Ubound(Temp,2)
ClsTemp.UpdateBlock "links_block"
For i=0 To FileCount
MyItem=MyItem+1
If MyItem>(Page-1)*PageSize And MyItem<=Page*Pagesize Then
Temp(1,i)=replace(Temp(1,i),"AM","")
Temp(1,i)=replace(Temp(1,i),"PM","")
Temp(1,i)=replace(Temp(1,i),"上午","")
Temp(1,i)=replace(Temp(1,i),"下午","")
IF Temp(4,i)="无" Then
Temp(4,i)="<font color=#cccccc>暂无备注信息</font>"
End If
If Temp(2,i)="aspx" Then
FileImg="<img src=Images/icon/aspx.gif border=0>"
ElseIF Temp(2,i)="bat" Then
FileImg="<img src=Images/icon/bat.gif border=0>"
ElseIF Temp(2,i)="bmp" Then
FileImg="<img src=Images/icon/bmp.gif border=0>"
ElseIF Temp(2,i)="chm" Then
FileImg="<img src=Images/icon/chm.gif border=0>"
ElseIF Temp(2,i)="cs" Then
FileImg="<img src=Images/icon/cs.gif border=0>"
ElseIF Temp(2,i)="css" Then
FileImg="<img src=Images/icon/css.gif border=0>"
ElseIF Temp(2,i)="dll" Then
FileImg="<img src=Images/icon/dll.gif border=0>"
ElseIF Temp(2,i)="exe" Then
FileImg="<img src=Images/icon/exe.gif border=0>"
ElseIF Temp(2,i)="gif" Then
FileImg="<img src=Images/icon/gif.gif border=0>"
ElseIF Temp(2,i)="hlp" Then
FileImg="<img src=Images/icon/hlp.gif border=0>"
ElseIF Temp(2,i)="htc" Then
FileImg="<img src=Images/icon/htc.gif border=0>"
ElseIF Temp(2,i)="html" Then
FileImg="<img src=Images/icon/html.gif border=0>"
ElseIF Temp(2,i)="inc" Then
FileImg="<img src=Images/icon/inc.gif border=0>"
ElseIF Temp(2,i)="iso" Then
FileImg="<img src=Images/icon/iso.gif border=0>"
ElseIF Temp(2,i)="jpg" or Temp(2,i)="jpeg" or Temp(2,i)="png" or Temp(2,i)="psd" Then
FileImg="<img src=Images/icon/jpg.gif border=0>"
ElseIF Temp(2,i)="js" Then
FileImg="<img src=Images/icon/js.gif border=0>"
ElseIF Temp(2,i)="lnk" Then
FileImg="<img src=Images/icon/lnk.gif border=0>"
ElseIF Temp(2,i)="rm" or Temp(2,i)="rmvb" or Temp(2,i)="wmv" or Temp(2,i)="wma" Then
FileImg="<img src=Images/icon/rmvb.gif border=0>"
ElseIF Temp(2,i)="mdb" Then
FileImg="<img src=Images/icon/mdb.gif border=0>"
ElseIF Temp(2,i)="mdf" Then
FileImg="<img src=Images/icon/mdf.gif border=0>"
ElseIF Temp(2,i)="mht" Then
FileImg="<img src=Images/icon/mht.gif border=0>"
ElseIF Temp(2,i)="midi" Then
FileImg="<img src=Images/icon/midi.gif border=0>"
ElseIF Temp(2,i)="mp3" Then
FileImg="<img src=Images/icon/mp3.gif border=0>"
ElseIF Temp(2,i)="pdf" Then
FileImg="<img src=Images/icon/pdf.gif border=0>"
ElseIF Temp(2,i)="ppt" Then
FileImg="<img src=Images/icon/ppt.gif border=0>"
ElseIF Temp(2,i)="rar" Then
FileImg="<img src=Images/icon/rar.gif border=0>"
ElseIF Temp(2,i)="reg" Then
FileImg="<img src=Images/icon/reg.gif border=0>"
ElseIF Temp(2,i)="sql" Then
FileImg="<img src=Images/icon/sql.gif border=0>"
ElseIF Temp(2,i)="swf" Then
FileImg="<img src=Images/icon/swf.gif border=0>"
ElseIF Temp(2,i)="txt" Then
FileImg="<img src=Images/icon/text.gif border=0>"
ElseIF Temp(2,i)="url" Then
FileImg="<img src=Images/icon/url.gif border=0>"
ElseIF Temp(2,i)="vs" Then
FileImg="<img src=Images/icon/vs.gif border=0>"
ElseIF Temp(2,i)="wav" Then
FileImg="<img src=Images/icon/wav.gif border=0>"
ElseIF Temp(2,i)="wmp" or Temp(2,i)="asf" or Temp(2,i)="dat" or Temp(2,i)="avi" Then
FileImg="<img src=Images/icon/wmp.gif border=0>"
ElseIF Temp(2,i)="doc" Then
FileImg="<img src=Images/icon/word.gif border=0>"
ElseIF Temp(2,i)="xls" Then
FileImg="<img src=Images/icon/xls.gif border=0>"
ElseIF Temp(2,i)="xml" Then
FileImg="<img src=Images/icon/xml.gif border=0>"
ElseIF Temp(2,i)="xslt" Then
FileImg="<img src=Images/icon/xslt.gif border=0>"
ElseIF Temp(2,i)="zip" Then
FileImg="<img src=Images/icon/zip.gif border=0>"
Else
FileImg="<img src=Images/icon/unknown.gif border=0>"
End If
ClsTemp.SetVariable "links",ClsPub.GetCurrentUrl&"Get.asp?Id="&Temp(0,i)
ClsTemp.SetVariable "addtime",Temp(1,i)
ClsTemp.SetVariable "fileimg",FileImg
ClsTemp.SetVariable "filetype",Temp(2,i)
ClsTemp.SetVariable "f_id",Temp(3,i)
ClsTemp.SetVariable "title",ClsPub.tsoleft((Temp(4,i)),27)
ClsTemp.SetVariable "titles",Temp(5,i)
ClsTemp.SetVariable "tsogetid",Temp(0,i)
ClsTemp.SetVariable "edit","<a href=Edit.asp?F_Id="&Temp(3,i)&" title=修改备注信息><img src=images/edit.gif border=0></a> <a href=Edit.asp?Action=Del&F_Id="&Temp(3,i)&" onClick=""{if(confirm('确定删除此文件吗?')){return true;}return false;}"" title=删除该文件><img src=images/del.gif border=0></a>"
ClsTemp.ParseBlock "links_block"
ElseIf MyItem>Page*PageSize Then
Exit For
End If
Next
ClsTemp.SetVariable "showpage",ClsPub.PageList(Pagesize,FileCount+1,Page,"","")
End If
ClsTemp.SetVariable "fileimg",""
ClsTemp.SetVariable "title",""
ClsTemp.SetVariable "titles",""
ClsTemp.SetVariable "edit",""
ClsTemp.SetVariable "tsogetid",""
End If
ClsPub.Tso_OutPut=ReplacePubTag(ClsPub.Tso_Header&ClsTemp.GetOutPut&ClsPub.Tso_Footer)
End If
End Sub
Public Sub GetHelp()
With ClsTemp
.SetVariable "filesize",ClsPub.Tso_Config(16)
.SetVariable "filetype",Replace(ClsPub.Tso_Config(17),"|"," , ")
.SetVariable "maxfilenum",ClsPub.Tso_Config(18)
.SetVariable "keep",ClsPub.Tso_Config(42)
End With
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -