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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Sitemodify.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：35k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Sitemodify.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <%
  7. Dim Conn,CollectConn
  8. MF_Default_Conn
  9. MF_Collect_Conn
  10. MF_Session_TF
  12. Dim RsEditObj,EditSql,SiteID
  13. Set RsEditObj = Server.CreateObject ("ADODB.RecordSet")
  14. SiteID = Request("SiteID")
  15. if SiteID <> "" then
  16. EditSql="Select * from FS_Site where ID=" & SiteID
  17. RsEditObj.Open EditSql,CollectConn,1,3
  18. if RsEditObj.Eof then
  19. Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
  20. Response.end
  21. end if
  22. else
  23. Response.write"<script>alert(""没有修改的站点"");location.href=""javascript:history.back()"";</script>"
  24. Response.end
  25. end if
  27. Function SiteFolderList()
  28. Dim ClassListObj,SelectStr
  29. Set ClassListObj = CollectConn.Execute("Select * from FS_SiteFolder where 1=1 order by ID desc")
  30. do while Not ClassListObj.Eof
  31. if RsEditObj("Folder") = ClassListObj("ID") then
  32. SelectStr = "selected"
  33. else
  34. SelectStr = ""
  35. end if
  36. SiteFolderList = SiteFolderList & "<option " & SelectStr & " value="&ClassListObj("ID")&"" & ">&nbsp;&nbsp;|--" & ClassListObj("SiteFolder") & "</option><br>"
  37. ClassListObj.MoveNext
  38. loop
  39. ClassListObj.Close
  40. Set ClassListObj = Nothing
  41. End Function
  43. if Request.Form("Result") = "Edit" then
  44.     Dim RsAddObj,sql
  45.     if Request.Form("SiteName")="" or Request.Form("objURL")="" then
  46. Response.write"<script>alert(""请填写完整！"");location.href=""javascript:history.back()"";</script>"
  47. Response.end
  48. end if
  49. Set RsAddObj = Server.CreateObject ("ADODB.RecordSet")
  50. Sql = "select * from FS_Site where id=" & Request.Form("SiteID")
  51. RsAddObj.Open Sql,CollectConn,1,3
  52. RsAddObj("SiteName") = Request.Form("SiteName")
  53. RsAddObj("objURL") = Request.Form("objURL")
  54. 'On Error Resume Next 
  55. Dim ListSetting,LinkSetting,PageBodySetting,PageTitleSetting,OtherNewsPageSetting,AuthorSetting,SourceSetting,AddDateSetting,OtherPageSetting,StrErr
  56. StrErr = ""
  57. If InStr(Request.Form("ListSetting"),"[列表内容]")<>0 then
  58. ListSetting = Split(Request.Form("ListSetting"),"[列表内容]",-1,1)
  59. RsAddObj("ListHeadSetting") = ListSetting(0)
  60. RsAddObj("ListFootSetting") = ListSetting(1)
  61. ElseIf ListSetting(0)="" Or ListSetting(1)="" Or err Then
  62. Err.clear
  63. RsAddObj("ListHeadSetting") = "<body"
  64. RsAddObj("ListFootSetting") = "</body>"
  65. End If
  66. LinkSetting = Split(Request.Form("LinkSetting"),"[列表URL]",-1,1)
  67. RsAddObj("LinkHeadSetting") = LinkSetting(0)
  68. RsAddObj("LinkFootSetting") = LinkSetting(1)
  69. If err Then
  70. StrErr = "列表URL没有设置或设置不正确！"
  71. Err.clear
  72. End if
  73. PageBodySetting = Split(Request.Form("PageBodySetting"),"[新闻内容]",-1,1)
  74. RsAddObj("PagebodyHeadSetting") = PageBodySetting(0)
  75. RsAddObj("PagebodyFootSetting") = PageBodySetting(1)
  76. If err Then
  77. StrErr = StrErr & "rn新闻内容没有设置或设置不正确！"
  78. Err.clear
  79. End if
  80. PageTitleSetting = Split(Request.Form("PageTitleSetting"),"[新闻标题]",-1,1) 
  81. RsAddObj("PageTitleHeadSetting") = PageTitleSetting(0)
  82. RsAddObj("PageTitleFootSetting") = PageTitleSetting(1)
  83. If err Then
  84. StrErr = StrErr & "rn新闻标题没有设置或设置不正确！"
  85. Err.clear
  86. End If
  87. If InStr(Request.Form("AuthorSetting"),"[作者]")<>0 then
  88. AuthorSetting = Split(Request.Form("AuthorSetting"),"[作者]",-1,1)
  89. RsAddObj("AuthorHeadSetting") = AuthorSetting(0)
  90. RsAddObj("AuthorFootSetting") = AuthorSetting(1)
  91. End If
  92. If InStr(Request.Form("SourceSetting"),"[来源]")<>0 then
  93. SourceSetting = Split(Request.Form("SourceSetting"),"[来源]",-1,1)
  94. RsAddObj("SourceHeadSetting") = SourceSetting(0)
  95. RsAddObj("SourceFootSetting") = SourceSetting(1)
  96. End If
  97. If InStr(Request.Form("AddDateSetting"),"[加入时间]")<>0 then
  98. AddDateSetting = Split(Request.Form("AddDateSetting"),"[加入时间]",-1,1)
  99. RsAddObj("AddDateHeadSetting") = AddDateSetting(0)
  100. RsAddObj("AddDateFootSetting") = AddDateSetting(1)
  101. End if
  103. Select Case Request.Form("OtherNewsType")
  104. Case "0"
  105. RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
  106. RsAddObj("OtherNewsPageHeadSetting") = ""
  107. RsAddObj("OtherNewsPageFootSetting") = ""
  108. RsAddObj("OtherNewsPageIndexSetting") = ""
  109. RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
  110. RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
  111. RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
  112. Case "1"
  113. RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
  114. If InStr(Request.Form("OtherNewsPageSetting"),"[分页新闻]")<>0 Then
  115. OtherNewsPageSetting = Split(Request.Form("OtherNewsPageSetting"),"[分页新闻]",-1,1)
  116. RsAddObj("OtherNewsPageHeadSetting") = OtherNewsPageSetting(0)
  117. RsAddObj("OtherNewsPageFootSetting") = OtherNewsPageSetting(1)
  118. End if
  119. RsAddObj("OtherNewsPageIndexSetting") = ""
  120. RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
  121. RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
  122. RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
  123. Case "2"
  124. RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
  125. RsAddObj("OtherNewsPageHeadSetting") = ""
  126. RsAddObj("OtherNewsPageFootSetting") = ""
  127. RsAddObj("OtherNewsPageIndexSetting") = Request.Form("OtherNewsPageIndexSetting")
  128. RsAddObj("OtherNewsPageIndexSettingStartPageNum") = Request.Form("OtherNewsPageIndexSettingStartPageNum")
  129. RsAddObj("OtherNewsPageIndexSettingEndPageNum") = Request.Form("OtherNewsPageIndexSettingEndPageNum")
  130. RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
  131. Case "3"
  132. RsAddObj("OtherNewsType") = Request.Form("OtherNewsType")
  133. RsAddObj("OtherNewsPageHeadSetting") = ""
  134. RsAddObj("OtherNewsPageFootSetting") = ""
  135. RsAddObj("OtherNewsPageIndexSetting") = ""
  136. RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
  137. RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
  138. RsAddObj("OtherNewsPageIndexSettingHandPageContent") = Request.Form("OtherNewsPageIndexSettingHandPageContent")
  139. Case Else
  140. RsAddObj("OtherNewsType") = "0"
  141. RsAddObj("OtherNewsPageHeadSetting") = ""
  142. RsAddObj("OtherNewsPageFootSetting") = ""
  143. RsAddObj("OtherNewsPageIndexSetting") = ""
  144. RsAddObj("OtherNewsPageIndexSettingStartPageNum") = ""
  145. RsAddObj("OtherNewsPageIndexSettingEndPageNum") = ""
  146. RsAddObj("OtherNewsPageIndexSettingHandPageContent") = ""
  147. End Select
  149. If StrErr<>"" Then
  150. Err.clear
  151. Response.Write "<script>alert('"& StrErr &"');history.back();</script>"
  152. Response.End
  153. End If 
  154. Select Case Request.Form("OtherType")
  155. Case "0"
  156. RsAddObj("OtherType") = Request.Form("OtherType")
  157. RsAddObj("IndexRule") = ""
  158. RsAddObj("StartPageNum") = ""
  159. RsAddObj("EndPageNum") = ""
  160. RsAddObj("HandPageContent") = ""
  161. RsAddObj("OtherPageHeadSetting") = ""
  162. RsAddObj("OtherPageFootSetting") = ""
  163. Case "1"
  164. RsAddObj("OtherType") = Request.Form("OtherType")
  165. RsAddObj("IndexRule") = ""
  166. RsAddObj("StartPageNum") = ""
  167. RsAddObj("EndPageNum") = ""
  168. RsAddObj("HandPageContent") = ""
  169. OtherPageSetting = Split(Request.Form("OtherPageSetting"),"[其他页面]",-1,1)
  170. RsAddObj("OtherPageHeadSetting") = OtherPageSetting(0)
  171. RsAddObj("OtherPageFootSetting") = OtherPageSetting(1)
  172. Case "2"
  173. RsAddObj("OtherType") = Request.Form("OtherType")
  174. RsAddObj("IndexRule") = Request.Form("IndexRule")
  175. RsAddObj("StartPageNum") = Request.Form("StartPageNum")
  176. RsAddObj("EndPageNum") = Request.Form("EndPageNum")
  177. RsAddObj("HandPageContent") = ""
  178. RsAddObj("OtherPageHeadSetting") = ""
  179. RsAddObj("OtherPageFootSetting") = ""
  180. Case "3"
  181. RsAddObj("OtherType") = Request.Form("OtherType")
  182. RsAddObj("IndexRule") = ""
  183. RsAddObj("StartPageNum") = ""
  184. RsAddObj("EndPageNum") = ""
  185. RsAddObj("HandPageContent") = Request.Form("HandPageContent")
  186. RsAddObj("OtherPageHeadSetting") = ""
  187. RsAddObj("OtherPageFootSetting") = ""
  188. Case Else
  189. RsAddObj("OtherType") = 0
  190. RsAddObj("IndexRule") = ""
  191. RsAddObj("StartPageNum") = ""
  192. RsAddObj("EndPageNum") = ""
  193. RsAddObj("HandPageContent") = ""
  194. RsAddObj("OtherPageHeadSetting") = ""
  195. RsAddObj("OtherPageFootSetting") = ""
  196. End Select
  197. RsAddObj("HandSetAuthor") = Request.Form("HandSetAuthor")
  198. RsAddObj("HandSetSource") = Request.Form("HandSetSource")
  199. if IsDate(Request.Form("HandSetAddDate")) then
  200. RsAddObj("HandSetAddDate") = Request.Form("HandSetAddDate")
  201. end if
  202. if Request.Form("IsIFrame") = "1" then
  203. RsAddObj("IsIFrame") = True
  204. else
  205. RsAddObj("IsIFrame") = False
  206. end if
  207. if Request.Form("IsScript") = "1" then
  208. RsAddObj("IsScript") = True
  209. else
  210. RsAddObj("IsScript") = False
  211. end if
  212. if Request.Form("IsClass") = "1" then
  213. RsAddObj("IsClass") = True
  214. else
  215. RsAddObj("IsClass") = False
  216. end if
  217. if Request.Form("IsFont") = "1" then
  218. RsAddObj("IsFont") = True
  219. else
  220. RsAddObj("IsFont") = False
  221. end if
  222. if Request.Form("IsSpan") = "1" then
  223. RsAddObj("IsSpan") = True
  224. else
  225. RsAddObj("IsSpan") = False
  226. end if
  227. if Request.Form("IsObject") = "1" then
  228. RsAddObj("IsObject") = True
  229. else
  230. RsAddObj("IsObject") = False
  231. end if
  232. if Request.Form("IsStyle") = "1" then
  233. RsAddObj("IsStyle") = True
  234. else
  235. RsAddObj("IsStyle") = False
  236. end if
  237. if Request.Form("IsDiv") = "1" then
  238. RsAddObj("IsDiv") = True
  239. else
  240. RsAddObj("IsDiv") = False
  241. end if
  242. if Request.Form("IsA") = "1" then
  243. RsAddObj("IsA") = True
  244. else
  245. RsAddObj("IsA") = False
  246. end if
  247. if Request.Form("Audit") = "1" then
  248. RsAddObj("Audit") = True
  249. else
  250. RsAddObj("Audit") = False
  251. end if
  252. if Request.Form("IsAutoCollect") <> "" then
  253. RsAddObj("IsAutoCollect") = True
  254. RsAddObj("CollectDate") = Clng(Request.Form("CollectDate"))
  255. else
  256. RsAddObj("IsAutoCollect") = False
  257. end if
  258. if Request.Form("TextTF") = "1" then
  259. RsAddObj("TextTF") = True
  260. else
  261. RsAddObj("TextTF") = False
  262. end If
  263. If Request.Form("IsReverse") = "1" Then
  264. RsAddObj("IsReverse") = "1"
  265. Else
  266. RsAddObj("IsReverse") = "0"
  267. End If
  268. if Request.Form("SaveRemotePic") = "1" then
  269. RsAddObj("SaveRemotePic") = True
  270. else
  271. RsAddObj("SaveRemotePic") = False
  272. end if
  273. if Request.Form("Islock") <> "" then
  274. RsAddObj("Islock") = True
  275. else
  276. RsAddObj("Islock") = False
  277. end if
  278. RsAddObj.update
  279. RsAddObj.close
  280. Set RsAddObj = Nothing
  281. Response.Redirect("Site.asp")
  282. Response.End
  283. end if
  284. %>
  285. <html>
  286. <head>
  287. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  288. <title>自动新闻采集—站点设置</title>
  289. </head>
  290. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  291. <script language="JavaScript" src="js/PublicJS.js"></script>
  292. <body leftmargin="2" topmargin="2">
  293. <form name="Form" method="post" action="" id="Form">
  294.       <table width="98%" height="20" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  295.         <tr class="hback" >
  296.             <td width="30" align="center" alt="保存" style="cursor:hand" onClick="document.Form.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
  297. <td width="35" align="center" alt="后退" style="cursor:hand" onClick="history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
  298.             <td>&nbsp; <input name="vs" type="hidden" id="vs2" value="add"> <input name="SiteID" type="hidden" id="SiteID2" value="<% = SiteID %>"> 
  299.               <input name="Result" type="hidden" id="Result2" value="Edit"></td>
  300.         </tr>
  301.   </table>
  302.   <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  303.     <tr class="hback" > 
  304.       <td width="15%" height="26"> <div align="center">采集站点名称</div></td>
  305.       <td> <input name="SiteName" style="width:100%;" type="text" id="SiteName" value="<%=RsEditObj("sitename")%>"> 
  306.         <div align="right"> </div></td>
  307.     </tr>
  308.     <tr class="hback" > 
  309.       <td height="26"> <div align="center">采集对象页</div></td>
  310.       <td><input name="objURL" style="width:100%;" type="text" id="objURL" value="<%=RsEditObj("objURL")%>" size="50"></td>
  311.     </tr>
  312. <tr class="hback" > 
  313. <td height="26"> <div align="center">采集站点分类</div></td>
  314.       <td><select name="SiteFolder" style="width:100%;" id="SiteFolder">
  315. <option value="0">根栏目</option>
  316.           <% = SiteFolderList %>
  317.         </select></td>
  318.     </tr>
  319.     <tr class="hback" > 
  320.       <td height="26"><div align="center">采集参数</div></td>
  321.       <td>锁定 
  322.         <input name="islock" type="checkbox" id="islock" value="1" <%if RsEditObj("islock")=true then response.Write("checked")%>>
  323.         保存远程图片 
  324.         <input type="checkbox" name="SaveRemotePic" value="1" <%if RsEditObj("SaveRemotePic")=true then response.Write("checked")%>>
  325.         新闻是否已经审核 
  326.         <input type="checkbox" name="Audit" value="1" <%if RsEditObj("Audit")=true then response.Write("checked")%>>
  327. 是否倒序采集 
  328.         <input name="IsReverse" type="checkbox" id="IsReverse" value="1" <%if RsEditObj("IsReverse")="1" then response.Write("checked")%>>
  329. </td>
  330.     </tr>
  331.     <tr class="hback" > 
  332.       <td height="26"><div align="center">过滤选项</div></td>
  333.       <td>HTML <input type="checkbox" name="TextTF" value="1" <% if RsEditObj("TextTF") = True then Response.Write("checked")%>>
  334.         STYLE <input type="checkbox" name="IsStyle" value="1" <% if RsEditObj("IsStyle") = True then Response.Write("checked")%>>
  335.         DIV<input type="checkbox" name="IsDiv" value="1" <% if RsEditObj("IsDiv") = True then Response.Write("checked")%>>
  336.         A<input type="checkbox" name="IsA" value="1" <% if RsEditObj("IsA") = True then Response.Write("checked")%>>
  337.         CLASS<input type="checkbox" name="IsClass" value="1" <% if RsEditObj("IsClass") = True then Response.Write("checked")%>>
  338.         FONT<input type="checkbox" name="IsFont" value="1" <% if RsEditObj("IsFont") = True then Response.Write("checked")%>>
  339.         SPAN<input type="checkbox" name="IsSpan" value="1" <% if RsEditObj("IsSpan") = True then Response.Write("checked")%>>
  340.         OBJECT<input type="checkbox" name="IsObject" value="1" <% if RsEditObj("IsObject") = True then Response.Write("checked")%>>
  341.         IFRAME<input type="checkbox" name="IsIFrame" value="1" <% if RsEditObj("IsIFrame") = True then Response.Write("checked")%>>
  342.         SCRIPT<input type="checkbox" name="IsScript" value="1" <% if RsEditObj("IsScript") = True then Response.Write("checked")%>>
  343.       </td>
  344.     </tr>
  345.     <tr class="hback" > 
  346.       <td height="36" colspan="2">
  347. <div align="center"></div>
  348.         <div align="center">
  349.           <input onClick="ChangeCutPara(0);" <% if RsEditObj("OtherType") = 0 then Response.Write("checked") %> name="OtherType" type="radio" value="0">
  350.           不分页 
  351.           <input type="radio" onClick="ChangeCutPara(1);" name="OtherType" <% if RsEditObj("OtherType") = 1 then Response.Write("checked") %> value="1">
  352.           标记分页设置 
  353.           <input type="radio" onClick="ChangeCutPara(2);" <% if RsEditObj("OtherType") = 2 then Response.Write("checked") %> name="OtherType" value="2">
  354.           索引分页设置 
  355.           <input type="radio" onClick="ChangeCutPara(3);" <% if RsEditObj("OtherType") = 3 then Response.Write("checked") %> name="OtherType" value="3">
  356.           手工分页设置
  357.   <input type="radio" onClick="ChangeCutPara(4);" <% if RsEditObj("OtherType") = 4 then Response.Write("checked") %> name="OtherType" value="4">
  358.           <b>列表内容范围设置</b></div></td>
  359.     </tr>
  360.     <tr class="hback"  id="TagCutPage" style="display:<% if RsEditObj("OtherType") <> 1 then Response.Write("none") %>;"> 
  361.       <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  362.           <tr class="hback" > 
  363.             <td width="15%"> 
  364.               <div align="center">其他页面</div></td>
  365.             <td>
  366. &nbsp;&nbsp;输入区域：
  367. <span onClick="if(document.Form.OtherPageSetting.rows>2)document.Form.OtherPageSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  368. <span onClick="document.Form.OtherPageSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  369. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.OtherPageSetting);" onClick="addTag('[其他页面]')" style="CURSOR: hand"><b>[其他页面]</b></font>
  370. &nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.OtherPageSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font>
  371. <br>
  372. <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)" name="OtherPageSetting" id="OtherPageSetting" rows="4" style="width:100%;"><%=RsEditObj("OtherPageHeadSetting")%>[其他页面]<%=RsEditObj("OtherPageFootSetting")%></textarea></td>
  373.           </tr>
  374.         </table></td>
  375.     </tr>
  376.     <tr class="hback"  id="IndexCutPage" style="display:<% if RsEditObj("OtherType") <> 2 then Response.Write("none") %>;"> 
  377.       <td colspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
  378.           <tr class="hback" > 
  379.             <td width="15%"> 
  380.               <div align="center">索引规则 </div></td>
  381.             <td>
  382. &nbsp;&nbsp;输入区域：
  383. <span onClick="if(document.Form.IndexRule.rows>2)document.Form.IndexRule.rows-=1" style='cursor:hand'><b>缩小</b></span>
  384. <span onClick="document.Form.IndexRule.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
  385. <textarea name="IndexRule" rows="3" id="IndexRule" style="width:100%;"><% = RsEditObj("IndexRule") %></textarea></td>
  386.           </tr>
  387.           <tr class="hback" > 
  388.             <td height="26"> <div align="center">页码</div></td>
  389.             <td>页码开始： 
  390.               <input name="StartPageNum" type="text" id="StartPageNum" size="3" maxlength="8" value="<% = RsEditObj("StartPageNum") %>">
  391.               页码结束 
  392.               <input name="EndPageNum" type="text" id="EndPageNum" size="3" maxlength="8" value="<% = RsEditObj("EndPageNum") %>">&nbsp&nbsp例:在索引规则中写http://.../index_^$^.htm，其中^$^代表设定的页码</td>
  393.           </tr>
  394.         </table></td>
  395.     </tr>
  396.     <tr class="hback"  id="HandCutPage" style="display:<% if RsEditObj("OtherType") <> 3 then Response.Write("none") %>;"> 
  397.       <td width="10%"> <div align="center">分页内容</div></td>
  398.       <td height="26">   &nbsp;&nbsp;输入区域：
  399. <span onClick="if(document.Form.HandPageContent.rows>2)document.Form.HandPageContent.rows-=1" style='cursor:hand'><b>缩小</b></span>
  400. <span onClick="document.Form.HandPageContent.rows+=1" style='cursor:hand'><b>扩大</b></span>
  401. <textarea  name="HandPageContent" rows="6" id="HandPageContent" style="width:100%;"><% = RsEditObj("HandPageContent") %></textarea></tr>
  402.     <tr class="hback"   id="ListContent" style="display:none"> 
  403.       <td colspan="2">
  404.   <table width="100%" border="0" cellspacing="0" cellpadding="0">
  405.           <tr class="hback" > 
  406.             <td width="15%"> 
  407.   <div align="center">列表内容</div></td>
  408.       <td> &nbsp;&nbsp;输入区域：
  409. <span onClick="if(document.Form.ListSetting.rows>2)document.Form.ListSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  410. <span onClick="document.Form.ListSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  411.   &nbsp;&nbsp;可用标签:<font onmouseover="getActiveText(document.Form.ListSetting);" onClick="addTag('[列表内容]')" style="CURSOR: hand"><b>[列表内容]</b></font>
  412.   &nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.ListSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  413.    <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)" name="ListSetting" cols="50" rows="3" id="ListSetting" style="width:100%;"><%=RsEditObj("ListHeadSetting")%>[列表内容]<%=RsEditObj("ListFootSetting")%></textarea>
  414.    </td>
  415.           </tr>
  416.         </table>
  417.       </td>
  418.     </tr>
  419.     <tr class="hback" > 
  420.       <td> <div align="center">列表URL<font color="#ff0000">*</font></div></td>
  421.       <td> &nbsp;&nbsp;输入区域：
  422. <span onClick="if(document.Form.LinkSetting.rows>2)document.Form.LinkSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  423. <span onClick="document.Form.LinkSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  424. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.LinkSetting);" onClick="addTag('[列表URL]')" style="CURSOR: hand"><b>[列表URL]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.LinkSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  425.   <textarea   ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)"  name="LinkSetting" cols="50" rows="3" id="textarea2" style="width:100%;"><%=RsEditObj("LinkHeadSetting")%>[列表URL]<%=RsEditObj("LinkFootSetting")%></textarea></td>
  426.     </tr>
  427.     <tr class="hback" > 
  428.       <td> <div align="center">新闻标题<font color="#ff0000">*</font></div></td>
  429.       <td> &nbsp;&nbsp;输入区域：
  430. <span onClick="if(document.Form.PageTitleSetting.rows>2)document.Form.PageTitleSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  431. <span onClick="document.Form.PageTitleSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  432. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.PageTitleSetting);" onClick="addTag('[新闻标题]')" style="CURSOR: hand"><b>[新闻标题]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.PageTitleSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  433.   <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)"  name="PageTitleSetting" cols="50" rows="3" id="textarea6" style="width:100%;"><%=RsEditObj("PageTitleHeadSetting")%>[新闻标题]<%=RsEditObj("PageTitleFootSetting")%></textarea></td>
  434.     </tr>
  435.     <tr class="hback" > 
  436.       <td> <div align="center">新闻内容<font color="#ff0000">*</font></div></td>
  437.       <td> &nbsp;&nbsp;输入区域：
  438. <span onClick="if(document.Form.PagebodySetting.rows>2)document.Form.PagebodySetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  439. <span onClick="document.Form.PagebodySetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  440.   &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.PagebodySetting);" onClick="addTag('[新闻内容]')" style="CURSOR: hand"><b>[新闻内容]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.PagebodySetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  441.    <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)"  name="PagebodySetting" cols="50" rows="3" id="textarea8" style="width:100%;"><%=RsEditObj("PagebodyHeadSetting")%>[新闻内容]<%=RsEditObj("PagebodyFootSetting")%></textarea></td>
  442.     </tr>
  443.     <tr class="hback" > 
  444.       <td height="26" colspan="4"> <div align="center">
  445.           <input name="OtherSetType" type="radio" onClick="ChangeSetOption(0);" value="0" checked>
  446.           设置作者 
  447.           <input type="radio" name="OtherSetType" onClick="ChangeSetOption(1);" value="1">
  448.           设置来源 
  449.           <input type="radio" name="OtherSetType" onClick="ChangeSetOption(2);" value="2">
  450.           设置时间 
  451.   </div></td>
  452.     </tr>
  453.     <tr class="hback"  id="SetAuthor" style="display:;"> 
  454.       <td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  455.           <tr class="hback" >
  456.             <td height="26"> 
  457.               <div align="center">手动设置</div></td>
  458.             <td colspan="3"><input style="width:100%;" type="text" name="HandSetAuthor" value="<% = RsEditObj("HandSetAuthor") %>"></td>
  459.           </tr>
  460.           <tr class="hback" > 
  461.             <td width="15%"> 
  462.               <div align="center">作者</div></td>
  463.             <td colspan="3"> &nbsp;&nbsp;输入区域：
  464. <span onClick="if(document.Form.AuthorSetting.rows>2)document.Form.AuthorSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  465. <span onClick="document.Form.AuthorSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  466. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.AuthorSetting);" onClick="addTag('[作者]')" style="CURSOR: hand"><b>[作者]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.AuthorSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  467. <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)"  name="AuthorSetting" cols="50" rows="3" id="textarea9" style="width:100%;"><%=RsEditObj("AuthorHeadSetting")%>[作者]<%=RsEditObj("AuthorFootSetting")%></textarea></td>
  468.           </tr>
  469.         </table></td>
  470.     </tr>
  471.     <tr class="hback"  id="SetSource" style="display:none;"> 
  472.       <td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  473.           <tr class="hback" >
  474.             <td height="26">
  475. <div align="center">手动设置</div></td>
  476.             <td colspan="3"><input style="width:100%;" type="text" name="HandSetSource" value="<% = RsEditObj("HandSetSource") %>"></td>
  477.           </tr>
  478.   <tr class="hback" > 
  479.             <td width="15%"> 
  480.               <div align="center">来源</div></td>
  481.             <td colspan="3"> &nbsp;&nbsp;输入区域：
  482. <span onClick="if(document.Form.SourceSetting.rows>2)document.Form.SourceSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  483. <span onClick="document.Form.SourceSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  484. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.SourceSetting);" onClick="addTag('[来源]')" style="CURSOR: hand"><b>[来源]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.SourceSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  485.  <textarea   ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)" name="SourceSetting" cols="50" rows="3" id="textarea9a" style="width:100%;"><%=RsEditObj("SourceHeadSetting")%>[来源]<%=RsEditObj("SourceFootSetting")%></textarea></td>
  486.           </tr>
  487.         </table></td>
  488.     </tr>
  489.     <tr class="hback"  id="SetAddTime" style="display:none;"> 
  490.       <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  491.           <tr class="hback" >
  492.             <td height="26">
  493. <div align="center">手动设置</div></td>
  494.             <td colspan="3"><input style="width:100%;" type="text" name="HandSetAddDate" value="<% = RsEditObj("HandSetAddDate") %>"></td>
  495.           </tr>
  496.   <tr class="hback" > 
  497.             <td width="15%"> 
  498.               <div align="center">加入时间</div></td>
  499.             <td> &nbsp;&nbsp;输入区域：
  500. <span onClick="if(document.Form.AddDateSetting.rows>2)document.Form.AddDateSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  501. <span onClick="document.Form.AddDateSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  502. &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.AddDateSetting);" onClick="addTag('[加入时间]')" style="CURSOR: hand"><b>[加入时间]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.AddDateSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  503.  <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)"  name="AddDateSetting" cols="50" rows="3" id="textarea9" style="width:100%;"><%=RsEditObj("AddDateHeadSetting")%>[加入时间]<%=RsEditObj("AddDateFootSetting")%></textarea></td>
  504.           </tr>
  505.         </table></td>
  506.     </tr>
  507.     <tr class="hback" > 
  508.       <td height="26" colspan="4"> <div align="center">
  509.           <input name="OtherNewsType" <% if RsEditObj("OtherNewsType") = 0 then Response.Write("checked") %> type="radio" onClick="ChangeNewsSetOption(0);" value="0" checked>
  510.           不设置新闻分页 
  511.           <input type="radio" <% if RsEditObj("OtherNewsType") = 1 then Response.Write("checked") %> name="OtherNewsType" onClick="ChangeNewsSetOption(1);" value="1">
  512.           新闻标记分页
  513.           <input type="radio" <% if RsEditObj("OtherNewsType") = 2 then Response.Write("checked") %> name="OtherNewsType" onClick="ChangeNewsSetOption(2);" value="2">
  514.           新闻索引分页
  515.           <input type="radio" <% if RsEditObj("OtherNewsType") = 3 then Response.Write("checked") %> name="OtherNewsType" onClick="ChangeNewsSetOption(3);" value="3">
  516.           新闻手动分页
  517.   </div></td>
  518.     </tr>
  519.     <tr class="hback"  id="SetCutPage" style="display:none;"> 
  520.       <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  521. <tr class="hback" > 
  522.             <td width="15%"> 
  523.               <div align="center">分页新闻<br>(下一页)</div></td>
  524.       <td>  &nbsp;&nbsp;输入区域：
  525. <span onClick="if(document.Form.OtherNewsPageSetting.rows>2)document.Form.OtherNewsPageSetting.rows-=1" style='cursor:hand'><b>缩小</b></span>
  526. <span onClick="document.Form.OtherNewsPageSetting.rows+=1" style='cursor:hand'><b>扩大</b></span>
  527.   &nbsp;&nbsp;可用标签：<font onmouseover="getActiveText(document.Form.OtherNewsPageSetting);" onClick="addTag('[分页新闻]')" style="CURSOR: hand"><b>[分页新闻]</b></font>&nbsp;&nbsp;&nbsp;<font onmouseover="getActiveText(document.Form.OtherNewsPageSetting);" onClick="addTag('[变量]')" style="CURSOR: hand"><b>[变量]</b></font><br>
  528.   <textarea  ondblclick="getActiveText(this)" onClick="getActiveText(this)"  onchange="getActiveText(this)" name="OtherNewsPageSetting" cols="50" rows="3" id="textarea5" style="width:100%;"><%=RsEditObj("OtherNewsPageHeadSetting")%>[分页新闻]<%=RsEditObj("OtherNewsPageFootSetting")%></textarea></td>
  529.     </tr>
  530.         </table></td>
  531.     </tr>
  532.     <tr class="hback"  id="SetIndexCutPage" style="display:none;"> 
  533.       <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  534.           <tr class="hback" > 
  535.             <td width="15%"> 
  536.               <div align="center">索引规则 </div></td>
  537.             <td>
  538. &nbsp;&nbsp;输入区域：
  539. <span onClick="if(document.Form.IndexRule.rows>2)document.Form.IndexRule.rows-=1" style='cursor:hand'><b>缩小</b></span>
  540. <span onClick="document.Form.IndexRule.rows+=1" style='cursor:hand'><b>扩大</b></span><br>
  541. <textarea name="OtherNewsPageIndexSetting" rows="2" id="OtherNewsPageIndexSetting" style="width:100%;"><% = RsEditObj("OtherNewsPageIndexSetting") %></textarea></td>
  542.           </tr>
  543.           <tr class="hback" > 
  544.             <td height="26"> <div align="center">页码</div></td>
  545.             <td>页码开始： 
  546.               <input name="OtherNewsPageIndexSettingStartPageNum" type="text" id="OtherNewsPageIndexSettingStartPageNum" size="3" maxlength="8" value="<% = RsEditObj("OtherNewsPageIndexSettingStartPageNum") %>">
  547.               页码结束 
  548.               <input name="OtherNewsPageIndexSettingEndPageNum" type="text" id="OtherNewsPageIndexSettingEndPageNum" size="3" maxlength="8" value="<% = RsEditObj("OtherNewsPageIndexSettingEndPageNum") %>">
  549.               &nbsp&nbsp例:在索引规则中写http://.../20060203345_^$^.htm，其中^$^代表设定的页码</td>
  550.           </tr>
  551.         </table></td>
  552.     </tr>
  553. <tr class="hback"  id="SetHandCutPage" style="display:none;"> 
  554.       <td width="10%"> <div align="center">分页内容</div></td>
  555.       <td height="26">&nbsp;&nbsp;输入区域：<span onClick="if(document.Form.HandPageContent.rows>2)document.Form.HandPageContent.rows-=1" style='cursor:hand'><b>缩小</b></span><span onClick="document.Form.HandPageContent.rows+=1" style='cursor:hand'><b>扩大</b></span><textarea  name="OtherNewsPageIndexSettingHandPageContent" rows="6" id="OtherNewsPageIndexSettingHandPageContent" style="width:100%;"><% = RsEditObj("OtherNewsPageIndexSettingHandPageContent") %></textarea>
  556.   </td>
  557. </tr>
  558. </table>
  559. </form>
  560. <p><br><p><p>
  561. </body>
  562. </html>
  563. <%
  564. Set Conn = Nothing
  565. Set CollectConn = Nothing
  566. Set RsEditObj = Nothing
  567. %>
  568. <script language="JavaScript">
  569. function ChangeCutPara(Flag)
  570. {
  571. switch (Flag)
  572. {
  573. case 0 :
  574. document.all.TagCutPage.style.display='none';
  575. document.all.IndexCutPage.style.display='none';
  576. document.all.HandCutPage.style.display='none';
  577. document.all.ListContent.style.display='none';
  578. break;
  579. case 1 :
  580. document.all.TagCutPage.style.display='';
  581. document.all.IndexCutPage.style.display='none';
  582. document.all.HandCutPage.style.display='none';
  583. document.all.ListContent.style.display='none';
  584. break;
  585. case 2 :
  586. document.all.TagCutPage.style.display='none';
  587. document.all.IndexCutPage.style.display='';
  588. document.all.HandCutPage.style.display='none';
  589. document.all.ListContent.style.display='none';
  590. break;
  591. case 3 :
  592. document.all.TagCutPage.style.display='none';
  593. document.all.IndexCutPage.style.display='none';
  594. document.all.HandCutPage.style.display='';
  595. document.all.ListContent.style.display='none';
  596. break;
  597. case 4 :
  598. document.all.TagCutPage.style.display='none';
  599. document.all.IndexCutPage.style.display='none';
  600. document.all.HandCutPage.style.display='none';
  601. document.all.ListContent.style.display='';
  602. break;
  603. default :
  604. document.all.TagCutPage.style.display='none';
  605. document.all.IndexCutPage.style.display='none';
  606. document.all.HandCutPage.style.display='none';
  607. document.all.ListContent.style.display='none';
  608. break;
  609. }
  610. }
  611. function ChangeSetOption(Flag)
  612. {
  613. switch (Flag)
  614. {
  615. case 0 :
  616. document.all.SetAuthor.style.display='';
  617. document.all.SetSource.style.display='none';
  618. document.all.SetAddTime.style.display='none';
  619. break;
  620. case 1 :
  621. document.all.SetAuthor.style.display='none';
  622. document.all.SetSource.style.display='';
  623. document.all.SetAddTime.style.display='none';
  624. break;
  625. case 2 :
  626. document.all.SetAuthor.style.display='none';
  627. document.all.SetSource.style.display='none';
  628. document.all.SetAddTime.style.display='';
  629. break;
  630. case 999 :
  631. document.all.SetAuthor.style.display='none';
  632. document.all.SetSource.style.display='none';
  633. document.all.SetAddTime.style.display='none';
  634. break;
  635. default :
  636. document.all.SetAuthor.style.display='none';
  637. document.all.SetSource.style.display='none';
  638. document.all.SetAddTime.style.display='none';
  639. break;
  640. }
  641. }
  643. function ChangeNewsSetOption(f_Flag)
  644. {
  645. switch (f_Flag)
  646. {
  647. case 0 :
  648. document.all.SetCutPage.style.display='none';
  649. document.all.SetIndexCutPage.style.display='none';
  650. document.all.SetHandCutPage.style.display='none';
  651. break;
  652. case 1 :
  653. document.all.SetCutPage.style.display='';
  654. document.all.SetIndexCutPage.style.display='none';
  655. document.all.SetHandCutPage.style.display='none';
  656. break;
  657. case 2 :
  658. document.all.SetCutPage.style.display='none';
  659. document.all.SetIndexCutPage.style.display='';
  660. document.all.SetHandCutPage.style.display='none';
  661. break;
  662. case 3 :
  663. document.all.SetCutPage.style.display='none';
  664. document.all.SetIndexCutPage.style.display='none';
  665. document.all.SetHandCutPage.style.display='';
  666. break;
  667. default :
  668. document.all.SetCutPage.style.display='none';
  669. document.all.SetIndexCutPage.style.display='none';
  670. document.all.SetHandCutPage.style.display='none';
  671. break;
  672. }
  673. }   
  675. currObj = "uuuu";
  676. function getActiveText(obj)
  677. {
  678. obj.focus();
  679. currObj = obj;
  680. }
  682. function addTag(code)
  683. {
  684. addText(code);
  685. }
  687. function addText(ibTag)
  688. {
  689. var isClose = false;
  690. var obj_ta = currObj;
  691. //alert("ok");
  692. if (obj_ta.isTextEdit)
  693. {
  694. //alert("nooooo");
  695. obj_ta.focus();
  696. var sel = document.selection;
  697. var rng = sel.createRange();
  698. rng.colapse;
  700. if((sel.type == "Text" || sel.type == "None") && rng != null)
  701. {
  702. rng.text = ibTag;
  703. }
  705. obj_ta.focus();
  707. return isClose;
  708. }
  709. else
  710. return false;
  711. }
  712. -->
  713. </script>