⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_vidpath.asp

📁 安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!
💻 ASP
字号:
🔍 
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="vid_path.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>Hxcms管理中心——影视防盗链设置</TITLE>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
  founderr=true
Response.Write("<script language=javascript>alert('您尚未登陆或登陆超时，请重新登陆!！');this.top.location.href='admin.asp';</script>")
  response.end
else
select case Request("menu")
case ""
config
case "config"
config
case "configok"
configok
end select
sub config%>
<table width=98% align="center" border="1" cellspacing="0" cellpadding="4" class=hxcmsbk style="border-collapse: collapse">
<form method="post" action="?menu=configok">
<tr class=hxcmsss>
<td colspan="2" height="25">影视防盗链路径设置</td>
</tr>
<tr class=hxcmsqs>
<td colspan="2">用于设置影视防盗链路径！需要（ADODB.Stream）支持</td>
</tr>
<tr class=hxcmsds>
<td height="25" width="80"> 路径1：</td>
<td width="*" height="25"><input size="40" name="v_path1" value="<%=v_path1%>"> 路径最后应 / 结束</td>
</tr>
<tr class=hxcmsds>
<td height="25" width="80"> 路径2：</td>
<td width="*" height="25"><input size="40" value="<%=v_path2%>" name="v_path2"> 路径最后应 / 结束</td>
</tr>
<tr class=hxcmsds>
<td height="25" width="80"> 路径3：</td>
<td width="*" height="25"><input size="40" value="<%=v_path3%>" name="v_path3"> 路径最后应 / 结束</td>
</tr>
<tr class=hxcmsds>
<td height="25" width="80"> 路径4：</td>
<td width="*" height="25"><input size="40" value="<%=v_path4%>" name="v_path4"> 路径最后应 / 结束</td>
</tr>
<tr class=hxcmsds>
<td height="25" width="80"> 路径5：</td>
<td width="*" height="25"><input size="40" value="<%=v_path5%>" name="v_path5"> 路径最后应 / 结束</td>
</tr>
<tr class=hxcmsds>
<td colspan="2"> 如是相对路径，请修改你空间上相对应的文件夹名</td>
</tr>
<tr class=Hxcmsds> 
<td colspan="2"> 文件将被保存在你安装目录下的<font color=red>vid_path.asp</font>文件里，如果您的空间不支持<font color=red>ADODB.Stream</font>，请直接编辑该文件！</td>
</tr>            
<tr class=hxcmsqs>
<td colspan="2" align="center"><input type="submit" value=" 更 新 数 据 "></td>
</tr>
</table>
<%
end sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >vid_path.asp</font>文件内容替换成框中内容"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "gb2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub
sub configok()
v_path1 = replace(Trim(Request.Form("v_path1")),CHR(34),"'")
v_path2 = replace(Trim(Request.Form("v_path2")),CHR(34),"'")
v_path3 = replace(Trim(Request.Form("v_path3")),CHR(34),"'")
v_path4 = replace(Trim(Request.Form("v_path4")),CHR(34),"'")
v_path5 = replace(Trim(Request.Form("v_path5")),CHR(34),"'")
Dim n,TempStr
	TempStr = ""
	TempStr = TempStr & chr(60) & "%" & VbCrLf
	TempStr = TempStr & "dim v_path1,v_path2,v_path3,v_path4,v_path5" & VbCrLf
	TempStr = TempStr & "v_path1="& Chr(34) & v_path1 & Chr(34) &"     '路径1" & VbCrLf
	TempStr = TempStr & "v_path2="& Chr(34) & v_path2 & Chr(34) &"     '路径2" & VbCrLf
	TempStr = TempStr & "v_path3="& Chr(34) & v_path3 & Chr(34) &"     '路径3" & VbCrLf
	TempStr = TempStr & "v_path4="& Chr(34) & v_path4 & Chr(34) &"     '路径4" & VbCrLf
	TempStr = TempStr & "v_path5="& Chr(34) & v_path5 & Chr(34) &"     '路径5" & VbCrLf
	TempStr = TempStr & "%" & chr(62) & VbCrLf
	ADODB_SaveToFile TempStr,"vid_path.asp"
If GBL_CHK_TempStr = "" Then
Response.Write "<table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=hxcmsbk style=""border-collapse: collapse""><tr><td class=hxcmsss>影视防盗链路径设置</td></tr><tr class=hxcmsds><td align=""center"" height=""66"">&gt;更新修改成功&lt;</td></tr></table>"
Else
%>
<table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=hxcmsbk style=""border-collapse: collapse""><tr><td class=hxcmsss>影视防盗链路径设置</td></tr><tr class=hxcmsds><td align=""center"" height=""66"">&gt;<%=GBL_CHK_TempStr%>&lt;<br><br>
<textarea name="fileContent" cols="80" rows="30"><%=Server.htmlencode(TempStr)%></textarea></td></tr></table>
<%
GBL_CHK_TempStr = ""
	End If
End Sub
end if
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -