<%
'****************************************************************
' 目录检测函数，无则自动创建目录
'****************************************************************
Function CreateFolder(Filepath)
on error resume next
Dim fso, f , p
p = Server.Mappath(".")
Filepath = Replace(Filepath , "\" , "/")
Filepath = Replace(Filepath , "//" , "/")
Filepaths = split(Filepath , "/")
ss = p
set fso = CreateObject(fsostr)
for i = 0 to ubound(Filepaths)
ss = ss & "\" & Filepaths(i)
if not fso.FolderExists(ss) then
fso.CreateFolder(ss)
CreateFolder=True
'Response.write ss&"创建成功..."
end if
next
set fso = Nothing
End Function
'***************************************************************
' 文件二进制编码显示函数
'****************************************************************
Function Bytes2bStr(vin)
On Error Resume Next
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
if err.number<>0 then
Rw "操作失败，系统可能不支持adodb.stream组件"
Response.end
end if
With BytesStream
.Type = 2
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
'*****************************************************************
' 防止sql注入漏洞函数
'*****************************************************************
Function Checkin(s)
s=trim(s)
s=replace(s," ","&nbsp;")
s=replace(s,"'","&#39;")
s=replace(s,"""","&quot;")
s=replace(s,"<","&lt;")
s=replace(s,">","&gt;")
Checkin=s
end function
'*****************************************************************
' 后台日志生成函数
'*****************************************************************
function write_log(str1,str2)'////////////str1,str2) '////用户//事件//ip
'///////////////////////////////fso生成文件////////////////////////////////
on error resume next
Application.Lock
Application("&site_Cookies&")=str1&"："&str2 '//传递用事件，到显示屏
Application.UnLock
DataFile = admin_syslog&"_"&year(now)&"_"&month(now)&"_"&day(now)&admin_syslogtype '///////以日期创建日志文件名
CreateFolder(sys_logsaver)
thedatafile=server.MapPath(sys_logsaver&"/"&datafile)
Set FSO = CreateObject(FSOstr)
infile=fso.FileExists(thedatafile)
if infile then '己存在，即打开
set thefile=fso.OpenTextFile(thedatafile)
stroldfile=unDec_log(thefile.readall)
'/////////////付值///////
saver=stroldfile&str1&"|"&str2&"|"&Request.serverVariables("REMOTE_ADDR")&"|"&now()&vbcrlf
'/////////////////////////////
thefile.close
set thefile=nothing
'response.write datafile&"打开文件..."
else '否则创建
set thefile=fso.CreateTextFile (thedatafile)
saver="系统日志|创建系统日志文件成功|"&Request.serverVariables("REMOTE_ADDR")&"|"&now()&vbcrlf
saver=saver&str1&"|"&str2&"|"&Request.serverVariables("REMOTE_ADDR")&"|"&now()&vbcrlf
thefile.close
set thefile=nothing
'response.write datafile&"创建成功..."
end if
set thefile=fso.CreateTextFile (thedatafile)
thefile.write Dec_log(saver)
thefile.close
set thefile=nothing
'response.write datafile&"系统日专写入成功..."
set fso=nothing
end function
'*****************************************************************
' 数据加密函数，此算法可逆
' soStr ：要加密的数据内容
'*****************************************************************
function encode(soStr)
on error resume next
for i=1 to len(soStr)'加密方法1
TempNum=hex(asc(mid(soStr,i,1)))
if len(TempNum)=4 then
encode=encode & "%"& left(cstr(TempNum),2) & "%"& right(cstr(TempNum),2)
else
Randomize
encode=encode &"%"& chr(72+int(rnd*18))& chr(72+int(rnd*18)) & "%" & cstr(TempNum)
end if
next
end function
'*****************************************************************
' 按钮生成函数////////图片，文字，url，宽度//////////
'******************************************************************
function button(str1,str2,str3,str4)
response.write "<button onClick=""javascript:location.href='"&str3&"'"" class=""button_a"" style=""width:"&str4&""";><img src="""&str1&""" align=""absmiddle"">"&str2&"</button>"
end function
'*****************************************************************
' 提交表单按钮生成函数////////图片，文字，功能，宽度//////////
'*****************************************************************
function button_submit(str1,str2,str3,str4)
response.write "<button onClick=""javascript:"&str3&""" class=""button_a"" style=""width:"&str4&""" ;><img src="""&str1&""" align=""absmiddle"">"&str2&"</button>"
end function
'*****************************************************************
' 提示信息显示函数
'*****************************************************************
function ts_mess(str)
response.write "<script language=javascript>top.ts_mess.innerHTML='"&str&"';setTimeout(""top.ts_mess.innerHTML=' '"",1 * "&pop_time&"000)</script>"
'response.write mess1
end function
'*****************************************************************
' 替换asp对象request
'*****************************************************************
Function Rq(sName)
Rq=Checkin(request(sName))
End Function
'*****************************************************************
' 替换request.write对象
'*****************************************************************
Function Rw(str)
response.write str
End Function
'*****************************************************************
' 禁止非法提交
'*****************************************************************
function ChkPost()
server_v1=cstr(request.ServerVariables("HTTP_REFERER"))
server_v2=cstr(request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
response.write escape("非法提交，禁止登陆")
call write_log("系统警告","非法提交来源："&server_v1&"")
response.end
end if
end function
'*****************************************************************
' 后台管理员登陆检查
'*****************************************************************
function chk_adminlogin()
if session("admin_username")="" then
response.write "<script>location.href='index.asp';target='_top'</script>"
response.end
end if
end function
'*****************************************************************
' 后台系统权限检查函数
'*****************************************************************
function chk_action(str)
if session("admin_username")="" or trim(str)="" then
Response.Redirect("index.asp")
else
if session("admin_grade")<>"" then
if instr(session("admin_grade"),str)<=0 then
Rw "<script language='javascript'>"
Rw "if (confirm('你的帐号没有["&str&"]权限\n请点确定返回,或者点取消重新登录')){"
Rw "history.go(-1);}"
Rw "else"
Rw "{location.href='index.asp';}"
Rw "</script>"
response.end
end if
end if
end if
end function
'*****************************************************************
' 布尔型返回值版=========后台权限检查函数
'*****************************************************************
function chk_action_bo(str)
if session("admin_grade")<>"" then
if instr(session("admin_grade"),str)<=0 then
chk_action_bo=False
Rw escape("错误：当前登陆帐号，没有["&str&"]权限")
response.end
end if
end if
chk_action_bo=True
end function
'*****************************************************************
' 后台系统权限检查函数///自动关闭窗口
'*****************************************************************
function chk_action_open(str)
if session("admin_username")="" or trim(str)="" then
Response.Redirect("index.asp")
else
if session("admin_grade")<>"" then
if instr(session("admin_grade"),str)<=0 then
Rw "<script language='javascript'>"
Rw "alert('错误：当前登陆帐号，没有["&str&"]权限');self.close();"
Rw "</script>"
response.end
end if
end if
end if
end function
'*****************************************************************
' 升级完成后删除setup.asp
'*****************************************************************
function deletefiles()
on error resume next
dim fs
Set fs=Server.CreateObject(FSOstr)
if fs.FileExists(Server.Mappath("setup.asp")) then
fs.DeleteFile Server.Mappath("setup.asp"),True
Response.Write "<br><p><b><font color=Green>升级完成...</font></b>"
else
Response.Write "<br><p><b><font color=Green>升级完成.</font></b>"
end if
Set fs=nothing
end function
'*****************************************************************
' msgbox，自定义弹出信息
'*****************************************************************
function msgbox(str1,str2,str3)
Rw "<script language=vbscript>"
Rw "msgbox """&str1&""","""&str2&""","""&str3&""""
Rw "</script>"
end function
'*****************************************************************
' javascript，自定义弹出信息
'*****************************************************************
function msgbox_j(str1,str2)
Rw "<script language=javascript>"
Rw "alert('"&str1&"');"&str2&""
Rw "</script>"
end function
'****************************************************************
' 表单记忆功能
'*****************************************************************
function Rq_addsave(str1,str2)
if trim(Request.cookies(""&str1&""))<>"" then
if cstr(Request.cookies(""&str1&""))=cstr(""&str2&"") then
Rq_addsave="selected"
end if
end if
end function
'*****************************************************************
' 获取影片名
'*****************************************************************
function Getfilmname(str)
sql="select id,影片名 from 影片 where id="&str
rs.open sql,conn,1,1
if not rs.eof then
Getfilmname=rs("影片名")
end if
rs.close
end function
'*****************************************************************
' 资源释放数据库关闭函数
'*****************************************************************
Function ConnClose()
IF IsObject(Rs) then
set rs=NoThing
End IF
IF IsObject(conn) then
Conn.close
Set Conn=NoThing
End IF
End Function
'*****************************************************************
' 将当前的日期和时间转为文件名
'*****************************************************************
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
'*****************************************************************
' 文件上传处理模块
'*****************************************************************
function getByteString(StringStr)
for i=1 to Len(StringStr)
char=mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
next
End Function
Function getString(StringBin)
getString=""
For intCount=1 to Lenb(StringBin)
getString=getString&chr(AscB(MidB(StringBin,intCount,1)))
next
End Function
'*****************************************************************
' 系统参数编辑模块//，变量，旧值，新值
'*****************************************************************
function fsoedit(str1,str2,str3)
DataFile = "../config.asp" '///////打开系统文件////
thedatafile=server.MapPath(datafile)
Set FSO = CreateObject(FSOstr)
infile=fso.FileExists(thedatafile)
if infile then '文件存在，打开
set thefile=fso.OpenTextFile(thedatafile)
stroldfile=thefile.readall
'/////////////开始修改内容///////
old_str=str1&"="&chr(34)&str2&chr(34) '旧值
new_str=str1&"="&chr(34)&str3&chr(34) '新值
if instr(stroldfile,old_str)>0 then '设置二次更改,找到旧值
saver=Replace(stroldfile,old_str,new_str)
session("Re_str")=new_str
else
saver=Replace(stroldfile,session("Re_str"),new_str)
end if
'/////////////////////////////
thefile.close
set thefile=nothing
else '否则创建
response.write "系统错误，详情请查看日志"
call write_log("系统错误","编辑后台参数失败，可能config.asp文件不存在")
response.end
end if
set thefile=fso.CreateTextFile (thedatafile)
thefile.write(saver)
thefile.close
set thefile=nothing
set fso=nothing
end function
'*****************************************************************
' 系统空间占用信息检测函数
'*****************************************************************
Function DisplaySystemInfo
on error resume next
dim all_Space,Upload_Space,Database_Space,other_space
dim f,fso
DEF_Folder = "../"
Set fso = CreateObject(FSOstr)
Set f = fso.GetFolder(Server.Mappath(DEF_Folder))
all_Space = f.Size
Set f = Nothing
Set f = fso.GetFolder(Server.Mappath(Replace(DEF_Folder & film_pic ,"/","\")))
Upload_Space = f.Size
Set f = Nothing
Set f = fso.GetFile(Server.Mappath(Replace(DEF_Folder & datamdb ,"/","\")))
Database_Space = f.Size
Set f = Nothing
Set f = fso.GetFolder(Server.Mappath(Replace(DEF_Folder & backup_saver ,"/","\")))
Database_backup_Space = f.Size
Set f = Nothing
Set f = fso.GetFolder(Server.Mappath(Replace(sys_logsaver ,"/","\")))
sys_logsaver_size = f.Size
Set f = Nothing
Set fso = Nothing
other_space=all_Space-(Database_Space+Database_backup_Space+sys_logsaver_size+Upload_Space)
Rw "<table border=0 cellspacing=0 cellpadding=3 align=left><tr><td>"
Rw "<div align=right>软件总占用空间：</div></td>"
Rw " <td><font color=red class=RedFont>" & PrintSpaceValue(all_Space) & "</font> "
Rw " [" & all_Space & " Bytes]</td>"
Rw " <td></td></tr><tr><td><div align=right>系统数据库大小：</div></td>"
Rw " <td><font color=red class=RedFont>" & PrintSpaceValue(Database_Space) & "</font>[" & Database_Space & " Bytes]</td>"
Rw " <td><img src=images/vb2.gif width="&Database_Space/all_Space*100&" height=10> "&formatnumber(Database_Space/all_Space*100,1)&"%</td>"
Rw " </tr><tr><td>"
Rw "<div align=right>备份数据库目录：</div></td>"
Rw " <td><font color=red class=RedFont>" & PrintSpaceValue(Database_backup_Space) & "</font> [" & Database_Space & " Bytes]</td>"
Rw " <td><img src=images/vb3.gif width="&Database_backup_Space/all_Space*100&" height=10> "&formatnumber(Database_backup_Space/all_Space*100,1)&"%</td>"
Rw " </tr><tr><td>"
Rw "<div align=right>后台日志目录：</div></td><td><font color=red class=RedFont>" & PrintSpaceValue(sys_logsaver_size) & "</font> [" & Database_Space & " Bytes]</td>"
Rw " <td><img src=images/vb4.gif width="&sys_logsaver_size/all_Space*100&" height=10> "&formatnumber(sys_logsaver_size/all_Space*100,1)&"%</td></tr><tr><td>"
Rw "<div align=right>影片图片目录：</div></td><td><font color=red class=RedFont>" & PrintSpaceValue(Upload_Space) & "</font> [" & Upload_Space & " Bytes]</td>"
Rw " <td><img src=images/vb5.gif width="&Upload_Space/all_Space*100&" height=10> "&formatnumber(Upload_Space/all_Space*100,1)&"</td></tr>"
Rw "<tr><td><div align=right>其它数据：</div></td><td><font color=red class=RedFont>" & PrintSpaceValue(other_space) & "</font> [" & other_space & " Bytes]</td><td><img src=images/vb5.gif width="&other_Space/all_Space*100&" height=10> "&formatnumber(other_Space/all_Space*100,1)&"%</td></tr></table>"
End Function
'*****************************************************************
' KB转M函数，不够1M,自动显示K
'*****************************************************************
Function PrintSpaceValue(vv)
Dim v
v = vv
If v > 1024*1024 Then
v = v/1024/1024
If inStr(v,".") Then
v = Left(v,inStr(v,".")+2)
End If
v = v & " M"
Else
v = Fix(v/1024) & " K"
End If
PrintSpaceValue = v
End Function
'*****************************************************************
' 数据库备份 函数
'*****************************************************************
Function Backupdata()
dbpath=Server.MapPath(dbpath)
backup_name=md5(now(),1)
dbpath2=Server.MapPath("../"&backup_saver&"/"&backup_name&backup_txtname)
Set Fso=server.createobject(FSOstr)
if fso.fileexists(dbpath) then
fso.copyfile dbpath,dbpath2
Backupdata="数据库备份成功，文件名["&backup_name&""&backup_txtname&"]"
call write_log(session("admin_username"),"备份数据库成功")
else
Backupdata="备份失败"
end if
set fso=nothing
End Function
'*****************************************************************
' 切换数据库 函数
'*****************************************************************
Function Resetdata(str2)
dbpath2=Server.MapPath("../"&backup_saver&"/"&str2)
Set Fso=server.createobject(FSOstr)
'///////////获取数据库目录//////////////////////
Set f = fso.GetFile(dbpath)
data_folde=Replace(f.Path,f.Name,"")
name_fsoedit=Replace(datamdb,f.Name,str2) '生成新数据库路径
test_congfu=f.Name '取得文件名用来取得是否要执行操作
Set f=nothing
if fso.fileexists(dbpath2) and test_congfu<>str2 then '开始copy
Set f = fso.GetFile(dbpath2)
fso.movefile dbpath2,data_folde
Set f=nothing
if fso.fileexists(dbpath) and test_congfu<>str2 then
Set f = fso.GetFile(dbpath)
f.delete
Set f = Nothing
Resetdata = "成功切换系统数据库为["&str2&"]，原数据库己备份后删除"
call write_log(session("admin_username"),"切换数据库成功["&left(request("name"),8)&"***]")
end if
else
Resetdata = "要切换的数据库为当前数据库，或找不到备份数据文件"
end if
call fsoedit("datamdb",datamdb,name_fsoedit) '编辑config.asp文件
set fso=nothing
End Function
'*****************************************************************
' 删除备份数据库 函数
'*****************************************************************
Function delete_data(str)
Set Fso=server.createobject(FSOstr)
del_path=Server.MapPath("../"&backup_saver&"/"&str)
Set f = fso.GetFile(del_path)
if fso.fileexists(del_path) then
Set f = fso.GetFile(del_path)
f.delete
Set f = Nothing
delete_data = "成功删除备份数据文件["&str&"]"
end if
set fso=nothing
End Function
'*****************************************************************
' 清空所有备份
'*****************************************************************
function backup_clear()
clear_dbpath=Server.MapPath("../"&backup_saver)
Set fso = CreateObject(fsostr)
If fso.folderexists(clear_dbpath) then
fso.DeleteFolder clear_dbpath,True
end if
backup_clear = "成功清除所有备份"
set fso=nothing
end function
'*****************************************************************
' 网站关闭函数，用于操作数据库时，暂停数据访问 config.asp内作验证
'*****************************************************************
function site_app()
Application.Lock
if trim(Application("app_status"))="" then
Application("app_status") = "系统正在更新，请稍后刷新页面..."
else
Application("app_status") = ""
end if
Application.UnLock
end function
'*****************************************************************
' 验证码显示函数
'*****************************************************************
Sub DisplayBMP
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 8
Const cAmount = 36
Const cCode = "0123456789"
Dim vColorData(1)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)
vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255)
Dim vCode(4)
For i = 0 To 3
vCode(i) = Mid(RndNumberStr,i + 1,1)
Next
Dim ND(35)
ND(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
ND(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
ND(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
ND(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
ND(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
ND(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
ND(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
ND(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
ND(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
ND(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
ND(10) = "1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011"
ND(11) = "1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111"
ND(12) = "1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111"
ND(13) = "1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111"
ND(14) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111"
ND(15) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111"
ND(16) = "1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111"
ND(17) = "1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011"
ND(18) = "1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
ND(19) = "1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111"
ND(20) = "1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011"
ND(21) = "1000111111110111111111011111111101111111110111111111011111111101111111110111111111011110111000000011"
ND(22) = "1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011"
ND(23) = "1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111"
ND(24) = "1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111"
ND(25) = "1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111"
ND(26) = "1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011"
ND(27) = "1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011"
ND(28) = "1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111"
ND(29) = "1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111"
ND(30) = "1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111"
ND(31) = "1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111"
ND(32) = "1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111"
ND(33) = "1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011"
ND(34) = "1000100011110111011111011101111110101111111010111111110111111111011111111101111111110111111110001111"
ND(35) = "1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011"
' 输出图像文件头
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
' 输出图像信息头
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0)
For i = 9 To 0 Step -1
For ii = 0 To 3
For iii = 1 To 10
If Rnd * 99 + 1 < cOdds Then
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(ND(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
'*****************************************************************
' 显示网站标题以及meta信息
'*****************************************************************
function showtitle()
Rw "<!--"&chr(13)&""
Rw "┌────────亚阳软件───────┐"&chr(13)&""
Rw "│本页最后更新时间:"&now()&" │"&chr(13)&""
Rw "└───────────────ayang.cn┘"&chr(13)&""
Rw "-->"&chr(13)&""&chr(13)&""
Rw "<META name='description' content='亚阳软件,http://www.ayang.cn,亚阳影视，史上功能最强大的影视系统平台,流媒体,防盗链技术,HelixAPP,iis防盗链,Rtsp防盗链技术,门户合作,网吧影院工程,阿阳asp数据库备份中间件,网上商城，软件开发,组件,免费代码,ASP,数据库,SQL,文章,入门,ASP精品屋'>"&chr(13)&""
Rw "<meta name='keywords' content='亚阳软件,http://www.ayang.cn,亚阳影视,史上功能最强大的影视系统平台,阿阳软件中间件,流媒体,防盗链技术,HelixAPP,iis防盗链,Rtsp防盗链技术,门户合作,网吧影院工程,阿阳asp数据库备份中间件,数码商城,软件开发,组件,免费代码,ASP,数据库,SQL,文章,入门,ASP精品屋'>"&chr(13)&""
Rw "<meta name='author' content='亚阳软件'>"&chr(13)&""
Rw "<title>"&site_title&"-"&site&"</title>"
end function
'*****************************************************************
' 获取远程内容
' url 为网络地址
'*****************************************************************
Function GetBody(url)
'-----------------------本函数为远程获取内容的函数---------------------
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
'----------------------建立XMLHTTP对象-----------------------------
With Retrieval
.Open "Get", url, False, "", ""
'------------------用Get，异步的方法发送-----------------------
.Send
sta=.status
if sta=200 then
GetBody = .ResponseBody
else
call msgbox_j ("发生错误，服务器返回状态："&sta&"","history.go(-1)")
Response.end
end if
'------------------函数返回获取的内容--------------------------
End With
Set Retrieval = Nothing
End Function
'*****************************************************************
' 获取文件扩展名
' str 为地址
