www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/DownSet.asp
<%Admin="System"%> <!--#include file="check.asp"--> <!--#include file="RegNum.asp"--> <% '强制浏览器重新访问服务器下载页面,而不是从缓存读取页面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网站内容管理系统</title> <link rel="stylesheet" href="admin.css" type="text/css"> </head> <body topmargin="1"> <div align="center"> <% if request("type")="save" then zj=Request.ServerVariables("SERVER_NAME") zj=left(replace(zj,"www.",""),6) zj=replace(zj,"4","a") zj=replace(zj,"5","b") zj=replace(zj,"6","c") zj=replace(zj,"7","d") zj=replace(zj,"8","e") zj=replace(zj,"9","f") zj=replace(zj,"0","g") zj=replace(zj,"1","h") zj=replace(zj,"2","i") zj=replace(zj,"3","j") zj=replace(zj,"s","40") zj=replace(zj,"v","41") zj=replace(zj,"k","52") zj=replace(zj,"d","53") zj=replace(zj,"e","64") zj=replace(zj,"f","65") zj=replace(zj,"o","76") zj=replace(zj,"h","77") zj=replace(zj,"i","88") zj=replace(zj,"m","89") zj=replace(zj,"u","20") zj=replace(zj,"l","21") zj=replace(zj,"w","22") zj=replace(zj,"q","23") zj=replace(zj,"c","24") zj=replace(zj,"a","25") zj=replace(zj,"x","26") zj=replace(zj,"j","27") zj=replace(zj,"b","28") zj=replace(zj,"r","29") zj=replace(zj,"y","30") zj=replace(zj,"t","31") zj=replace(zj,"z","32") zj=replace(zj,"n","33") zj=replace(zj,"p","34") zj=replace(zj,"g","35") zj=replace(zj,"-","36") zj=replace(zj,".","37") yregnum=zj*(len(zj)+len(name&"xoYuNews")) Do While yregnum>10000000000 yregnum=yregnum-10000000000 loop if request("webtime")<>"" then webtime=request("webtime") else webtime=0 end if Set fs=Server.CreateObject("Scripting.FileSystemObject") Set TS1 = fs.CreateTextFile(Server.MapPath("Downconfig.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 "weblogo="&chr(34)&""&request("weblogo")&""&chr(34)&"" TS1.writeline "webmaster="&chr(34)&""&request("webmaster")&""&chr(34)&"" TS1.writeline "webqq="&chr(34)&""&request("webqq")&""&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 "xoYuDownLb="&chr(34)&""&request("xoYuDownLb")&""&chr(34)&"" TS1.writeline "xoYuDownLbShu="&chr(34)&""&request("xoYuDownLbShu")&""&chr(34)&"" TS1.writeline "xoYuDownLbShuAll="&chr(34)&""&request("xoYuDownLbShuAll")&""&chr(34)&"" TS1.writeline "xoYuDownYy="&chr(34)&""&request("xoYuDownYy")&""&chr(34)&"" TS1.writeline "xoYuDownSq="&chr(34)&""&request("xoYuDownSq")&""&chr(34)&"" TS1.writeline "xoYuDownPt="&chr(34)&""&request("xoYuDownPt")&""&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 "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 "DownSet.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="DownConfig.asp"--> <form action="DownSet.asp?type=save" method="post"> <%if request("ok")<>"" then%> <table border="0" cellspacing="0" style="border-collapse: collapse" cellpadding="0" height="13"> <tr> <td width="100%" class=forumrow height="13"> <font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td> </tr> </table> <%end if%> <table width="98%" border="0" cellspacing="1" class="tableBorder" height="843"> <tr> <th width="100%" bgcolor="#6A6A6A" height="18"><font color="#FFFFFF"><b>下载系统设置</b></font></th> </tr> <tr> <th width="100%" bgcolor="#F4F4F4" height="15"> <font color="#000080"><b>网站基本信息</b></font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 本站站名: <input name="webname" value="<%=webname%>" size="25" style="border-style: solid; border-width: 1"> </td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 本站网址: <input name="weburl" value="<%=weburl%>" size="25" style="border-style: solid; border-width: 1"> <font color="#808080">不用加 http://,例(www.xoYu.com)</font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 本站logo: <input name="weblogo" value="<%=weblogo%>" size="25" style="border-style: solid; border-width: 1"> <font color="#808080"> 用于首页左侧logo</font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 站长姓名: <input name="webmaster" value="<%=webmaster%>" size="25" style="border-style: solid; border-width: 1"> <font color="#808080"> 用于首页网站维护人</font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 站长 QQ : <input name="webqq" value="<%=webqq%>" size="25" style="border-style: solid; border-width: 1"> <font color="#808080"> 用于联系QQ</font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 站长信箱: <input name="webemail" value="<%=webemail%>" size="25" style="border-style: solid; border-width: 1"> <font color="#808080"> 用于发送邮件</font></td> </tr> <tr> <th width="100%" bgcolor="#F4F4F4" height="15"> <font color="#000080"><b>本机环境设置</b></font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 系统时差: <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%" class=forumrow bgcolor="#FFFFFF" height="20"> 发信组件: <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> <th width="100%" bgcolor="#F4F4F4" 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="100%" class=forumrow bgcolor="#FFFFFF" height="114"> <table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0"> <tr> <td width="100%" class=forumrow> 类别: <input name="xoYuDownLb" value="<%=xoYuDownLb%>" size="72" style="border-style: solid; border-width: 1"> </td> </tr> <tr> <td width="100%" class=forumrow> <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%" class=forumrow>列表显示软件数: <input name="xoYuDownLbShu" value="<%=xoYuDownLbShu%>" 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%" class=forumrow>全部软件显示数: <input name="xoYuDownLbShuAll" value="<%=xoYuDownLbShuAll%>" size="9" style="border-style: solid; border-width: 1"> <font color="#808080"> [生成"更新"页]时全部软件HTML页显示的软件数,见议100个以下</font></td> </tr> </table> </td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 语言: <input name="xoYuDownYy" value="<%=xoYuDownYy%>" size="72" style="border-style: solid; border-width: 1"> </td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 授权: <input name="xoYuDownSq" value="<%=xoYuDownSq%>" size="70" style="border-style: solid; border-width: 1"> 版</td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="18"> 平台: <input name="xoYuDownPt" value="<%=xoYuDownPt%>" size="72" style="border-style: solid; border-width: 1"> </td> </tr> <tr> <th width="100%" bgcolor="#F4F4F4" height="15"> <font color="#000080"><b>软件下载设置</b></font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" 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="100%" class=forumrow bgcolor="#FFFFFF" 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.检查用户是否从本站点击连接,如果不是侧自动跳转到软件下载(使用工具仍然可以下载)<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> <th width="100%" bgcolor="#F4F4F4" height="15"> <font color="#000080"><b>会员相关设置</b></font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="15"> 允许新人注册: <input<%if webreg="1" then%> checked<%end if%> type="checkbox" name="webreg" value="1"> </td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="15"> 注册后默认锁定: <input<%if webreglock="1" then%> checked<%end if%> type="checkbox" name="webreglock" value="1"> <font color="#808080">锁定的用户不能登陆</font></td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="15"> 允许修改资料: <input<%if webuseredit="1" then%> checked<%end if%> type="checkbox" name="webuseredit" value="1"> </td> </tr> <tr> <td width="100%" class=forumrow bgcolor="#FFFFFF" height="1"></td> </tr> <tr> <th width="100%" bgcolor="#F4F4F4" 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>