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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Config.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：39k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Config.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <%
  4. If Not CheckAdmin("SiteConfig") Then
  5.     Server.Transfer("showerr.asp")
  6.     Response.End
  7. End If
  8. '=====================================================================
  9. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  10. '=====================================================================
  11. ' 程序名称：蓝宇网络发布系统
  12. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  13. ' 文件名称：Admin_Config.asp
  14. ' 更新日期：2007-6-5
  15. '=====================================================================
  16. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  17. ' 程序开发：蓝宇,╲、随心゛
  18. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  19. '=====================================================================
  20. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  21. '=====================================================================
  22. Action = LCase(Request("action"))
  23. titlename="系统基本设置"
  24. Admin_header
  25. Select Case action
  26.   Case "reload"
  27.     Call ReloadCache
  28.   Case "save"
  29.     Call SaveConfig
  30.   Case "restore"
  31.     Call RestoreConfig
  32.   Case Else
  33.     Call MainConfig
  34. End Select
  35. If FoundErr = True Then
  36. ReturnError(ErrMsg)
  37. End If
  38. Admin_footer
  39. CloseConn
  40. Sub MainConfig()
  41. Response.Write "<table align=""center"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"">" & vbCrLf
  42. Response.Write "<form name=""myform"" method=""POST"" action=""?action=save"">" & vbCrLf
  43. Response.Write "<tr>" & vbCrLf
  44. Response.Write "<th colspan=2>系统设置</th>" & vbCrLf
  45. Response.Write "</tr>" & vbCrLf
  46. Response.Write "<tr>" & vbCrLf
  47. Response.Write "<td " & LeftClass & "><b>管理选项：</b> "
  48. Response.Write "<a href='admin_config.asp#setting1'>基本设置</a> | "
  49. Response.Write "<a href='admin_config.asp#setting2'>开关设置</a> | "
  50. Response.Write "<a href='admin_config.asp#setting3'>采集设置</a> | "
  51. Response.Write "<a href='admin_config.asp#setting4'>背景颜色</a> | "
  52. Response.Write "<a href='admin_config.asp#setting5'>其他设置</a></td>" & vbCrLf
  53. Response.Write "</tr>" & vbCrLf
  54. Response.Write "<tr>" & vbCrLf
  55. Response.Write "<td bgcolor=""#EEEfff"">" & vbCrLf
  56. Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;系统基本设置 <a name=""setting1""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
  57. Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
  58. Response.Write "<tr>" & vbCrLf
  59. Response.Write "<td width=""25%"" " & RightClass & ">网站名称：</td>" & vbCrLf
  60. Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""SiteName"" value=""" & tee5.WebName & """ size=""25""></td>" & vbCrLf
  61. Response.Write "</tr>" & vbCrLf
  62. Response.Write "<tr>" & vbCrLf
  63. Response.Write "<td " & RightClass & ">网站地址：</td>" & vbCrLf
  64. Response.Write "<td " & LeftClass & "><input type=""text"" name=""WebUrl"" value=""" & tee5.WebUrl & """ size=""25""> <span class=style1>*</span></td>" & vbCrLf
  65. Response.Write "</tr>" & vbCrLf
  66. Response.Write "<tr>" & vbCrLf
  67. Response.Write "<td " & RightClass & ">网站标题：</td>" & vbCrLf
  68. Response.Write "<td " & LeftClass & "><input type=""text"" name=""Renovates"" value=""" & tee5.Renovates & """ size=""50""></td>" & vbCrLf
  69. Response.Write "</tr>" & vbCrLf
  70. Response.Write "<tr>" & vbCrLf
  71. Response.Write "<td " & RightClass & ">版权信息：</td>" & vbCrLf
  72. Response.Write "<td " & LeftClass & "><textarea name=""Copyright"" cols=""50"" rows=""5"">" & tee5.Copyright & "</textarea></td>" & vbCrLf
  73. Response.Write "</tr>" & vbCrLf
  74. Response.Write "<tr>" & vbCrLf
  75. Response.Write "<td " & RightClass & ">首页显示游戏类型ID：</td>" & vbCrLf
  76. Response.Write "<td " & LeftClass & "><input type=""text"" name=""IndexGame"" value=""" & tee5.IndexGame & """ size=""25""></td>" & vbCrLf
  77. Response.Write "</tr>" & vbCrLf
  78. Response.Write "<tr>" & vbCrLf
  79. Response.Write "<td " & RightClass & ">网站表格宽度：</td>" & vbCrLf
  80. Response.Write "<td " & LeftClass & "><input type=""text"" name=""TabWidth"" value=""" & tee5.TabWidth & """ size=""25""> <span class=style1>可用百分比或绝对值</span></td>" & vbCrLf
  81. Response.Write "</tr>" & vbCrLf
  82. Response.Write "<tr>" & vbCrLf
  83. Response.Write "<td " & RightClass & ">管理员QQ：</td>" & vbCrLf
  84. Response.Write "<td " & LeftClass & "><input type=""text"" name=""Webmaster"" value=""" & tee5.Webmaster & """ size=""25""></td>" & vbCrLf
  85. Response.Write "</tr>" & vbCrLf
  86. Response.Write "</table>" & vbCrLf
  87. Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
  88. Response.Write "</fieldset>" & vbCrLf
  89. Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;系统开关设置 <a name=""setting2""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
  90. Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
  91. Response.Write "<tr>" & vbCrLf
  92. Response.Write "<td width=""25%"" " & RightClass & ">私服审核：</td>" & vbCrLf
  93. Response.Write "<td width=""*"" " & LeftClass & ">" & vbCrLf
  94. Response.Write "<input type=""radio"" name=""sfUlock"" value=""0"" "
  95. If Clng(tee5.sfUlock)=0 then
  96. Response.Write "checked"
  97. End If
  98. Response.Write ">审核显示 " & vbCrLf
  99. Response.Write "<input type=""radio"" name=""sfUlock"" value=""1"" "
  100. If Clng(tee5.sfUlock)=1 then
  101. Response.Write "checked"
  102. End If
  103. Response.Write ">暂不审核" & vbCrLf
  104. Response.Write "</td>" & vbCrLf
  105. Response.Write "</tr>" & vbCrLf
  106. Response.Write "<tr>" & vbCrLf
  107. Response.Write "<td " & RightClass & ">家族审核：</td>" & vbCrLf
  108. Response.Write "<td " & LeftClass & ">" & vbCrLf
  109. Response.Write "<input type=""radio"" name=""jzUlock"" value=""0"" "
  110. If Clng(tee5.jzUlock)=0 then
  111. Response.Write "checked"
  112. End If
  113. Response.Write ">审核显示 " & vbCrLf
  114. Response.Write "<input type=""radio"" name=""jzUlock"" value=""1"" "
  115. If Clng(tee5.jzUlock)=1 then
  116. Response.Write "checked"
  117. End If
  118. Response.Write ">暂不审核" & vbCrLf
  119. Response.Write "</td>" & vbCrLf
  120. Response.Write "</tr>" & vbCrLf
  121. Response.Write "<tr>" & vbCrLf
  122. Response.Write "<td " & RightClass & ">点击查看：</td>" & vbCrLf
  123. Response.Write "<td " & LeftClass & ">" & vbCrLf
  124. Response.Write "<input type=""radio"" name=""sfLook"" value=""0"" "
  125. If Clng(tee5.sfLook) = 0 then
  126. Response.Write "checked"
  127. End If
  128. Response.Write ">查看主页 " & vbCrLf
  129. Response.Write "<input type=""radio"" name=""sfLook"" value=""1"" "
  130. If Clng(tee5.sfLook)=1 then
  131. Response.Write "checked"
  132. End If
  133. Response.Write ">查看介绍" & vbCrLf
  134. Response.Write "</td>" & vbCrLf
  135. Response.Write "</tr>" & vbCrLf
  136. Response.Write "<tr>" & vbCrLf
  137. Response.Write "<td " & RightClass & ">运行方式：</td>" & vbCrLf
  138. Response.Write "<td " & LeftClass & ">" & vbCrLf
  139. Response.Write "<input type=""radio"" name=""ShowHtml"" value=""0"" "
  140. If Clng(tee5.ShowHtml) = 0 then
  141. Response.Write "checked"
  142. End If
  143. Response.Write ">全静态页 " & vbCrLf
  144. Response.Write "<input type=""radio"" name=""ShowHtml"" value=""1"" "
  145. If Clng(tee5.ShowHtml)=1 then
  146. Response.Write "checked"
  147. End If
  148. Response.Write ">全动态页" & vbCrLf
  149. Response.Write "</td>" & vbCrLf
  150. Response.Write "</tr>" & vbCrLf
  151. Response.Write "<tr>" & vbCrLf
  152. Response.Write "<td " & RightClass & ">首页显示：</td>" & vbCrLf
  153. Response.Write "<td " & LeftClass & ">" & vbCrLf
  154. Response.Write "<input name=""Indexsf1"" type=""checkbox"" value=""yes"" "
  155. If Clng(tee5.Indexsf1) = 1 then response.write "checked"
  156. Response.Write "> 今天私服 "
  157. Response.Write "<input name=""Indexsf2"" type=""checkbox"" value=""yes"" "
  158. If Clng(tee5.Indexsf2) = 1 then response.write "checked"
  159. Response.Write "> 明天私服 "
  160. Response.Write "<input name=""Indexsf3"" type=""checkbox"" value=""yes"" "
  161. If Clng(tee5.Indexsf3) = 1 then response.write "checked"
  162. Response.Write "> 后天私服 "
  163. Response.Write "<input name=""Indexsf4"" type=""checkbox"" value=""yes"" "
  164. If Clng(tee5.Indexsf4) = 1 then response.write "checked"
  165. Response.Write "> 昨天私服 "
  166. Response.Write "<input name=""Indexsf5"" type=""checkbox"" value=""yes"" "
  167. If Clng(tee5.Indexsf5) = 1 then response.write "checked"
  168. Response.Write "> 前天私服 "
  169. Response.Write "</td>" & vbCrLf
  170. Response.Write "</tr>" & vbCrLf
  171. Response.Write "</table>" & vbCrLf
  172. Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
  173. Response.Write "</fieldset>" & vbCrLf
  174. Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;系统采集设置 <a name=""setting3""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
  175. Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
  176. Response.Write "<tr>" & vbCrLf
  177. Response.Write "<td width=""25%"" " & RightClass & ">游戏类型ID：</td>" & vbCrLf
  178. Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""mirsfID"" value=""" & tee5.mirsfID & """ size=""25""> "
  179. Response.Write "每次采集不同类别游戏要设置，一定注意，不知道请<a href=admin_type.asp><font color=""#FF0000"">查看类型ID</font></a></td>" & vbCrLf
  180. Response.Write "</tr>" & vbCrLf
  181. Response.Write "<tr>" & vbCrLf
  182. Response.Write "<td " & RightClass & ">私服天数：</td>" & vbCrLf
  183. Response.Write "<td " & LeftClass & "><input type=""text"" name=""mirsfday"" value=""" & tee5.mirsfday & """ size=""25""> 本系统支持1-7天广告</td>" & vbCrLf
  184. Response.Write "</tr>" & vbCrLf
  185. Response.Write "<tr>" & vbCrLf
  186. Response.Write "<td " & RightClass & ">是否通宵：</td>" & vbCrLf
  187. Response.Write "<td " & LeftClass & ">" & vbCrLf
  188. Response.Write "<input type=""radio"" name=""sf_hot"" value=""0"" "
  189. If Clng(tee5.sf_hot) = 0 then
  190. Response.Write "checked"
  191. End If
  192. Response.Write ">手工通宵 " & vbCrLf
  193. Response.Write "<input type=""radio"" name=""sf_hot"" value=""1"" "
  194. If Clng(tee5.sf_hot)=1 then
  195. Response.Write "checked"
  196. End If
  197. Response.Write ">全部通宵" & vbCrLf
  198. Response.Write "</td>" & vbCrLf
  199. Response.Write "</tr>" & vbCrLf
  200. Response.Write "<tr>" & vbCrLf
  201. Response.Write "<td " & RightClass & ">是否固顶：</td>" & vbCrLf
  202. Response.Write "<td " & LeftClass & ">" & vbCrLf
  203. Response.Write "<input type=""radio"" name=""sf_top"" value=""0"" "
  204. If Clng(tee5.sf_top) = 0 then
  205. Response.Write "checked"
  206. End If
  207. Response.Write ">手工固顶 " & vbCrLf
  208. Response.Write "<input type=""radio"" name=""sf_top"" value=""1"" "
  209. If Clng(tee5.sf_top)=1 then
  210. Response.Write "checked"
  211. End If
  212. Response.Write ">全部固顶" & vbCrLf
  213. Response.Write "</td>" & vbCrLf
  214. Response.Write "</tr>" & vbCrLf
  215. Response.Write "</table>" & vbCrLf
  216. Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
  217. Response.Write "</fieldset>" & vbCrLf
  218. Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;私服背景设置 <a name=""setting4""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
  219. Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
  220. Response.Write "<tr>" & vbCrLf
  221. Response.Write "<td width=""25%"" " & RightClass & ">精品私服：</td>" & vbCrLf
  222. Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""bg_1"" value=""" & tee5.bg_1 & """ size=""25""> "
  223. Response.Write "<SELECT id=bg_11 size=1 name=bg_11  onchange=""(document.myform.bg_1.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  224. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  225. SF_Bg
  226. Response.Write "</SELECT> 精品私服背景颜色！</td>" & vbCrLf
  227. Response.Write "</tr>" & vbCrLf
  228. Response.Write "<tr>" & vbCrLf
  229. Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
  230. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_1_1"" value=""" & tee5.bg_1_1 & """ size=""25""> "
  231. Response.Write "<SELECT id=bg_1_11 size=1 name=bg_1_11  onchange=""(document.myform.bg_1_1.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  232. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  233. SF_Bg
  234. Response.Write "</SELECT> 精品私服鼠标经过颜色！</td>" & vbCrLf
  235. Response.Write "</tr>" & vbCrLf
  236. Response.Write "<tr>" & vbCrLf
  237. Response.Write "<td " & RightClass & ">今日新开：</td>" & vbCrLf
  238. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_2"" value=""" & tee5.bg_2 & """ size=""25""> "
  239. Response.Write "<SELECT id=bg_21 size=1 name=bg_21  onchange=""(document.myform.bg_2.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  240. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  241. SF_Bg
  242. Response.Write "</SELECT> 今日私服非套黄背景颜色！</td>" & vbCrLf
  243. Response.Write "</tr>" & vbCrLf
  244. Response.Write "<tr>" & vbCrLf
  245. Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
  246. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_2_2"" value=""" & tee5.bg_2_2 & """ size=""25""> "
  247. Response.Write "<SELECT id=bg_2_21 size=1 name=bg_2_21  onchange=""(document.myform.bg_2_2.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  248. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  249. SF_Bg
  250. Response.Write "</SELECT> 今日私服非套黄鼠标经过颜色！</td>" & vbCrLf
  251. Response.Write "</tr>" & vbCrLf
  252. Response.Write "<tr>" & vbCrLf
  253. Response.Write "<td " & RightClass & ">明日私服：</td>" & vbCrLf
  254. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_3"" value=""" & tee5.bg_3 & """ size=""25""> "
  255. Response.Write "<SELECT id=bg_31 size=1 name=bg_31  onchange=""(document.myform.bg_3.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  256. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  257. SF_Bg
  258. Response.Write "</SELECT> 明天，后天，大后天私服背景颜色！</td>" & vbCrLf
  259. Response.Write "</tr>" & vbCrLf
  260. Response.Write "<tr>" & vbCrLf
  261. Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
  262. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_3_3"" value=""" & tee5.bg_3_3 & """ size=""25""> "
  263. Response.Write "<SELECT id=bg_3_31 size=1 name=bg_3_31  onchange=""(document.myform.bg_3_3.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  264. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  265. SF_Bg
  266. Response.Write "</SELECT> 明天，后天，大后天私服鼠标经过颜色！</td>" & vbCrLf
  267. Response.Write "</tr>" & vbCrLf
  268. Response.Write "<tr>" & vbCrLf
  269. Response.Write "<td " & RightClass & ">昨日私服：</td>" & vbCrLf
  270. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_4"" value=""" & tee5.bg_4 & """ size=""25""> "
  271. Response.Write "<SELECT id=bg_41 size=1 name=bg_41  onchange=""(document.myform.bg_4.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  272. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  273. SF_Bg
  274. Response.Write "</SELECT> 今日私服非套黄背景颜色！</td>" & vbCrLf
  275. Response.Write "</tr>" & vbCrLf
  277. Response.Write "<tr>" & vbCrLf
  278. Response.Write "<td " & RightClass & ">鼠标经过：</td>" & vbCrLf
  279. Response.Write "<td " & LeftClass & "><input type=""text"" name=""bg_4_4"" value=""" & tee5.bg_4_4 & """ size=""25""> "
  280. Response.Write "<SELECT id=bg_4_41 size=1 name=bg_4_41  onchange=""(document.myform.bg_4_4.value=this.options[this.selectedIndex].value)"">" & vbCrLf
  281. Response.Write "<option selected>颜色选择</option>" & vbCrLf
  282. SF_Bg
  283. Response.Write "</SELECT> 今日私服非套黄鼠标经过颜色！</td>" & vbCrLf
  284. Response.Write "</tr>" & vbCrLf
  285. Response.Write "</table>" & vbCrLf
  286. Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
  287. Response.Write "</fieldset>" & vbCrLf
  288. Response.Write "<fieldset style=""cursor: default""><legend>&nbsp;系统其他设置 <a name=""setting5""></a> [<a href=""#top"">顶部</a>]</legend>" & vbCrLf
  289. Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder2"">" & vbCrLf
  290. Response.Write "<tr>" & vbCrLf
  291. Response.Write "<td width=""25%"" " & RightClass & ">人气递增：</td>" & vbCrLf
  292. Response.Write "<td width=""*"" " & LeftClass & "><input type=""text"" name=""sfhits"" value=""" & tee5.sfhits & """ size=""10""> 私服浏览一次增加人气值</td>" & vbCrLf
  293. Response.Write "</tr>" & vbCrLf
  294. Response.Write "<tr>" & vbCrLf
  295. Response.Write "<td " & RightClass & ">通宵时间：</td>" & vbCrLf
  296. Response.Write "<td " & LeftClass & "><input type=""text"" name=""hottime_1"" value=""" & tee5.hottime_1 & """ size=""5""> "
  297. Response.Write "→ <input type=""text"" name=""hottime_2"" value=""" & tee5.hottime_2 & """ size=""5""></td>" & vbCrLf
  298. Response.Write "</tr>" & vbCrLf
  299. Response.Write "<tr>" & vbCrLf
  300. Response.Write "<td " & RightClass & ">精品私服：</td>" & vbCrLf
  301. Response.Write "<td " & LeftClass & "><input type=""text"" name=""finePage"" value=""" & tee5.finePage & """ size=""25""> 用于首页精品私服显示的个数</td>" & vbCrLf
  302. Response.Write "</tr>" & vbCrLf
  303. Response.Write "<tr>" & vbCrLf
  304. Response.Write "<td " & RightClass & ">前台分页：</td>" & vbCrLf
  305. Response.Write "<td " & LeftClass & "><input type=""text"" name=""MaxPerPage"" value=""" & tee5.MaxPerPage & """ size=""25""> 前台带分页的页面每页记录数</td>" & vbCrLf
  306. Response.Write "</tr>" & vbCrLf
  307. Response.Write "<tr>" & vbCrLf
  308. Response.Write "<td " & RightClass & ">后台分页：</td>" & vbCrLf
  309. Response.Write "<td " & LeftClass & "><input type=""text"" name=""AdminPage"" value=""" & tee5.AdminPage & """ size=""25""> 后台带分页的页面每页记录数</td>" & vbCrLf
  310. Response.Write "</tr>" & vbCrLf
  311. Response.Write "<tr>" & vbCrLf
  312. Response.Write "<td " & RightClass & ">游戏线路：</td>" & vbCrLf
  313. Response.Write "<td " & LeftClass & "><input type=""text"" name=""ssign"" value=""" & tee5.ssign & """ size=""25""> 看着办！用,隔开</td>" & vbCrLf
  314. Response.Write "</tr>" & vbCrLf
  315. Response.Write "<tr>" & vbCrLf
  316. Response.Write "<td " & RightClass & ">搜索关键字：</td>" & vbCrLf
  317. Response.Write "<td " & LeftClass & "><textarea name=""WebKeywords"" cols=""50"" rows=""5"">" & tee5.WebKeywords & "</textarea> 用,隔开，建议密度适当 </td>" & vbCrLf
  318. Response.Write "</tr>" & vbCrLf
  319. Response.Write "<tr>" & vbCrLf
  320. Response.Write "<td " & RightClass & ">首页公告：</td>" & vbCrLf
  321. Response.Write "<td " & LeftClass & "><textarea name=""IsNews"" cols=""50"" rows=""5"">" & tee5.IsNews & "</textarea> <span Class=Style1>请不要回车换行</span></td>" & vbCrLf
  322. Response.Write "</tr>" & vbCrLf
  323. Response.Write "</table>" & vbCrLf
  324. Response.Write "<table width=""98%"" border=0><tr><td height=""5""></td></tr></table>" & vbCrLf
  325. Response.Write "</fieldset>" & vbCrLf
  326. Response.Write "<table width=""98%"" border=0><tr><td height=""15""></td></tr></table>" & vbCrLf
  327. Response.Write "<tr>" & vbCrLf
  328. Response.Write "<td colspan=2 " & CenterClass & "><input class=Button type=""submit"" value=""保存设置"" name=""B1""></td>" & vbCrLf
  329. Response.Write "</tr>" & vbCrLf
  330. Response.Write "</form>" & vbCrLf
  331. Response.Write "</table>" & vbCrLf
  332. End Sub
  333. Sub SaveConfig()
  334. If Len(Request.Form("SiteName")) = 0 Or Len(Request.Form("SiteName")) => 50 Then
  335. FoundErr = True
  336. ErrMsg = ErrMsg + "<li>网站名称不能为空或者超过50个字符！</li>"
  337. End If
  338. If Len(Request.Form("WebUrl")) = 0 Or Len(Request.Form("WebUrl")) => 255 Then
  339. FoundErr = True
  340. ErrMsg = ErrMsg + "<li>网站地址不能为空或者超过255个字符！</li>"
  341. End If
  342. If Len(Request.Form("Renovates")) = 0 Or Len(Request.Form("Renovates")) => 255 Then
  343. FoundErr = True
  344. ErrMsg = ErrMsg + "<li>网站标题不能为空或者超过255个字符！</li>"
  345. End If
  346. If Len(Request.Form("Copyright")) = 0 Or Len(Request.Form("Copyright")) => 500 Then
  347. FoundErr = True
  348. ErrMsg = ErrMsg + "<li>版权信息不能为空或者超过500个字符！</li>"
  349. End If
  350. If FoundErr = True Then Exit Sub
  351. Set Rs = Server.CreateObject("ADODB.Recordset")
  352. SQL = "select * from Gq_Config where id = 1"
  353. Rs.Open SQL,Conn,1,3
  354. Rs("SiteName")    = Trim(Request.Form("SiteName"))
  355. Rs("SiteUrl")      = Trim(Request.Form("WebUrl"))
  356. Rs("Renovates")   = Trim(Request.Form("Renovates"))
  357. Rs("Copyright")   = Trim(Request.Form("Copyright"))
  358. Rs("IndexGame")   = Trim(Request.Form("IndexGame"))
  359. Rs("TabWidth")    = Trim(Request.Form("TabWidth"))
  360. Rs("ShowHtml")    = Trim(Request.Form("ShowHtml"))
  361. Rs("Webmaster")   = Trim(Request.Form("Webmaster"))
  362. Rs("sfUlock")     = Trim(Request.Form("sfUlock"))
  363. Rs("JzUlock")     = Trim(Request.Form("JzUlock"))
  364. Rs("sfLook")      = Trim(Request.Form("sfLook"))
  365. Rs("mirsfID")     = Trim(Request.Form("mirsfID"))
  366. Rs("mirsfday")    = Trim(Request.Form("mirsfday"))
  367. Rs("sf_hot")      = Trim(Request.Form("sf_hot"))
  368. Rs("sf_top")      = Trim(Request.Form("sf_top"))
  369. Rs("bg_1")        = Trim(Request.Form("bg_1"))
  370. Rs("bg_2")        = Trim(Request.Form("bg_2"))
  371. Rs("bg_3")        = Trim(Request.Form("bg_3"))
  372. Rs("bg_4")        = Trim(Request.Form("bg_4"))
  373. Rs("bg_1_1")      = Trim(Request.Form("bg_1_1"))
  374. Rs("bg_2_2")      = Trim(Request.Form("bg_2_2"))
  375. Rs("bg_3_3")      = Trim(Request.Form("bg_3_3"))
  376. Rs("bg_4_4")      = Trim(Request.Form("bg_4_4"))
  377. Rs("sfhits")      = Trim(Request.Form("sfhits"))
  378. Rs("hottime_1")   = Trim(Request.Form("hottime_1"))
  379. Rs("hottime_2")   = Trim(Request.Form("hottime_2"))
  380. Rs("finePage")    = Trim(Request.Form("finePage"))
  381. Rs("MaxPerPage")  = Trim(Request.Form("MaxPerPage"))
  382. Rs("AdminPage")   = Trim(Request.Form("AdminPage"))
  383. Rs("ssign")       = Trim(Request.Form("ssign"))
  384. Rs("WebKeywords") = Trim(Request.Form("WebKeywords"))
  385. Rs("IsNews")      = Trim(Request.Form("IsNews"))
  386. If Trim(Request.form("Indexsf1"))="yes" then
  387. Rs("Indexsf1") = 1
  388. Else
  389. Rs("Indexsf1") = 0
  390. End If
  391. If Trim(Request.form("Indexsf2"))="yes" then
  392. Rs("Indexsf2") = 1
  393. Else
  394. Rs("Indexsf2") = 0
  395. End If
  396. If Trim(Request.form("Indexsf3"))="yes" then
  397. Rs("Indexsf3") = 1
  398. Else
  399. Rs("Indexsf3") = 0
  400. End If
  401. If Trim(Request.form("Indexsf4"))="yes" then
  402. Rs("Indexsf4") = 1
  403. Else
  404. Rs("Indexsf4") = 0
  405. End If
  406. If Trim(Request.form("Indexsf5"))="yes" then
  407. Rs("Indexsf5") = 1
  408. Else
  409. Rs("Indexsf5") = 0
  410. End If
  411. Rs.update
  412. Rs.close:set Rs = Nothing
  413. Succeed("<li>恭喜您！保存设置成功。</li>")
  414. End Sub
  415. Sub SF_Bg()
  416. Response.Write "  <option style=""background-color:#F0F8FF;color: #F0F8FF"" value=""#F0F8FF"">#F0F8FF</option> " & vbCrLf
  417. Response.Write "  <option style=""background-color:#FAEBD7;color: #FAEBD7"" value=""#FAEBD7"">#FAEBD7</option> " & vbCrLf
  418. Response.Write "  <option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option> " & vbCrLf
  419. Response.Write "  <option style=""background-color:#7FFFD4;color: #7FFFD4"" value=""#7FFFD4"">#7FFFD4</option> " & vbCrLf
  420. Response.Write "  <option style=""background-color:#F0FFFF;color: #F0FFFF"" value=""#F0FFFF"">#F0FFFF</option> " & vbCrLf
  421. Response.Write "  <option style=""background-color:#F5F5DC;color: #F5F5DC"" value=""#F5F5DC"">#F5F5DC</option> " & vbCrLf
  422. Response.Write "  <option style=""background-color:#FFE4C4;color: #FFE4C4"" value=""#FFE4C4"">#FFE4C4</option> " & vbCrLf
  423. Response.Write "  <option style=""background-color:#000000;color: #000000"" value=""#000000"">#000000</option> " & vbCrLf
  424. Response.Write "  <option style=""background-color:#FFEBCD;color: #FFEBCD"" value=""#FFEBCD"">#FFEBCD</option> " & vbCrLf
  425. Response.Write "  <option style=""background-color:#0000FF;color: #0000FF"" value=""#0000FF"">#0000FF</option> " & vbCrLf
  426. Response.Write "  <option style=""background-color:#8A2BE2;color: #8A2BE2"" value=""#8A2BE2"">#8A2BE2</option> " & vbCrLf
  427. Response.Write "  <option style=""background-color:#A52A2A;color: #A52A2A"" value=""#A52A2A"">#A52A2A</option> " & vbCrLf
  428. Response.Write "  <option style=""background-color:#DEB887;color: #DEB887"" value=""#DEB887"">#DEB887</option> " & vbCrLf
  429. Response.Write "  <option style=""background-color:#5F9EA0;color: #5F9EA0"" value=""#5F9EA0"">#5F9EA0</option> " & vbCrLf
  430. Response.Write "  <option style=""background-color:#7FFF00;color: #7FFF00"" value=""#7FFF00"">#7FFF00</option> " & vbCrLf
  431. Response.Write "  <option style=""background-color:#D2691E;color: #D2691E"" value=""#D2691E"">#D2691E</option> " & vbCrLf
  432. Response.Write "  <option style=""background-color:#FF7F50;color: #FF7F50"" value=""#FF7F50"">#FF7F50</option> " & vbCrLf
  433. Response.Write "  <option style=""background-color:#6495ED;color: #6495ED"" value=""#6495ED"">#6495ED</option> " & vbCrLf
  434. Response.Write "  <option style=""background-color:#FFF8DC;color: #FFF8DC"" value=""#FFF8DC"">#FFF8DC</option> " & vbCrLf
  435. Response.Write "  <option style=""background-color:#DC143C;color: #DC143C"" value=""#DC143C"">#DC143C</option> " & vbCrLf
  436. Response.Write "  <option style=""background-color:#00FFFF;color: #00FFFF"" value=""#00FFFF"">#00FFFF</option> " & vbCrLf
  437. Response.Write "  <option style=""background-color:#00008B;color: #00008B"" value=""#00008B"">#00008B</option> " & vbCrLf
  438. Response.Write "  <option style=""background-color:#008B8B;color: #008B8B"" value=""#008B8B"">#008B8B</option> " & vbCrLf
  439. Response.Write "  <option style=""background-color:#B8860B;color: #B8860B"" value=""#B8860B"">#B8860B</option> " & vbCrLf
  440. Response.Write "  <option style=""background-color:#A9A9A9;color: #A9A9A9"" value=""#A9A9A9"">#A9A9A9</option> " & vbCrLf
  441. Response.Write "  <option style=""background-color:#006400;color: #006400"" value=""#006400"">#006400</option> " & vbCrLf
  442. Response.Write "  <option style=""background-color:#BDB76B;color: #BDB76B"" value=""#BDB76B"">#BDB76B</option> " & vbCrLf
  443. Response.Write "  <option style=""background-color:#8B008B;color: #8B008B"" value=""#8B008B"">#8B008B</option> " & vbCrLf
  444. Response.Write "  <option style=""background-color:#556B2F;color: #556B2F"" value=""#556B2F"">#556B2F</option> " & vbCrLf
  445. Response.Write "  <option style=""background-color:#FF8C00;color: #FF8C00"" value=""#FF8C00"">#FF8C00</option> " & vbCrLf
  446. Response.Write "  <option style=""background-color:#9932CC;color: #9932CC"" value=""#9932CC"">#9932CC</option> " & vbCrLf
  447. Response.Write "  <option style=""background-color:#8B0000;color: #8B0000"" value=""#8B0000"">#8B0000</option> " & vbCrLf
  448. Response.Write "  <option style=""background-color:#E9967A;color: #E9967A"" value=""#E9967A"">#E9967A</option> " & vbCrLf
  449. Response.Write "  <option style=""background-color:#8FBC8F;color: #8FBC8F"" value=""#8FBC8F"">#8FBC8F</option> " & vbCrLf
  450. Response.Write "  <option style=""background-color:#483D8B;color: #483D8B"" value=""#483D8B"">#483D8B</option> " & vbCrLf
  451. Response.Write "  <option style=""background-color:#2F4F4F;color: #2F4F4F"" value=""#2F4F4F"">#2F4F4F</option> " & vbCrLf
  452. Response.Write "  <option style=""background-color:#00CED1;color: #00CED1"" value=""#00CED1"">#00CED1</option> " & vbCrLf
  453. Response.Write "  <option style=""background-color:#9400D3;color: #9400D3"" value=""#9400D3"">#9400D3</option> " & vbCrLf
  454. Response.Write "  <option style=""background-color:#FF1493;color: #FF1493"" value=""#FF1493"">#FF1493</option> " & vbCrLf
  455. Response.Write "  <option style=""background-color:#00BFFF;color: #00BFFF"" value=""#00BFFF"">#00BFFF</option> " & vbCrLf
  456. Response.Write "  <option style=""background-color:#696969;color: #696969"" value=""#696969"">#696969</option> " & vbCrLf
  457. Response.Write "  <option style=""background-color:#1E90FF;color: #1E90FF"" value=""#1E90FF"">#1E90FF</option> " & vbCrLf
  458. Response.Write "  <option style=""background-color:#B22222;color: #B22222"" value=""#B22222"">#B22222</option> " & vbCrLf
  459. Response.Write "  <option style=""background-color:#FFFAF0;color: #FFFAF0"" value=""#FFFAF0"">#FFFAF0</option> " & vbCrLf
  460. Response.Write "  <option style=""background-color:#228B22;color: #228B22"" value=""#228B22"">#228B22</option> " & vbCrLf
  461. Response.Write "  <option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option> " & vbCrLf
  462. Response.Write "  <option style=""background-color:#DCDCDC;color: #DCDCDC"" value=""#DCDCDC"">#DCDCDC</option> " & vbCrLf
  463. Response.Write "  <option style=""background-color:#F8F8FF;color: #F8F8FF"" value=""#F8F8FF"">#F8F8FF</option> " & vbCrLf
  464. Response.Write "  <option style=""background-color:#FFD700;color: #FFD700"" value=""#FFD700"">#FFD700</option> " & vbCrLf
  465. Response.Write "  <option style=""background-color:#DAA520;color: #DAA520"" value=""#DAA520"">#DAA520</option> " & vbCrLf
  466. Response.Write "  <option style=""background-color:#808080;color: #808080"" value=""#808080"">#808080</option> " & vbCrLf
  467. Response.Write "  <option style=""background-color:#008000;color: #008000"" value=""#008000"">#008000</option> " & vbCrLf
  468. Response.Write "  <option style=""background-color:#ADFF2F;color: #ADFF2F"" value=""#ADFF2F"">#ADFF2F</option> " & vbCrLf
  469. Response.Write "  <option style=""background-color:#F0FFF0;color: #F0FFF0"" value=""#F0FFF0"">#F0FFF0</option> " & vbCrLf
  470. Response.Write "  <option style=""background-color:#FF69B4;color: #FF69B4"" value=""#FF69B4"">#FF69B4</option> " & vbCrLf
  471. Response.Write "  <option style=""background-color:#CD5C5C;color: #CD5C5C"" value=""#CD5C5C"">#CD5C5C</option> " & vbCrLf
  472. Response.Write "  <option style=""background-color:#4B0082;color: #4B0082"" value=""#4B0082"">#4B0082</option> " & vbCrLf
  473. Response.Write "  <option style=""background-color:#FFFFF0;color: #FFFFF0"" value=""#FFFFF0"">#FFFFF0</option> " & vbCrLf
  474. Response.Write "  <option style=""background-color:#F0E68C;color: #F0E68C"" value=""#F0E68C"">#F0E68C</option> " & vbCrLf
  475. Response.Write "  <option style=""background-color:#E6E6FA;color: #E6E6FA"" value=""#E6E6FA"">#E6E6FA</option> " & vbCrLf
  476. Response.Write "  <option style=""background-color:#FFF0F5;color: #FFF0F5"" value=""#FFF0F5"">#FFF0F5</option> " & vbCrLf
  477. Response.Write "  <option style=""background-color:#7CFC00;color: #7CFC00"" value=""#7CFC00"">#7CFC00</option> " & vbCrLf
  478. Response.Write "  <option style=""background-color:#FFFACD;color: #FFFACD"" value=""#FFFACD"">#FFFACD</option> " & vbCrLf
  479. Response.Write "  <option style=""background-color:#ADD8E6;color: #ADD8E6"" value=""#ADD8E6"">#ADD8E6</option> " & vbCrLf
  480. Response.Write "  <option style=""background-color:#F08080;color: #F08080"" value=""#F08080"">#F08080</option> " & vbCrLf
  481. Response.Write "  <option style=""background-color:#E0FFFF;color: #E0FFFF"" value=""#E0FFFF"">#E0FFFF</option> " & vbCrLf
  482. Response.Write "  <option style=""background-color:#FAFAD2;color: #FAFAD2"" value=""#FAFAD2"">#FAFAD2</option> " & vbCrLf
  483. Response.Write "  <option style=""background-color:#90EE90;color: #90EE90"" value=""#90EE90"">#90EE90</option> " & vbCrLf
  484. Response.Write "  <option style=""background-color:#D3D3D3;color: #D3D3D3"" value=""#D3D3D3"">#D3D3D3</option> " & vbCrLf
  485. Response.Write "  <option style=""background-color:#FFB6C1;color: #FFB6C1"" value=""#FFB6C1"">#FFB6C1</option> " & vbCrLf
  486. Response.Write "  <option style=""background-color:#FFA07A;color: #FFA07A"" value=""#FFA07A"">#FFA07A</option> " & vbCrLf
  487. Response.Write "  <option style=""background-color:#20B2AA;color: #20B2AA"" value=""#20B2AA"">#20B2AA</option> " & vbCrLf
  488. Response.Write "  <option style=""background-color:#87CEFA;color: #87CEFA"" value=""#87CEFA"">#87CEFA</option> " & vbCrLf
  489. Response.Write "  <option style=""background-color:#778899;color: #778899"" value=""#778899"">#778899</option> " & vbCrLf
  490. Response.Write "  <option style=""background-color:#B0C4DE;color: #B0C4DE"" value=""#B0C4DE"">#B0C4DE</option> " & vbCrLf
  491. Response.Write "  <option style=""background-color:#FFFFE0;color: #FFFFE0"" value=""#FFFFE0"">#FFFFE0</option> " & vbCrLf
  492. Response.Write "  <option style=""background-color:#00FF00;color: #00FF00"" value=""#00FF00"">#00FF00</option> " & vbCrLf
  493. Response.Write "  <option style=""background-color:#32CD32;color: #32CD32"" value=""#32CD32"">#32CD32</option> " & vbCrLf
  494. Response.Write "  <option style=""background-color:#FAF0E6;color: #FAF0E6"" value=""#FAF0E6"">#FAF0E6</option> " & vbCrLf
  495. Response.Write "  <option style=""background-color:#FF00FF;color: #FF00FF"" value=""#FF00FF"">#FF00FF</option> " & vbCrLf
  496. Response.Write "  <option style=""background-color:#800000;color: #800000"" value=""#800000"">#800000</option> " & vbCrLf
  497. Response.Write "  <option style=""background-color:#66CDAA;color: #66CDAA"" value=""#66CDAA"">#66CDAA</option> " & vbCrLf
  498. Response.Write "  <option style=""background-color:#0000CD;color: #0000CD"" value=""#0000CD"">#0000CD</option> " & vbCrLf
  499. Response.Write "  <option style=""background-color:#BA55D3;color: #BA55D3"" value=""#BA55D3"">#BA55D3</option> " & vbCrLf
  500. Response.Write "  <option style=""background-color:#9370DB;color: #9370DB"" value=""#9370DB"">#9370DB</option> " & vbCrLf
  501. Response.Write "  <option style=""background-color:#3CB371;color: #3CB371"" value=""#3CB371"">#3CB371</option> " & vbCrLf
  502. Response.Write "  <option style=""background-color:#7B68EE;color: #7B68EE"" value=""#7B68EE"">#7B68EE</option> " & vbCrLf
  503. Response.Write "  <option style=""background-color:#00FA9A;color: #00FA9A"" value=""#00FA9A"">#00FA9A</option> " & vbCrLf
  504. Response.Write "  <option style=""background-color:#48D1CC;color: #48D1CC"" value=""#48D1CC"">#48D1CC</option> " & vbCrLf
  505. Response.Write "  <option style=""background-color:#C71585;color: #C71585"" value=""#C71585"">#C71585</option> " & vbCrLf
  506. Response.Write "  <option style=""background-color:#191970;color: #191970"" value=""#191970"">#191970</option> " & vbCrLf
  507. Response.Write "  <option style=""background-color:#F5FFFA;color: #F5FFFA"" value=""#F5FFFA"">#F5FFFA</option> " & vbCrLf
  508. Response.Write "  <option style=""background-color:#FFE4E1;color: #FFE4E1"" value=""#FFE4E1"">#FFE4E1</option> " & vbCrLf
  509. Response.Write "  <option style=""background-color:#FFE4B5;color: #FFE4B5"" value=""#FFE4B5"">#FFE4B5</option> " & vbCrLf
  510. Response.Write "  <option style=""background-color:#FFDEAD;color: #FFDEAD"" value=""#FFDEAD"">#FFDEAD</option> " & vbCrLf
  511. Response.Write "  <option style=""background-color:#000080;color: #000080"" value=""#000080"">#000080</option> " & vbCrLf
  512. Response.Write "  <option style=""background-color:#FDF5E6;color: #FDF5E6"" value=""#FDF5E6"">#FDF5E6</option> " & vbCrLf
  513. Response.Write "  <option style=""background-color:#808000;color: #808000"" value=""#808000"">#808000</option> " & vbCrLf
  514. Response.Write "  <option style=""background-color:#6B8E23;color: #6B8E23"" value=""#6B8E23"">#6B8E23</option> " & vbCrLf
  515. Response.Write "  <option style=""background-color:#FFA500;color: #FFA500"" value=""#FFA500"">#FFA500</option> " & vbCrLf
  516. Response.Write "  <option style=""background-color:#FF4500;color: #FF4500"" value=""#FF4500"">#FF4500</option> " & vbCrLf
  517. Response.Write "  <option style=""background-color:#DA70D6;color: #DA70D6"" value=""#DA70D6"">#DA70D6</option> " & vbCrLf
  518. Response.Write "  <option style=""background-color:#EEE8AA;color: #EEE8AA"" value=""#EEE8AA"">#EEE8AA</option> " & vbCrLf
  519. Response.Write "  <option style=""background-color:#98FB98;color: #98FB98"" value=""#98FB98"">#98FB98</option> " & vbCrLf
  520. Response.Write "  <option style=""background-color:#AFEEEE;color: #AFEEEE"" value=""#AFEEEE"">#AFEEEE</option> " & vbCrLf
  521. Response.Write "  <option style=""background-color:#DB7093;color: #DB7093"" value=""#DB7093"">#DB7093</option> " & vbCrLf
  522. Response.Write "  <option style=""background-color:#FFEFD5;color: #FFEFD5"" value=""#FFEFD5"">#FFEFD5</option> " & vbCrLf
  523. Response.Write "  <option style=""background-color:#FFDAB9;color: #FFDAB9"" value=""#FFDAB9"">#FFDAB9</option> " & vbCrLf
  524. Response.Write "  <option style=""background-color:#CD853F;color: #CD853F"" value=""#CD853F"">#CD853F</option> " & vbCrLf
  525. Response.Write "  <option style=""background-color:#FFC0CB;color: #FFC0CB"" value=""#FFC0CB"">#FFC0CB</option> " & vbCrLf
  526. Response.Write "  <option style=""background-color:#DDA0DD;color: #DDA0DD"" value=""#DDA0DD"">#DDA0DD</option> " & vbCrLf
  527. Response.Write "  <option style=""background-color:#B0E0E6;color: #B0E0E6"" value=""#B0E0E6"">#B0E0E6</option> " & vbCrLf
  528. Response.Write "  <option style=""background-color:#800080;color: #800080"" value=""#800080"">#800080</option> " & vbCrLf
  529. Response.Write "  <option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">#FF0000</option> " & vbCrLf
  530. Response.Write "  <option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"">#BC8F8F</option> " & vbCrLf
  531. Response.Write "  <option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"">#4169E1</option> " & vbCrLf
  532. Response.Write "  <option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"">#8B4513</option> " & vbCrLf
  533. Response.Write "  <option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"">#FA8072</option> " & vbCrLf
  534. Response.Write "  <option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"">#F4A460</option> " & vbCrLf
  535. Response.Write "  <option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"">#2E8B57</option> " & vbCrLf
  536. Response.Write "  <option style=""background-color:#FFF5EE;color: #FFF5EE"" value=""#FFF5EE"">#FFF5EE</option> " & vbCrLf
  537. Response.Write "  <option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"">#A0522D</option> " & vbCrLf
  538. Response.Write "  <option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">#C0C0C0</option> " & vbCrLf
  539. Response.Write "  <option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"">#87CEEB</option> " & vbCrLf
  540. Response.Write "  <option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"">#6A5ACD</option> " & vbCrLf
  541. Response.Write "  <option style=""background-color:#708090;color: #708090"" value=""#708090"">#708090</option> " & vbCrLf
  542. Response.Write "  <option style=""background-color:#FFFAFA;color: #FFFAFA"" value=""#FFFAFA"">#FFFAFA</option> " & vbCrLf
  543. Response.Write "  <option style=""background-color:#00FF7F;color: #00FF7F"" value=""#00FF7F"">#00FF7F</option> " & vbCrLf
  544. Response.Write "  <option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"">#4682B4</option> " & vbCrLf
  545. Response.Write "  <option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"">#D2B48C</option> " & vbCrLf
  546. Response.Write "  <option style=""background-color:#008080;color: #008080"" value=""#008080"">#008080</option> " & vbCrLf
  547. Response.Write "  <option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"">#D8BFD8</option> " & vbCrLf
  548. Response.Write "  <option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"">#FF6347</option> " & vbCrLf
  549. Response.Write "  <option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"">#40E0D0</option> " & vbCrLf
  550. Response.Write "  <option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"">#EE82EE</option> " & vbCrLf
  551. Response.Write "  <option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"">#F5DEB3</option> " & vbCrLf
  552. Response.Write "  <option style=""background-color:#FFFFFF;color: #FFFFFF"" value=""#FFFFFF"">#FFFFFF</option> " & vbCrLf
  553. Response.Write "  <option style=""background-color:#F5F5F5;color: #F5F5F5"" value=""#F5F5F5"">#F5F5F5</option> " & vbCrLf
  554. Response.Write "  <option style=""background-color:#FFFF00;color: #FFFF00"" value=""#FFFF00"">#FFFF00</option> " & vbCrLf
  555. Response.Write "  <option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"">#9ACD32</option> " & vbCrLf
  556. End Sub
  557. %>