usicFrame.asp 易心博客[圣诞版] 3.5手动安装码程序 - ASP源码程序

www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > MusicFrame.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Ex_Cls/Ex_FsoCls.asp"-->
<!--#include file="Ex_Cls/Ex_CommonCls.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>
<%
Dim ExComm
Set ExComm=new Ex_CommonCls
ExComm.CheckInstall
ExComm.IsIpAllow
Response.Write ExComm.BlogName
Dim FUrl
FUrl=Request.servervariables("http_referer")
If request("f")<>"" Then 
	FUrl="index.asp"
ElseIf InStr(LCase(FUrl),"musicframe.asp")=0 Or FUrl="" Then 
	FUrl="music.asp"
End If 
Dim H
H=Request.QueryString("h")
If H="" Then 
	H=0
End If 
%>
</title>
</head>
<script>
if (top.location!=location)
{
	top.location="musicframe.asp"
}
</script>
<frameset rows="*,<%=H%>" frameborder="0" border="0" framespacing="0">
  <frame src="<%=Furl%>" name="mainFrame" id="mainFrame"> <!--这里修改为你主页的链接-->
  <frame src="Player/Default/exobud.html" name="btFrame" id="btFrame" scrolling="NO" noresize >
  <noframes>
  <body>
  </body>
  </noframes>
</frameset>
<frameset>
</frameset>
</html>