开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
admin_set.asp
资源名称：txl.zip　[点击查看]
上传用户：comthink
上传日期：2021-05-06
资源大小：1280k
文件大小：14k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

admin_set.asp：源码内容
  1. <!--#include file =conn.asp-->
  2. <!-- #include file="inc/const.asp" -->
  3. <title><%=txl_info(0)%>--管理页面</title>
  4. <!--#include file="inc/admin_css.asp"-->
  5. <meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
  6. <BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
  7. <%
  8. if not supermaster or session("flag")="" then
  9. Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
  10. call txl_error()
  11. else
  12. if request("action")="save" then
  13. call saveconst()
  14. elseif request("action")="restore" then
  15. call restore()
  16. else
  17. call consted()
  18. end if
  19. conn.close
  20. set conn=nothing
  21. end if
  24. sub consted()
  25. dim sel
  26. %>
  27. <form method="POST" action="admin_set.asp?action=save">
  28. <table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
  29. <tr> 
  30. <th height="25" colspan="2" id=TableTitleLink>常规信息设置</th>
  31. </tr>
  32. <tr>
  33. <td height="25" colspan="2" class=txlrow><b>说明：</b>这里可以对同学录进行全部信息的设置；点击恢复默认设置可以恢复到同学录的初始设置。</td>
  34. </tr>
  35. <tr>
  36. <td height="25" colspan="2" class=txlrow align=center><a href="?action=restore"><b>恢复同学录默认设置<b></a></td>
  37. </tr>
  38. <tr> 
  39. <th height="25" colspan="2" align=left id=TableTitleLink>状态设置[<a href="#top">顶部</a>]</th>
  40. </tr>
  41. <tr> 
  42. <td width="50%" class=txlrow> <U>是否允许新用户注册</U><BR>关闭后同学将不能注册</td>
  43. <td width="50%" class=txlrow>  
  44. <input type=radio name="txl_Set(0)" value=0 <%if cint(txl_Set(0))=0 then%>checked<%end if%>>是&nbsp;
  45. <input type=radio name="txl_Set(0)" value=1 <%if cint(txl_Set(0))=1 then%>checked<%end if%>>否&nbsp;</td>
  46. <tr> 
  47. <td width="50%" class=txlrow><U>同学录当前状态</U><BR>维护期间可设置关闭同学录</td>
  48. <td width="50%" class=txlrow> 
  49. <input type=radio name="txl_Set(1)" value=0 <%if cint(txl_Set(1))=0 then%>checked<%end if%>>打开&nbsp;
  50. <input type=radio name="txl_Set(1)" value=1 <%if cint(txl_Set(1))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  51. </tr>
  52. <tr> 
  53. <td width="50%" class=txlrow><U>维护说明</U><BR>在同学录关闭情况下显示，支持html语法</td>
  54. <td width="50%" class=txlrow> <textarea name="Stopwhy" cols="40" rows="3"><%=Stopwhy%></textarea></td>
  55. </tr>
  56. <tr> 
  57. <th height=25 colspan=2 align=left id=tabletitlelink>班级信息[<a href="#top">顶部</a>]</th>
  58. </tr>
  59. <tr> 
  60. <td width="50%" class=txlrow> <U>同学录名称</U></td>
  61. <td width="50%" class=txlrow>  <input type="text" name="txlName" size="35" value="<%=txl_info(0)%>"></td>
  62. </tr>
  63. <tr> 
  64. <td width="50%" class=txlrow> <U>同学录的url</U></td>
  65. <td width="50%" class=txlrow>  <input type="text" name="txlURL" size="35" value="<%=txl_info(1)%>"></td>
  66. </tr>
  67. <tr> 
  68. <td width="50%" class=txlrow> <U>主页名称</U></td>
  69. <td width="50%" class=txlrow>  <input type="text" name="CompanyName" size="35" value="<%=txl_info(2)%>"></td>
  70. </tr>
  71. <tr> 
  72. <td width="50%" class=txlrow> <U>主页URL</U></td>
  73. <td width="50%" class=txlrow>  <input type="text" name="HostUrl" size="35" value="<%=txl_info(3)%>"></td>
  74. </tr>
  75. <tr> 
  76. <td width="50%" class=txlrow> <U>皮肤目录</U></td>
  77. <td width="50%" class=txlrow>  <input type="text" name="skinurl" size="35" value="<%=txl_info(6)%>"></td>
  78. </tr>
  79. <tr> 
  80. <td width="50%" class=txlrow> <U>图片目录</U></td>
  81. <td width="50%" class=txlrow>  <input type="text" name="Picurl" size="35" value="<%=txl_info(7)%>"></td>
  82. </tr>
  83. <tr> 
  84. <td width="50%" class=txlrow> <U>发贴表情目录</U></td>
  85. <td width="50%" class=txlrow>  <input type="text" name="faceurl" size="35" value="<%=txl_info(8)%>"></td>
  86. </tr>
  87. <tr> 
  88. <td width="50%" class=txlrow> <U>发贴心情目录</U></td>
  89. <td width="50%" class=txlrow>  <input type="text" name="emoturl" size="35" value="<%=txl_info(9)%>"></td>
  90. </tr>
  91. <tr> 
  92. <td width="50%" class=txlrow> <U>头像目录</U></td>
  93. <td width="50%" class=txlrow>  <input type="text" name="UserFaceurl" size="35" value="<%=txl_info(10)%>"></td>
  94. </tr>
  95. <tr> 
  96. <td width="50%" class=txlrow> <U>UBB图片目录</U></td>
  97. <td width="50%" class=txlrow>  <input type="text" name="Ubburl" size="35" value="<%=txl_info(11)%>"></td>
  98. </tr>
  99. <tr> 
  100. <td width="50%" class=txlrow> <U>班级照片存放目录</U></td>
  101. <td width="50%" class=txlrow>  <input type="text" name="photourl" size="35" value="<%=txl_info(12)%>"></td>
  102. </tr>
  103. <tr> 
  104. <td width="50%" class=txlrow> <U>版权信息</U></td>
  105. <td width="50%" class=txlrow>  <input type="text" name="Copyright" size="35" value="<%=Copyright%>"></td>
  106. </tr>
  107. <tr> 
  108. <th height=25 colspan=2 align=left id=tabletitlelink>悄悄话选项[<a href="#top">顶部</a>]</td>
  109. </tr>
  110. <tr> 
  111. <td width="50%" class=txlrow> <U>开启短信欢迎新注册用户</U></td>
  112. <td width="50%" class=txlrow>  
  113. <input type=radio name="txl_Set(2)" value=0 <%if cint(txl_Set(2))=0 then%>checked<%end if%>>打开&nbsp;
  114. <input type=radio name="txl_Set(2)" value=1 <%if cint(txl_Set(2))=1 then%>checked<%end if%>>关闭&nbsp;
  115. </td>
  116. </tr>
  117. <tr> 
  118. <td width="50%" class=txlrow> <U>新短消息弹出窗口</U></td>
  119. <td width="50%" class=txlrow>  
  120. <input type=radio name="txl_set(3)" value=0 <%if cint(txl_set(3))=0 then%>checked<%end if%>>是&nbsp;
  121. <input type=radio name="txl_set(3)" value=1 <%if cint(txl_set(3))=1 then%>checked<%end if%>>否&nbsp;</td>
  122. </tr>
  123. <tr> 
  124. <th height=25 colspan=2 align=left id=tabletitlelink>邮件选项[<a href="#top">顶部</a>]</td>
  125. </tr>
  126. <tr> 
  127. <td width="50%" class=txlrow> <U>管理员Email</U><BR>给用户发送邮件时，显示的来源Email信息</td>
  128. <td width="50%" class=txlrow>  <input type="text" name="SystemEmail" size="35" value="<%=txl_info(5)%>"></td>
  129. </tr>
  130. <tr> 
  131. <td width="50%" class=txlrow> <U>发送邮件组件</U><BR>如果您的服务器不支持下列组件，请选择不支持</td>
  132. <td width="50%" class=txlrow>  
  133. <select name="txl_set(4)">
  134. <option value="0" <%if txl_set(4)=0 then%>selected<%end if%>>不支持 
  135. <option value="1" <%if txl_set(4)=1 then%>selected<%end if%>>JMAIL 
  136. <option value="2" <%if txl_set(4)=2 then%>selected<%end if%>>CDONTS 
  137. <option value="3" <%if txl_set(4)=3 then%>selected<%end if%>>ASPEMAIL 
  138. </select>
  139. </td>
  140. </tr>
  141. <tr> 
  142. <td width="50%" class=txlrow> <U>SMTP Server地址</U><BR>只有在论坛使用设置中打开了发送邮件功能，该填写内容方有效</td>
  143. <td width="50%" class=txlrow>  <input type="text" name="SMTPServer" size="35" value="<%=txl_info(4)%>"></td>
  144. </tr>
  145. <tr> 
  146. <td width="50%" class=txlrow> <U>发送注册信息邮件</U><BR>请确认您打开了邮件功能</td>
  147. <td width="50%" class=txlrow>  
  148. <input type=radio name="txl_set(5)" value=0 <%if cint(txl_set(5))=0 then%>checked<%end if%>>打开&nbsp;
  149. <input type=radio name="txl_set(5)" value=1 <%if cint(txl_set(5))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  150. </tr>
  151. <tr> 
  152. <th height=25 colspan=2 align=left id=tabletitlelink>系统设置[<a href="#top">顶部</a>]</td>
  153. </tr>
  154. <tr> 
  155. <td width="50%" class=txlrow> <U>脚本超时时间</U><BR>默认为300，一般不做更改</td>
  156. <td width="50%" class=txlrow>  <input type="text" name="txl_set(6)" size="3" value="<%=txl_set(6)%>">&nbsp;秒</td>
  157. </tr>
  158. <tr> 
  159. <td width="50%" class=txlrow> <U>删除不活动用户时间</U><BR>可设置删除多少分钟内不活动用户<BR>单位：分钟，请输入数字</td>
  160. <td width="50%" class=txlrow>  <input type="text" name="txl_set(7)" size="3" value="<%=txl_set(7)%>">&nbsp;分钟</td>
  161. </tr>
  162. <tr> 
  163. <td width="50%" class=txlrow> <U>是否显示页面执行时间</U></td>
  164. <td width="50%" class=txlrow>  
  165. <input type=radio name="txl_set(8)" value=0 <%if cint(txl_set(8))=0 then%>checked<%end if%>>是&nbsp;
  166. <input type=radio name="txl_set(8)" value=1 <%if cint(txl_set(8))=1 then%>checked<%end if%>>否&nbsp;</td>
  167. </tr>
  168. <tr> 
  169. <td width="50%" class=txlrow> <U>是否显示过生日会员</U></td>
  170. <td width="50%" class=txlrow>  
  171. <input type=radio name="txl_set(9)" value=0 <%if cint(txl_set(9))=0 then%>checked<%end if%>>是&nbsp;
  172. <input type=radio name="txl_set(9)" value=1 <%if cint(txl_set(9))=1 then%>checked<%end if%>>否&nbsp;</td>
  173. </tr>
  174. <tr> 
  175. <td width="50%" class=txlrow> <U>是否显示在线列表</U></td>
  176. <td width="50%" class=txlrow>  
  177. <input type=radio name="txl_set(10)" value=0 <%if cint(txl_set(10))=0 then%>checked<%end if%>>是&nbsp;
  178. <input type=radio name="txl_set(10)" value=1 <%if cint(txl_set(10))=1 then%>checked<%end if%>>否&nbsp;</td>
  179. </tr>
  180. <tr> 
  181. <th height=25 colspan=2 align=left id=tabletitlelink>基本设置[<a href="#top">顶部</a>]</td>
  182. </tr>
  183. <tr> 
  184. <td width="50%" class=txlrow> <U>班级留言每页显示纪录</U><BR>班级留言列表、帖子回复列表等</td>
  185. <td width="50%" class=txlrow>  <input type="text" name="txl_set(11)" size="3" value="<%=txl_set(11)%>">&nbsp;条</td>
  186. </tr>
  187. <tr> 
  188. <td width="50%" class=txlrow> <U>班级论坛列表显示纪录</U><BR>班级名片列表、帖子主题列表等</td>
  189. <td width="50%" class=txlrow>  <input type="text" name="txl_set(12)" size="3" value="<%=txl_set(12)%>">&nbsp;条</td>
  190. </tr>
  191. <tr> 
  192. <td width="50%" class=txlrow> <U>是否允许发表留言</U></td>
  193. <td width="50%" class=txlrow>  
  194. <input type=radio name="txl_set(13)" value=0 <%if cint(txl_set(13))=0 then%>checked<%end if%>>是&nbsp;
  195. <input type=radio name="txl_set(13)" value=1 <%if cint(txl_set(13))=1 then%>checked<%end if%>>否&nbsp;</td>
  196. </tr>
  197. <tr> 
  198. <td width="50%" class=txlrow> <U>是否允许论坛发贴</U></td>
  199. <td width="50%" class=txlrow>  
  200. <input type=radio name="txl_set(14)" value=0 <%if cint(txl_set(14))=0 then%>checked<%end if%>>是&nbsp;
  201. <input type=radio name="txl_set(14)" value=1 <%if cint(txl_set(14))=1 then%>checked<%end if%>>否&nbsp;</td>
  202. </tr>
  203. <tr> 
  204. <td width="50%" class=txlrow> <U>是否允许上传照片</U></td>
  205. <td width="50%" class=txlrow>  
  206. <input type=radio name="txl_set(15)" value=0 <%if cint(txl_set(15))=0 then%>checked<%end if%>>是&nbsp;
  207. <input type=radio name="txl_set(15)" value=1 <%if cint(txl_set(15))=1 then%>checked<%end if%>>否&nbsp;</td>
  208. </tr>
  209. <tr> 
  210. <td width="50%" class=txlrow> <U>是否开启UBB代码</U></td>
  211. <td width="50%" class=txlrow>  
  212. <input type=radio name="txl_set(16)" value=0 <%if cint(txl_set(16))=0 then%>checked<%end if%>>打开&nbsp;
  213. <input type=radio name="txl_set(16)" value=1 <%if cint(txl_set(16))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  214. </tr>
  215. <tr> 
  216. <td width="50%" class=txlrow> <U>是否开启HTML代码</U></td>
  217. <td width="50%" class=txlrow>  
  218. <input type=radio name="txl_set(17)" value=0 <%if cint(txl_set(17))=0 then%>checked<%end if%>>打开&nbsp;
  219. <input type=radio name="txl_set(17)" value=1 <%if cint(txl_set(17))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  220. </tr>
  221. <tr> 
  222. <td width="50%" class=txlrow> <U>班级留言是否开启贴图标签</U><br>包括图片、flash、多媒体等</td>
  223. <td width="50%" class=txlrow>  
  224. <input type=radio name="txl_set(18)" value=0 <%if cint(txl_set(18))=0 then%>checked<%end if%>>打开&nbsp;
  225. <input type=radio name="txl_set(18)" value=1 <%if cint(txl_set(18))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  226. </tr>
  227. <tr> 
  228. <td width="50%" class=txlrow> <U>班级论坛是否开启贴图标签</U><br>包括图片、flash、多媒体等</td>
  229. <td width="50%" class=txlrow>  
  230. <input type=radio name="txl_set(19)" value=0 <%if cint(txl_set(19))=0 then%>checked<%end if%>>打开&nbsp;
  231. <input type=radio name="txl_set(19)" value=1 <%if cint(txl_set(19))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  232. </tr>
  233. <tr> 
  234. <td width="50%" class=txlrow> <U>是否开启班级照片评论功能</U><br>开启后可以对照片进行评论</td>
  235. <td width="50%" class=txlrow>  
  236. <input type=radio name="txl_set(20)" value=0 <%if cint(txl_set(20))=0 then%>checked<%end if%>>打开 &nbsp;
  237. <input type=radio name="txl_set(20)" value=1 <%if cint(txl_set(20))=1 then%>checked<%end if%>>关闭&nbsp;</td>
  238. </tr>
  239. <tr> 
  240. <td width="50%" class=txlrow> <U>留言内容最大字节数</U><BR>1024字节等于1K</td>
  241. <td width="50%" class=txlrow>  <input type="text" name="txl_set(21)" size="8" value="<%=txl_set(21)%>">&nbsp;字节</td>
  242. </tr>
  243. <tr> 
  244. <td width="50%" class=txlrow> <U>论坛内容最大字节数</U></td>
  245. <td width="50%" class=txlrow>  <input type="text" name="txl_set(22)" size="8" value="<%=txl_set(22)%>">&nbsp;字节</td>
  246. </tr>
  247. <tr> 
  248. <td width="50%" class=txlrow> <U>上传照片最大字节数</U></td>
  249. <td width="50%" class=txlrow>  <input type="text" name="txl_set(23)" size="8" value="<%=txl_set(23)%>">&nbsp;字节</td>
  250. </tr>
  251. <tr> 
  252. <td colspan=2 class=txlrow align="center"><input type="submit" name="Submit" value="提 交"></td>
  253. </tr>
  254. </table>
  255. </form>
  256. <%
  257. end sub
  259. sub saveconst()
  260. txl_Set=request.Form("txl_set(0)") & "," & request.Form("txl_set(1)") & "," & request.Form("txl_set(2)") & "," & request.Form("txl_set(3)") & "," & request.Form("txl_set(4)") & "," & request.Form("txl_set(5)") & "," & request.Form("txl_set(6)") & "," & request.Form("txl_set(7)") & "," & request.Form("txl_set(8)") & "," & request.Form("txl_set(9)") & "," & request.Form("txl_set(10)") & "," & request.Form("txl_set(11)") & "," & request.Form("txl_set(12)") & "," & request.Form("txl_set(13)") & "," & request.Form("txl_set(14)") & "," & request.Form("txl_set(15)") & "," & request.Form("txl_set(16)") & "," & request.Form("txl_set(17)") & "," & request.Form("txl_set(18)") & "," & request.Form("txl_set(19)") & "," & request.Form("txl_set(20)") & "," & request.Form("txl_set(21)") & "," & request.Form("txl_set(22)") & "," & request.Form("txl_set(23)")
  262. txl_info=Request("txlName") & "," & Request("txlurl") & "," & Request("CompanyName") & "," & Request("HostUrl") & "," & Request("SMTPServer") & "," & Request("SystemEmail") & "," & Request("skinurl") & "," & Request("Picurl") & "," & Request("Faceurl") & "," & Request("emoturl") & "," & Request("userfaceurl") & "," & Request("Ubburl") & "," & Request("photourl")
  264. txl_copyright=request("copyright")
  265. sql="update config set txl_set='"&txl_set&"',Stopwhy='"&request.Form("Stopwhy")&"',txl_info='"&txl_info&"',txl_copyright='"&txl_copyright&"'"
  266. conn.execute(sql)
  267. response.write "设置成功。"
  268. end sub
  270. '恢复默认设置
  271. sub restore()
  272. txl_info="红雨同学录,http://www.mathren.com/txl,数学人,http://www.mathren.com,mail.enkj.com,webmaster@mathren.com,skin/,images/,face/,emot/,userface/,ubbpic/,photo/"
  273. txl_set="0,0,0,0,0,0,300,40,0,0,0,10,20,0,0,0,0,1,0,0,0,10240,16240,204800"
  274. conn.execute("update config set txl_set='"&txl_set&"',txl_info='"&txl_info&"'")
  275. response.write "还原设置成功。"
  276. end sub
  277. %>