📄 system.asp
字号:
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="zcm.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>系统设置 - 惊-云-下-载-系-统-(-H-T-M-L-版-)</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"JyDownH"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write("<b><font color=""#FF0000"">错误：程序尚未注册,此功能不能使用!</font></b>")
response.end
end if
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline "weburl="&chr(34)&""&request("weburl")&""&chr(34)&""
TS1.writeline "webemail="&chr(34)&""&request("webemail")&""&chr(34)&""
TS1.writeline "webtime="&chr(34)&""&webtime&""&chr(34)&""
TS1.writeline "websmtp="&chr(34)&""&request("websmtp")&""&chr(34)&""
TS1.writeline "webDownLb="&chr(34)&""&request("webDownLb")&""&chr(34)&""
TS1.writeline "webDownLbShu="&chr(34)&""&request("webDownLbShu")&""&chr(34)&""
TS1.writeline "webDownLbShuAll="&chr(34)&""&request("webDownLbShuAll")&""&chr(34)&""
TS1.writeline "webDownYy="&chr(34)&""&request("webDownYy")&""&chr(34)&""
TS1.writeline "webDownSq="&chr(34)&""&request("webDownSq")&""&chr(34)&""
TS1.writeline "webDownPt="&chr(34)&""&request("webDownPt")&""&chr(34)&""
TS1.writeline "JyDownUser="&chr(34)&""&request("JyDownUser")&""&chr(34)&""
TS1.writeline "JyDownUserShow="&chr(34)&""&request("JyDownUserShow")&""&chr(34)&""
TS1.writeline "JyDownUrl="&chr(34)&""&request("JyDownUrl")&""&chr(34)&""
TS1.writeline "JyDownWin="&chr(34)&""&request("JyDownWin")&""&chr(34)&""
TS1.writeline "JyDownWinClose="&chr(34)&""&request("JyDownWinClose")&""&chr(34)&""
TS1.writeline "webgbook="&chr(34)&""&request("webgbook")&""&chr(34)&""
TS1.writeline "webreg="&chr(34)&""&request("webreg")&""&chr(34)&""
TS1.writeline "webreglock="&chr(34)&""&request("webreglock")&""&chr(34)&""
TS1.writeline "webuseredit="&chr(34)&""&request("webuseredit")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "system.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="config.asp"-->
<form action="system.asp?type=save" method="post">
<%if request("ok")<>"" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="620" cellpadding="0">
<tr>
<td width="100%">
<font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" style="border-collapse: collapse" width="620" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#6A6A6A"><font color="#FFFFFF"><b>系统设置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>网站基本信息</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
本站站名：<input name="webname" value="<%=webname%>" size="25" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
本站网址：<input name="weburl" value="<%=weburl%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080">不用加 http://,例(www.65658.com)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
站长信箱：<input name="webemail" value="<%=webemail%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
用于发送邮件</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>本机环境设置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
系统时差：<input name="webtime" value="<%=webtime%>" size="15" style="border-style: solid; border-width: 1"><font color="#808080">
设置服务器时间与本地的时差(单位:小时),填写如 +3 或 -2</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
发信组件：<select name="websmtp" size="1">
<option value="">不使用发信功能</option>
<option<%if websmtp="CDONTS" then%> selected<%end if%> value="CDONTS">
CDONTS</option><option<%if websmtp="JMAIL" then%> selected<%end if%> value="JMAIL">JMAIL</option>
</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="100%" bgcolor="#F4F4F4">
<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="100%" bgcolor="#FFFFFF">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"> 类别：<input name="webDownLb" value="<%=webDownLb%>" size="72" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%"> <font color="#808080">
[类别]说明：类别加好后在[生成"更新"页]时会按"全部软件"+你填的类别,从n0-n*自动生成HTML页,请注意顺序<br>
如果填入[</font>在线电影<font color="#808080">],侧自动读取"文件格式"为"电影"的软件.<br>
如果填入[</font>精彩动画<font color="#808080">],侧自动读取"文件格式"为"Flash"的软件.<br>
如果填入[</font>特别软件<font color="#808080">],侧自动读取"授权"为"注册,破解,零售"版的软件.</font></td>
</tr>
<tr>
<td width="100%">列表显示软件数：<input name="webDownLbShu" value="<%=webDownLbShu%>" 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="100%">全部软件显示数：<input name="webDownLbShuAll" value="<%=webDownLbShuAll%>" size="9" style="border-style: solid; border-width: 1"> <font color="#808080">
[生成"更新"页]时全部软件HTML页显示的软件数,见议100个以下</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
语言：<input name="webDownYy" value="<%=webDownYy%>" size="72" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
授权：<input name="webDownSq" value="<%=webDownSq%>" size="70" style="border-style: solid; border-width: 1">版</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
平台：<input name="webDownPt" value="<%=webDownPt%>" size="72" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>软件下载设置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
会员下载限制：<input<%if JyDownUser="1" then%> checked<%end if%> type="checkbox" name="JyDownUser" value="1"><font color="#808080">使用后,会员软件要有高于该软件所设置级别的用户才能下载(打开后只能直接点击下载)<br>
<input<%if JyDownUserShow="1" then%> checked<%end if%> type="checkbox" name="JyDownUserShow" value="1">显示软件地址(上面功能使用后,当会员点击下载时直接显示软件真实地址给会员使用工具下载)</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
防盗链功能：<input<%if JyDownUrl="1" then%> checked<%end if%> type="checkbox" name="JyDownUrl" value="1">A
<input<%if JyDownWin="1" then%> checked<%end if%> type="checkbox" name="JyDownWin" value="1">B
<font color="#808080">(防盗链功能只对软件下载,不对在线电影)</font><br>
<font color="#808080">A.检查用户是否从本站点击连接,如果不是侧自动跳转到软件下载(使用工具仍然可以下载)<br>
B.使用此功能后要查找真实地址比较困难,应该来说没人会那么傻还会找的了(打开后只能直接点击下载)<br>
A,B功能同时使用效果还算OK了! 如果你有更好的防盗链方案(程序上)请与惊云联系,谢谢!<br>
</font>下载窗关闭时间：<input name="JyDownWinClose" value="<%=JyDownWinClose%>" size="5" style="border-style: solid; border-width: 1">秒
<font color="#808080">使用B时用到("正在下载"窗口自动关闭时间,见议10秒以上,因为连接软件时间可能很长</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>会员相关设置</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
允许新人注册：<input<%if webreg="1" then%> checked<%end if%> type="checkbox" name="webreg" value="1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
注册后默认锁定：<input<%if webreglock="1" then%> checked<%end if%> type="checkbox" name="webreglock" value="1">
<font color="#808080">锁定的用户不能登陆</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
允许修改资料：<input<%if webuseredit="1" then%> checked<%end if%> type="checkbox" name="webuseredit" value="1"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</td>
</tr>
</table>
</form>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -