BVB Source Codes

Jie Yang v0.6.3 article system Show admin_siteconfig.asp Source code

Return Download Jie Yang v0.6.3 article system: download admin_siteconfig.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp"-->
  3. <!--#include file="../admin_check.asp"-->
  4. <!--#include file="../../inc/commoncode.asp"-->
  5. <%
  6. Set XMLHTTP=Server.Createobject("MSXML2.ServerXMLHTTP")
  7. On Error Resume Next
  8. xmlHttp.setTimeouts 1000,1000,1000,5000
  9. XMLHTTP.Open "POST","http://www.059it.com/Licence/",false
  10. XMLHTTP.Send "<root><SiteName>"&sitenames&InstallDir&"</SiteName><SiteUrl>"&SiteUrl&"</SiteUrl><ContactMan>"&ContactMan&"</ContactMan><ContactQQ>"&ContactQQ&"</ContactQQ><Webemail>"&email&"</Webemail><Webphone>"&telephone&"</Webphone><IPAddress>"&Request.ServerVariables("REMOTE_ADDR")&"</IPAddress><HttpUserAgent>"&Cbrowers()&"</HttpUserAgent></root>"
  11. If Err Then
  12. Err.Clear
  13. getHTTPPage="网络链接失败!"
  14. else
  15. If XMLHTTP.ReadyState = 4 and XMLHTTP.Status = 200 Then getHTTPPage=XMLHTTP.responseText
  16. set XMLHTTP=nothing
  17. end if
  18.  
  19. If Not JYAdminLevel(101) Then
  20.         Call ErrorMsg()
  21. End If
  22. %>
  23. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  24. <html xmlns="http://www.w3.org/1999/xhtml">
  25. <head>
  26. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  27. <title>网站信息配置--<%=sitename%></title>
  28. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  29. </head>
  30. <script language="javascript">
  31. function opw(url,name,width,height)
  32. {
  33. window.open(url,name,''+'width='+width+',height='+height+',scrollbars=yes'+'');
  34. }
  35. </script>
  36. <body>
  37. <a name="top" id="top"></a>
  38. <table width="98%" align="center" border="0" cellpadding="2" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  39.   <tr>
  40.     <td class="td28">网站信息设置</td>
  41.   </tr>
  42.   <tr>
  43.     <td bgcolor="#FFFFFF" class="td26"><b>管理选项:</b> <a href="#info">网站信息</a> | <a href="#site">网站选项</a> | <a href="#draw">水印设置</a> | <a href="#contact">联系方式</a> | <a href="#email">邮件选项</a> | <a href="#chat">留言选项</a> | <a href="#pl">评论选项</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
  44.   </tr>
  45. </table>
  46. <table width="98%" align="center" border="0" cellpadding="2" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  47. <form name="form1" action="admin_siteconfigsave.asp" method="post">
  48.   <tr>
  49.     <td colspan="2" class="td28">网站信息<a name="info" id="info"></a></td>
  50.     </tr>
  51.   <tr>
  52.     <td width="16%" align="right" bgcolor="#FFFFFF">网站开关:</td>
  53.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="closeoropen" type="checkbox" id="closeoropen" value="1" <%if closeoropen=1 then%>checked="checked"<%end if%> />
  54.       是 (选择为关闭)<span class="fontcolor">关闭后请编辑下边的关闭原因,将在网站关闭后友情提醒用户</span></td>
  55.   </tr>
  56.   <tr>
  57.     <td align="right" bgcolor="#FFFFFF">关闭原因:</td>
  58.     <td bgcolor="#FFFFFF">&nbsp;<input name="closewhy" type="text" id="closewhy" size="50" value="<%=closewhy%>" /></td>
  59.   </tr>
  60.   <tr>
  61.     <td width="16%" align="right" bgcolor="#FFFFFF">网站名称:</td>
  62.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="sitenames" type="text" id="sitenames" size="50" value="<%=sitenames%>" /></td>
  63.   </tr>
  64.   <tr>
  65.     <td align="right" bgcolor="#FFFFFF">网站标题:</td>
  66.     <td bgcolor="#FFFFFF">&nbsp;<input name="sitetitle" type="text" id="sitetitle" value="<%=sitetitle%>" size="50" /></td>
  67.   </tr>
  68.   <tr>
  69.     <td align="right" bgcolor="#FFFFFF">网站网址:</td>
  70.     <td valign="middle" bgcolor="#FFFFFF">&nbsp;<input name="siteurl" type="text" id="siteurl" value="<%=getUrl()%>" readonly size="50" /> <span class="fontcolor">系统自动获得正确的网址</span></td>
  71.   </tr>
  72.   <tr>
  73.     <td width="16%" align="right" bgcolor="#FFFFFF">网站META关键词:</td>
  74.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="sitekeywords" type="text" id="sitekeywords" size="50" value="<%=sitekeywords%>" />       <span class="fontcolor">针对搜索引擎设置的关键词</span></td>
  75.   </tr>
  76.   <tr>
  77.     <td align="right" bgcolor="#FFFFFF">网站META网页描述:</td>
  78.     <td bgcolor="#FFFFFF">&nbsp;<input name="sitedescription" type="text" id="sitedescription" value="<%=sitedescription%>" size="50" />       <span class="fontcolor">针对搜索引擎设置的网页描述</span></td>
  79.   </tr>
  80.   <tr>
  81.     <td colspan="2" align="left" bgcolor="#FFFFFF" class="td28"><span><a href="#top">Top↑</a></span>网站选项<a name="site" id="site"></td>
  82.     </tr>
  83.   <tr>
  84.     <td align="right" bgcolor="#FFFFFF">网站logo: </td>
  85.     <td bgcolor="#FFFFFF">&nbsp;<input name="sitelogo" type="text" id="sitelogo" value="<%=sitelogo%>" size="26" />
  86.       <input name="upfile" type="button" class="submit1" onClick="javascript:opw('../../inc/picup.asp?fromForm=form1&fromEdit=sitelogo&saveTo=../skin/<%=DefaultTempProFolder%>/&showPath=','sitelogo',420,165)" value="上传logo"> <span class="fontcolor">请上传大小为180*60的网站logo以达到最好的效果</span></td>
  87.   </tr>
  88.   <tr>
  89.     <td align="right" bgcolor="#FFFFFF">安装目录:</td>
  90.     <td bgcolor="#FFFFFF">&nbsp;<input name="InstallDir" type="text" size="10" readonly <%dim path: path=syspath(admindir)%>value=<%=path%> /> <span class="fontcolor">系统安装目录,系统会自动获得正确的路径</span></td>
  91.   </tr>
  92.   <tr>
  93.     <td align="right" bgcolor="#FFFFFF">后台目录:</td>
  94.     <td bgcolor="#FFFFFF">&nbsp;<input name="AdminDir" type="text" size="10" value="<%=AdminDir%>" />      <span class="fontcolor">为了安全,您可以修改后台管理目录(默认为Manage)</span></td>
  95.   </tr>
  96.   <tr>
  97.     <td align="right" bgcolor="#FFFFFF">编 辑 器:</td>
  98.     <td bgcolor="#FFFFFF">&nbsp;<select name="Editor">
  99.                 <option value="1" selected="selected">Fckeditor</option>
  100.                 <option value="2" <%if Editor=2 then%>selected="selected"<%end if%>>eWebEditor</option>
  101.     </select>
  102.       <span class="fontcolor">*推荐使用Fckeditor编辑器,使用eWebeditor,请自行将eWebeditor拷贝到Editor/目录下再使用!</span></td>
  103.   </tr>
  104.   <tr>
  105.     <td align="right" bgcolor="#FFFFFF">生成静态:</td>
  106.     <td bgcolor="#FFFFFF">&nbsp;<input name="ishtml" type="checkbox" id="ishtml" value="1" <%if ishtml=1 then%>checked="checked"<%end if%> />
  107.       是 <span class="fontcolor">选中后整站将以静态的方式访问</span></td>
  108.   </tr>
  109.   <tr>
  110.     <td align="right" bgcolor="#FFFFFF">首页生成时间间隔:</td>
  111.     <td bgcolor="#FFFFFF">&nbsp;<input name="createtime" type="text" id="createtime" value="<%=CreateTime%>" size="6" />
  112.       <span class="fontcolor">      *首页两次生成的时间间隔,默认60分钟即一小时自动生成一次首页</span></td>
  113.   </tr>
  114.   <tr>
  115.     <td align="right" bgcolor="#FFFFFF">生成静态目录:</td>
  116.     <td bgcolor="#FFFFFF">&nbsp;<input name="htmlfolder" type="text" id="htmlfolder" value="<%=htmlfolder%>" size="50" /></td>
  117.   </tr>
  118.   <tr>
  119.     <td colspan="2" align="left" class="td28"><span><a href="#top">Top↑</a></span>水印设置<a name="draw" id="draw"></a></td>
  120.   </tr>
  121.   <tr>
  122.     <td align="right" bgcolor="#FFFFFF">开启水印功能:</td>
  123.     <td bgcolor="#FFFFFF">&nbsp;<input type="checkbox" name="S_IsAspJpeg" value="1" <%if IsAspJpeg=1 then%>checked="checked"<%end if%> />&nbsp;&nbsp;<span class="fontcolor">选中为开启,若服务器不支持AspJpeg插件,系统将自动关闭该功能。</span></td>
  124.   </tr>
  125.   <tr>
  126.     <td align="right" bgcolor="#FFFFFF">水印文字大小:</td>
  127.     <td bgcolor="#FFFFFF">&nbsp;<select name="S_DrawFontSize">
  128.         <option value="12" <%if DrawFontSize="12" then%>selected="selected"<%end if%>>12px</option>
  129.         <option value="14" <%if DrawFontSize="14" then%>selected="selected"<%end if%>>14px</option>
  130.         <option value="16" <%if DrawFontSize="16" then%>selected="selected"<%end if%>>16px</option>
  131.         <option value="18" <%if DrawFontSize="18" then%>selected="selected"<%end if%>>18px</option>
  132.         <option value="22" <%if DrawFontSize="22" then%>selected="selected"<%end if%>>22px</option>
  133.         <option value="32" <%if DrawFontSize="32" then%>selected="selected"<%end if%>>32px</option>
  134.             </select></td>
  135.   </tr>
  136.   <tr>
  137.     <td align="right" bgcolor="#FFFFFF">水印文字字体:</td>
  138.     <td bgcolor="#FFFFFF">&nbsp;<select name="S_DrawFontFamily">
  139.         <option value="宋体" <%if DrawFontFamily="宋体" then%>selected="selected"<%end if%>>宋体</option>
  140.       <option value="楷体_GB2312"<%if DrawFontFamily="楷体_GB2312" then%>selected="selected"<%end if%>>楷体</option>
  141.       <option value="新宋体"<%if DrawFontFamily="新宋体" then%>selected="selected"<%end if%>>新宋体</option>
  142.       <option value="黑体"<%if DrawFontFamily="黑体" then%>selected="selected"<%end if%>>黑体</option>
  143.       <option value="隶书"<%if DrawFontFamily="隶书" then%>selected="selected"<%end if%>>隶书</option>
  144.       <option value="Arial"<%if DrawFontFamily="Arial" then%>selected="selected"<%end if%>>Arial</option>
  145.       <option value="Arial Black"<%if DrawFontFamily="Arial Black" then%>selected="selected"<%end if%>>Arial Black</option>  
  146.     </select>    </td>
  147.   </tr>
  148.   <tr>
  149.     <td align="right" bgcolor="#FFFFFF">水印文字颜色:</td>
  150.     <td bgcolor="#FFFFFF">&nbsp;<input name="S_DrawFontColor" type="text" size="10" value="<%=DrawFontColor%>" />
  151.       &nbsp;<span class="fontcolor"> 如:FF0000 红色,不用带#</span></td>
  152.   </tr>
  153.   <tr>
  154.     <td align="right" bgcolor="#FFFFFF">文字背景颜色:</td>
  155.     <td bgcolor="#FFFFFF">&nbsp;<input name="S_DrawShadowColor" type="text" size="10" value="<%=DrawShadowColor%>" />
  156.    &nbsp; <span class="fontcolor">如:FFFFFF 白色,不用带#</span></td>
  157.   </tr>
  158.   <tr>
  159.     <td align="right" bgcolor="#FFFFFF">水印文字内容:</td>
  160.     <td bgcolor="#FFFFFF">&nbsp;<input name="S_DrawText" value="<%=DrawText%>" type="text" size="50" />
  161.       &nbsp; </td>
  162.   </tr>
  163.   <tr>
  164.     <td align="right" bgcolor="#FFFFFF">水印文字X坐标:</td>
  165.     <td bgcolor="#FFFFFF">&nbsp;<input name="S_DrawXWidth" value="<%=DrawXWidth%>" type="text" size="10" />
  166.       &nbsp; <span class="fontcolor">默认的“捷扬文章系统”的长度为70,请根据水印文字内容,自行设定</span></td>
  167.   </tr>
  168.   <tr>
  169.     <td colspan="2" align="left" class="td28"><span><a href="#top">Top↑</a></span>联系方式<a name="contact" id="contact"></a></td>
  170.   </tr>
  171.   <tr>
  172.     <td align="right" bgcolor="#FFFFFF">联 系 人:</td>
  173.     <td bgcolor="#FFFFFF">&nbsp;<input name="ContactMan" type="text" id="ContactMan" value="<%=ContactMan%>" size="50" /></td>
  174.   </tr>
  175.   <tr>
  176.     <td align="right" bgcolor="#FFFFFF">地&nbsp;&nbsp;&nbsp; 址:</td>
  177.     <td bgcolor="#FFFFFF">&nbsp;<input name="address" type="text" id="address" value="<%=address%>" size="50" /></td>
  178.   </tr>
  179.   <tr>
  180.     <td width="16%" align="right" bgcolor="#FFFFFF">邮&nbsp;&nbsp;&nbsp; 编:</td>
  181.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="post" type="text" id="post" size="50" value="<%=post%>" />
  182.       <span class="fontcolor">*请填写正确的邮编</span> </td>
  183.   </tr>
  184.   <tr>
  185.     <td align="right" bgcolor="#FFFFFF">联 系 QQ:</td>
  186.     <td bgcolor="#FFFFFF">&nbsp;<input name="qq" type="text" size="50" value="<%=ContactQQ%>" />
  187.       <span class="fontcolor">*常用的qq号</span></td>
  188.   </tr>
  189.   <tr>
  190.     <td align="right" bgcolor="#FFFFFF">电&nbsp;&nbsp;&nbsp; 话:</td>
  191.     <td bgcolor="#FFFFFF">&nbsp;<input name="telephone" type="text" id="telephone" value="<%=telephone%>" size="50" />
  192.       <span class="fontcolor">*可填写多个电话</span> </td>
  193.   </tr>
  194.   <tr>
  195.     <td width="16%" align="right" bgcolor="#FFFFFF">传&nbsp;&nbsp;&nbsp; 真:</td>
  196.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="fax" type="text" id="fax" size="50" value="<%=fax%>" />
  197.       <span class="fontcolor">      *请填写传真号</span> </td>
  198.   </tr>
  199.   <tr>
  200.     <td align="right" bgcolor="#FFFFFF">电&nbsp;&nbsp; &nbsp;邮:</td>
  201.     <td bgcolor="#FFFFFF">&nbsp;<input name="email" type="text" id="email" value="<%=email%>" size="50" />
  202.       <span class="fontcolor">    *请填写正确的email地址</span> </td>
  203.   </tr>
  204. <!--  <tr>
  205.     <td colspan="2" align="left" class="td28"><span><a href="#top">Top↑</a></span>邮件选项<a name="email" id="email"></a></td>
  206.   </tr>
  207.   <tr>
  208.     <td align="right" bgcolor="#FFFFFF">邮件发送组件:</td>
  209.     <td bgcolor="#FFFFFF">&nbsp;<select name="MailObject">
  210.         <option>无</option>
  211.         <option value="1" <%if MailObject=1 then%>selected="selected"<%end if%>>Jmail <%if IsObjInstalled("JMail.SMTPMail") then%><%else%>×<%end if%></option>
  212.         </select></td>
  213.   </tr>
  214.   <tr>
  215.     <td align="right" bgcolor="#FFFFFF">SMTP服务器地址:</td>
  216.     <td bgcolor="#FFFFFF">&nbsp;<input type="text" name="MailServer" value="<%=MailServer%>" /></td>
  217.   </tr>
  218.   <tr>
  219.     <td align="right" bgcolor="#FFFFFF">SMTP登录用户名:</td>
  220.     <td bgcolor="#FFFFFF">&nbsp;<input type="text" name="MailServerName" value="<%=MailServerName%>" /></td>
  221.   </tr>
  222.   <tr>
  223.     <td align="right" bgcolor="#FFFFFF">SMTP登录密码:</td>
  224.     <td bgcolor="#FFFFFF">&nbsp;<input type="password" name="MailServerPwd" value="<%=MailServerPwd%>" /></td>
  225.   </tr>
  226.   <tr>
  227.     <td align="right" bgcolor="#FFFFFF">SMTP域名:</td>
  228.     <td bgcolor="#FFFFFF">&nbsp;<input type="text" name="MailDomain" value="<%=MailDomain%>" /></td>
  229.   </tr>-->
  230.   <tr>
  231.     <td colspan="2" align="left" class="td28"><span><a href="#top">Top↑</a></span>留言选项<a name="chat" id="chat"></a></td>
  232.   </tr>
  233.   <tr>
  234.     <td width="16%" align="right" bgcolor="#FFFFFF">是否需要审核:</td>
  235.     <td width="84%" bgcolor="#FFFFFF">&nbsp;<input name="guestflag" type="checkbox" id="guestflag" value="1" <%if GuestFlag=1 then%>checked="checked"<%end if%> />
  236.       是 (选择时,留言将需要通过审核才能在后台显示) </td>
  237.   </tr>
  238.   <tr>
  239.     <td align="right" bgcolor="#FFFFFF">需要屏蔽的关键词:</td>
  240.     <td bgcolor="#FFFFFF">&nbsp;<input name="guestcontent" type="text" id="guestcontent" value="<%=GuestContent%>" size="50" />
  241.       <span class="fontcolor">*请用“,”分开需要屏蔽的多个关键词</span></td>
  242.   </tr>
  243.   <tr>
  244.     <td colspan="2" align="left" class="td28"><span><a href="#top">Top↑</a></span>评论选项<a name="pl" id="pl"></a></td>
  245.   </tr>
  246.   <tr>
  247.     <td align="right" bgcolor="#FFFFFF">开启评论功能:</td>
  248.     <td bgcolor="#FFFFFF">&nbsp;<input name="Comment" type="checkbox" id="Comment" <%if SiteComment=1 then%>checked="checked"<%end if%> value="1" />
  249.       <span class="fontcolor">选择则系统开启评论功能</span></td>
  250.   </tr>
  251.   <tr>
  252.     <td align="right" bgcolor="#FFFFFF">评论是否需要审核:</td>
  253.     <td bgcolor="#FFFFFF">&nbsp;<input name="CommentFlag" type="checkbox" <%if SiteCommentFlag=1 then%>checked="checked"<%end if%> id="CommentFlag" value="1" />
  254.       <span class="fontcolor">选择用户发表评论需要审核</span></td>
  255.   </tr>
  256.   <tr>
  257.     <td colspan="2" bgcolor="#FFFFFF" class="td30" align="center"><input name="Submit" type="submit" class="submit1" value="保存设置"/>  <input name="Submit2" type="reset" class="submit1"value="取消设置"/></td>
  258.   </tr>
  259. </form>
  260. </table>
  261. <br />
  262. <%
  263. Function syspath(w)
  264. if request.ServerVariables("SCRIPT_NAME")<>"" then
  265.         path=lcase(trim(request.ServerVariables("SCRIPT_NAME")))
  266. end if
  267. dim n
  268. n=0
  269. n=instr(path,lcase(trim(w)))
  270. if n<>0 then
  271.         syspath=left(path,n-1)
  272. else
  273.         syspath="后台管理目录与实际不符合"
  274. end if
  275. End Function
  276. %>
  277. <%
  278. Function getUrl()
  279. Dim protocol , serverName , serverPort , scriptName
  280. If LCase(Request.ServerVariables("Https")) = "on" Then
  281. protocol = "https://"
  282. Else
  283. protocol = "http://"
  284. End If
  285. serverName = Request.ServerVariables("Server_Name")
  286. serverPort = Request.ServerVariables("Server_Port")
  287. If serverPort <> "80" Then
  288. serverPort = ":"&serverPort
  289. else
  290. serverPort = ""
  291. end if
  292. getUrl = protocol & serverName & serverPort
  293. End Function
  294. %>
  295. <%Call CloseConn()%>
  296. </body>
  297. </html>
downloadadmin_siteconfig.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top