📄 movieset.asp
字号:
<%Admin="System"%>
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="电影制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body topmargin="1">
<div align="center">
<%
if request("type")="save" then
if request("MovieWebtime")<>"" then
MovieWebtime=request("MovieWebtime")
else
MovieWebtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("movieconfig.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "MovieWebname="&chr(34)&""&request("MovieWebname")&""&chr(34)&""
TS1.writeline "MovieWeburl="&chr(34)&""&request("MovieWeburl")&""&chr(34)&""
TS1.writeline "MovieWebmaster="&chr(34)&""&request("MovieWebmaster")&""&chr(34)&""
TS1.writeline "MovieWebqq="&chr(34)&""&request("MovieWebqq")&""&chr(34)&""
TS1.writeline "MovieWebemail="&chr(34)&""&request("MovieWebemail")&""&chr(34)&""
TS1.writeline "MovieWebtime="&chr(34)&""&MovieWebtime&""&chr(34)&""
TS1.writeline "MovieWebsmtp="&chr(34)&""&request("MovieWebsmtp")&""&chr(34)&""
TS1.writeline "xoYuMovieLb="&chr(34)&""&request("xoYuMovieLb")&""&chr(34)&""
TS1.writeline "xoYuMovieLbShu="&chr(34)&""&request("xoYuMovieLbShu")&""&chr(34)&""
TS1.writeline "xoYuMovieLbShuAll="&chr(34)&""&request("xoYuMovieLbShuAll")&""&chr(34)&""
TS1.writeline "xoYuMovieYy="&chr(34)&""&request("xoYuMovieYy")&""&chr(34)&""
TS1.writeline "xoYuMovieSq="&chr(34)&""&request("xoYuMovieSq")&""&chr(34)&""
TS1.writeline "xoYuMovieTime="&chr(34)&""&request("xoYuMovieTime")&""&chr(34)&""
TS1.writeline "xoYuStudioUser="&chr(34)&""&request("xoYuStudioUser")&""&chr(34)&""
TS1.writeline "xoYuStudioUserShow="&chr(34)&""&request("xoYuStudioUserShow")&""&chr(34)&""
TS1.writeline "xoYuStudioUrl="&chr(34)&""&request("xoYuStudioUrl")&""&chr(34)&""
TS1.writeline "xoYuStudioWin="&chr(34)&""&request("xoYuStudioWin")&""&chr(34)&""
TS1.writeline "xoYuStudioWinClose="&chr(34)&""&request("xoYuStudioWinClose")&""&chr(34)&""
TS1.writeline "MovieWebgbook="&chr(34)&""&request("MovieWebgbook")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "MovieSet.asp?ok=成功:修改系统设置完成!"
response.end
end if
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%>
<!--#include file="MovieConfig.asp"-->
<form action="MovieSet.asp?type=save" method="post">
<%if request("ok")<>"" then%>
<table border="0" cellspacing="0" width="98%" cellpadding="0" height="13">
<tr>
<td width="98%" height="13">
<font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" class="tableBorder" height="659">
<tr>
<th width="98%" class="forumrow" height="18"><font color="#FFFFFF"><b>电影系统设置</b></font></th>
</tr>
<tr>
<td width="98%" class="forumrow" height="15"> <font color="#000080"><b>网站基本信息</b></font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 本站站名：
<input name="MovieWebname" value="<%=MovieWebname%>" size="25" style="border-style: solid; border-width: 1">
</td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 本站网址：
<input name="MovieWeburl" value="<%=MovieWeburl%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080">不用加 http://,例(www.xoYu.com)</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 站长姓名：
<input name="MovieWebmaster" value="<%=MovieWebmaster%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080"> 用于首页网站维护人</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 站长 QQ
：
<input name="MovieWebqq" value="<%=MovieWebqq%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080"> 用于联系QQ</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 站长信箱：
<input name="MovieWebemail" value="<%=MovieWebemail%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080"> 用于发送邮件</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="15"> <font color="#000080"><b>本机环境设置</b></font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 系统时差：
<input name="MovieWebtime" value="<%=MovieWebtime%>" size="15" style="border-style: solid; border-width: 1">
<font color="#808080"> 设置服务器时间与本地的时差(单位:小时),填写如 +3 或 -2</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="20"> 发信组件：
<select name="MovieWebsmtp" size="1">
<oTimeion value="">不使用发信功能</oTimeion><oTimeion<%if MovieWebsmtp="CDONTS" then%> selected<%end if%> value="CDONTS">CDONTS</oTimeion><oTimeion<%if MovieWebsmtp="JMAIL" then%> selected<%end if%> value="JMAIL">JMAIL</oTimeion>
</select>
<font color="#808080">CDONTS
<%
If Not IsObjInstalled("CDONTS.NewMail") Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%>
JMail
<%
If Not IsObjInstalled("JMail.SMTPMail") Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%>
</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="15"> <font color="#000080"><b>电影性质自定</b></font><font color="#808080">
多个请用英文的豆号"</font><font color="#FF0000">,</font><font color="#808080">"分开,如(AA,BB,CC)</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="1">
<table border="0" cellspacing="0" width="98%" cellpadding="0">
<tr>
<td width="98%"> 产地：
<input name="xoYuMovieLb" value="<%=xoYuMovieLb%>" size="72" style="border-style: solid; border-width: 1">
</td>
</tr>
<tr>
<td width="98%"> <font color="#808080"> [产地]说明：类别加好后在[生成"更新"页]时会按"全部电影"+你填的类别,从n0-n*自动生成HTML页,请注意顺序</font></td>
</tr>
<tr>
<td width="98%">列表显示电影数：
<input name="xoYuMovieLbShu" value="<%=xoYuMovieLbShu%>" size="35" style="border-style: solid; border-width: 1">
<font color="#808080"> 对照上面的顺序,用英文的豆号"</font><font color="#FF0000">,</font><font color="#808080">"分开如(50,50)</font></td>
</tr>
<tr>
<td width="98%">全部电影显示数：
<input name="xoYuMovieLbShuAll" value="<%=xoYuMovieLbShuAll%>" size="9" style="border-style: solid; border-width: 1">
<font color="#808080"> [生成"更新"页]时全部电影HTML页显示的电影数,见议100个以下</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 语言：
<input name="xoYuMovieYy" value="<%=xoYuMovieYy%>" size="72" style="border-style: solid; border-width: 1">
</td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 授权：
<input name="xoYuMovieSq" value="<%=xoYuMovieSq%>" size="70" style="border-style: solid; border-width: 1">
版</td>
</tr>
<tr>
<td width="98%" class="forumrow" height="18"> 片长：
<input name="xoYuMovieTime" value="<%=xoYuMovieTime%>" size="72" style="border-style: solid; border-width: 1">
</td>
</tr>
<tr>
<td width="98%" class="forumrow" height="15"> <font color="#000080"><b>电影下载设置</b></font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="30"> 会员下载限制：
<input<%if xoYuStudioUser="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioUser" value="1">
<font color="#808080">使用后,会员电影要有高于该电影所设置级别的用户才能下载(打开后只能直接点击下载)<br>
<input<%if xoYuStudioUserShow="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioUserShow" value="1">
显示电影地址(上面功能使用后,当会员点击下载时直接显示电影真实地址给会员使用工具下载)</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="78"> 防盗链功能：
<input<%if xoYuStudioUrl="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioUrl" value="1">
A
<input<%if xoYuStudioWin="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioWin" value="1">
B <font color="#808080">(防盗链功能只对电影下载,不对在线电影)</font><br>
<font color="#808080">A.检查用户是否从本站点击连接,如果不是则</font><input<%if xoYuStudioUrl="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioUrl" value="1"><input<%if xoYuStudioWin="1" then%> checked<%end if%> type="checkbox" name="xoYuStudioWin" value="1"><font color="#808080">自动跳转到电影下载(使用工具仍然可以下载)<br>
B.使用此功能后要查找真实地址比较困难,应该来说没人会那么傻还会找的了(打开后只能直接点击下载)<br>
A,B功能同时使用效果就OK了! 如果你有更好的防盗链方案(电影上)请与我们联系,谢谢!<br>
</font>下载窗关闭时间：
<input name="xoYuStudioWinClose" value="<%=xoYuStudioWinClose%>" size="5" style="border-style: solid; border-width: 1">
秒 <font color="#808080">使用B时用到("正在下载"窗口自动关闭时间,见议10秒以上,因为连接电影时间可能很长</font></td>
</tr>
<tr>
<td width="98%" class="forumrow" height="1"></td>
</tr>
<tr>
<th width="98%" class="forumrow" height="22">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原">
</p>
</th>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -