📄 base.asp
字号:
<%
UserAgent=Trim(Request.Servervariables("HTTP_USER_AGENT"))
If not (Instr(UserAgent,"MSIE")>0 or Instr(UserAgent,"NetCaptor")>0) Then
call msgbox("非法瀏覽操作，請不要使用Teleport、WebZip、FlashGet、Offline、GoogleBot、WebCrawler、Scooter、MyIe這類軟體瀏覽或下載本站。",1)
End If
datepath = Year(now) & DoubleNum(Month(now)) & DoubleNum(Day(now))
timepath = DoubleNum(Hour(now)) & DoubleNum(Minute(now)) & DoubleNum(Second(now))
Function DoubleNum(Num)
If Num > 9 then
DoubleNum = Num
Else
DoubleNum = "0" & Num
End If
End Function
Function strFilter(str,n)
str = Trim(str)
If Vartype(str) = vbNull then
str = Replace(str, "'", "")
str = Replace(str, """", "")
str = Replace(str, "&", "")
str = Replace(str, "|", "")
str = Server.HTMLEncode(str)
str = Replace(str,CHR(13),"")
str = Replace(str,CHR(10),"")
End if
strFilter = GetWord(str,n,"")
End Function
'出现提示窗
Function MsgBox(error,n)
Set rs = nothing
Set conn = nothing
Copyright = "\n\n Copyright by 2001～2005 eyzg.COM"
Response.write"<html>" & vbcrlf & _
"<head>" & vbcrlf & _
"<title>提示</title>" & vbcrlf & _
"<meta http-equiv=""Pragma"" content=""no-cache"">" & vbcrlf & _
"<meta http-equiv=""Content-Language"" content=""zh-cn"">" & vbcrlf & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbcrlf & _
"</head>" & vbcrlf & _
"<style>" & vbcrlf & _
"body{margin:0px;scrollbar-face-color:buttonface;scrollbar-highlight-color:buttonface;scrollbar-shadow-color:buttonface;scrollbar-3dlight-color:buttonhighlight;scrollbar-arrow-color:#797979;scrollbar-track-color:#EEEEEE;scrollbar-darkshadow-color:buttonshadow}" & vbcrlf & _
"body,a,table,div,span,td,th,input,select{font:9pt;font-family: ""宋体"", Verdana, Arial, Helvetica, sans-serif;}" & vbcrlf & _
"</style>" & vbcrlf & _
"<body>" & vbcrlf & _
"<script>" & vbcrlf
If Session("MsgBoxTime") = "" then Session("MsgBoxTime") = now
If DateDiff("s",Session("MsgBoxTime"),now()) > 2 then
If not error = "" then
Response.write "alert('" & Replace(error,"'","\'") & Copyright & "');" & vbcrlf
End If
If Vartype(n) = 2 then
If n = 1 then '1=后退
Response.write "history.go(-1);" & vbcrlf
End If
If n=3 then '3=刷新主窗口
Response.write "parent.top.location.reload();" & vbcrlf
End If
If n=4 or n=5 then '4=刷新父窗口
Response.write "opener.location.reload();" & vbcrlf
End If
If n=2 or n=5 then '2=关闭
Response.write"document.write('<OBJECT id=closes type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">');" & vbcrlf & _
"document.write('<param name=""Command"" value=""Close"">');" & vbcrlf & _
"document.write('</object>');" & vbcrlf & _
"closes.Click();" & vbcrlf & _
"window.close();" & vbcrlf
End If
End If
If Vartype(n) = 8 then '"CHAR"=返回指定路径
Response.write "window.location.href='" & n & "';" & vbcrlf
End If
Session("MsgBoxTime") = now
End If
Response.write"</script>" & vbcrlf & _
"<table width=""100%"" height=""100%""><tr><td align=""middle""><font style=""font:8pt"">Copyright © 2001～2002 <a href=""http://www.eyzg.com"">eyzg.COM</a> 易影中国.All rights reserved.</font></td></tr></table>" & vbcrlf & _
"</body>" & vbcrlf & _
"</html>"
Response.end
End Function
Function GetLength(strChinese1)
Dim strWord, ascWord, lenTotal
strChinese1 = Trim(strChinese1)
If strChinese1 = "" or Vartype(strChinese1) = vbNull then
GetLength = 0
Exit Function
End If
lenTotal = 0
For GetLengthi=1 to Len(strChinese1)
strWord = Mid(strChinese1, GetLengthi, 1)
ascWord = Asc(strWord)
If ascWord < 0 or ascWord > 127 then
lenTotal = lenTotal + 2
Elseif ascWord = 63 And strWord <> "?" then
lenTotal = lenTotal + 2
Elseif ascWord = 44 And strWord <> "," then
lenTotal = lenTotal + 2
Elseif ascWord = 33 And strWord <> "!" then
lenTotal = lenTotal + 2
Else
lenTotal = lenTotal + 1
End If
Next
GetLength = lenTotal
End Function
Function GetWord(strChinese2, lenMaxWord, strTail)
strChinese2 = Trim(strChinese2)
lenMaxWord = CCur(lenMaxWord)
If strChinese2 = "" or Vartype(strChinese2) = vbNull or CLng(lenMaxWord) <= 0 then
GetWord = ""
Exit Function
End If
Dim OverFlow, strTest
OverFlow = False
strTest = " "
If GetLength(strChinese2) > lenMaxWord then OverFlow = True
If OverFlow = True then
Dim lenWord, RetString, strWord, ascWord
lenWord = 0
RetString = ""
For GetWordi=1 to Len(strChinese2)
strWord = Mid(strChinese2, GetWordi, 1)
ascWord = Asc(strWord)
If ascWord < 0 or ascWord > 127 then
lenWord = lenWord + 2
Elseif ascWord = 63 And strWord <> "?" then
lenWord = lenWord + 2
Elseif ascWord = 44 And strWord <> "," then
lenWord = lenWord + 2
Elseif ascWord = 33 And strWord <> "!" then
lenWord = lenWord + 2
Else
lenWord = lenWord + 1
End If
If lenWord <= (lenMaxWord - Len(strTail)) then
RetString = RetString + strWord
Else
GetWord = RetString + strTail
Exit For
End If
Next
Else
GetWord = strChinese2
End If
End Function
Function ReplaceText(strT,patT,repT)
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = patT
Reptext = regEx.Replace(strT,repT)
Set regEx = nothing
ReplaceText = Reptext
End Function
Function SourceDate()
sql="select text,value2 from source"
rs.open sql,conn,1,1
If not rs.eof then
sourcearray=rs.getrows
End If
rs.close
SourceDate = "<select style=""position:absolute;visibility:hidden;"" name=sourceselect onchange=""document.all.source.value=this[this.selectedIndex].value;this.selectedIndex=0;document.all.sourceselect.style.visibility='hidden';""><option>来源选择"
If isarray(sourcearray) then
For i=0 to ubound(sourcearray,2)
SourceDate = SourceDate&"<option value="""&sourcearray(1,i)&""">"&sourcearray(0,i)
Next
Set sourcearray = nothing
End If
SourceDate = SourceDate&"</select>"
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -