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

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

数据库编程

开发平台：

ASP/ASPX

SysParaSet.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="lib/cls_main.asp" -->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/ns_Function.asp" -->
  6. <!--#include file="../../FS_Inc/Function.asp" -->
  7. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
  8. 'FileNameRuleArray:新闻文件静态文件生成规则,用数组的形式将各个参数分开
  9. 'IndexPageArray:首页文件名及扩展名,用数组的形式将各个参数分开,1:首页名；2扩展名
  10. 'RefreshFileArray:系统多少分钟自动刷新首页,系统多少分钟刷新分类,用数组的形式将各两个参数分开
  11. Dim Conn,Fs_News,FileNameRuleArray,sRootDir,str_CurrPath
  12. MF_Default_Conn
  13. MF_Session_TF
  14. if not MF_Check_Pop_TF("NS_Param") then Err_Show
  15. if not MF_Check_Pop_TF("NS049") then Err_Show
  16. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  17. if Session("Admin_Is_Super") = 1 then
  18. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  19. Else
  20. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  21. End if
  23. Set Fs_News=New Cls_news
  24. Fs_News.GetSysParam()
  25. if err.number>0 then
  26. Response.Redirect("lib/error.asp?ErrCodes=<li>请先初试化数据库</li>")
  27. Response.End()
  28. end if
  29. FileNameRuleArray=split(Fs_News.fileNameRule,"$")
  30. %>
  31. <html xmlns="http://www.w3.org/1999/xhtml">
  32. <HEAD>
  33. <TITLE>FoosunCMS</TITLE>
  34. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  35. <style type="text/css">
  36. <!--
  37. .style1 {font-weight: bold}
  38. .style2 {color: #FF0000}
  39. -->
  40. </style>
  41. </HEAD>
  42. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  43. <BODY>
  44. <script language="JavaScript" src="js/CheckJs.js" type="text/JavaScript"></script>
  45. <script language="JavaScript" src="js/Public.js" type="text/javascript"></script>
  46. <table width="98%" border="0" cellspacing="0" cellpadding="0">
  47.   <tr>
  48.     <td height="1"></td>
  49.   </tr>
  50. </table> 
  51. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  52.   <form action="SetSysParaAction.asp?Act=SetSysPara_Action" method="post" name="SysParaForm" id="SysParaForm">
  53.     <tr> 
  54.       <td align="left" colspan="2" class="xingmu"><a href="#" onmouseover="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by 刘南兵 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong><% = Fs_news.allInfotitle %>系统参数设置</strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="../../help?Lable=News_Manage" target="_blank" style="cursor:help;'" class="sd">帮助</a></td>
  55.     </tr>
  56.     <tr class="hback"> 
  57.       <td width="17%" align="right"><% = Fs_news.allInfotitle %>系统站点标题：</td>
  58.       <td width="83%"><input name="txt_SiteName" type="text" id="txt_SiteName" size="50" value="<%=Fs_News.siteName%>"> 
  59.         <span class="style2">*</span><span id="span_SiteName_Alert"></span></td>
  60.     </tr>
  61.     <tr class="hback"> 
  62.       <td align="right">站点关键字： </td>
  63.       <td><textarea name="txt_KeyWords"  style="width:80%" rows="5" id="txt_KeyWords" onKeyUp="ReplaceDot('txt_KeyWords')"><%=Fs_News.keywords%></textarea></td>
  64.     </tr>
  65.     <tr class="hback"> 
  66.       <td align="right"> <% = Fs_news.allInfotitle %>系统前台目录：</td>
  67.       <td><input name="txt_NewsDir" type="text" id="txt_NewsDir" value="<%=Fs_News.newsDir%>" size="50"> 
  68.         <span class="style2">*</span><span id="span_NewsDir_Alert"></span></td>
  69.     </tr>
  70.     <tr class="hback"> 
  71.       <td align="right">启用二级域名：</td>
  72.       <td>
  73. <input name="rad_IsDomain" type="text" id="rad_IsDomain" value="<%=Fs_News.isDomain%>" size="50">
  74.         <br>
  75.         格式：News.foosun.cn，不带&quot;http://&quot;或者虚拟目录，后面不带&quot;/&quot;.如果不开启二级域名，空保持为空</td>
  76.     </tr>
  77.     <tr class="hback"> 
  78.       <td align="right"> <% = Fs_news.allInfotitle %>目录删除设置：</td>
  79.       <td align="left"> <input type="radio" name="rad_ReycleTF" value="1" <%if Fs_News.reycleTf=1 then Response.Write("checked")%>>
  80.         转入回收站 
  81.         <input type="radio" name="rad_ReycleTF" value="0" <%if Fs_News.reycleTf=0 then Response.Write("checked")%>>
  82.         彻底删除 </td>
  83.     </tr>
  84.     <tr class="hback"> 
  85.       <td align="right"><% = Fs_news.allInfotitle %>文件名前缀：</td>
  86.       <td> <input name="txt_FileNameRule_Element_Prefix" type="text" id="txt_FileNameRule_Element_Prefix" size="50" value="<%=FileNameRuleArray(0)%>"></td>
  87.     </tr>
  88.     <tr class="hback"> 
  89.       <td align="right"><% = Fs_news.allInfotitle %>文件名参数：</td>
  90.       <td> <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="Y" <%if instr(FileNameRuleArray(1),"Y")>0 then Response.Write("checked")%>>
  91.         年 
  92.         <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="M" <%if instr(FileNameRuleArray(1),"M")>0 then Response.Write("checked")%>>
  93.         月 
  94.         <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="D" <%if instr(FileNameRuleArray(1),"D")>0 then Response.Write("checked")%>>
  95.         日 
  96.         <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="H" <%if instr(FileNameRuleArray(1),"H")>0 then Response.Write("checked")%>>
  97.         时 
  98.         <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="I" <%if instr(FileNameRuleArray(1),"I")>0 then Response.Write("checked")%>>
  99.         分 
  100.         <input name="chk_FileNameRule_Element" type="checkbox" id="chk_FileNameRule_Element" value="S" <%if instr(FileNameRuleArray(1),"S")>0 then Response.Write("checked")%>>
  101.         秒 <br> <input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="2" <%if FileNameRuleArray(2)="2" then Response.Write("checked")%>>
  102.         2位随机数 
  103.         <input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="3" <%if FileNameRuleArray(2)="3" then Response.Write("checked")%>>
  104.         3位随机数 
  105.         <input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="4" <%if FileNameRuleArray(2)="4" then Response.Write("checked")%>>
  106.         4位随机数 
  107.         <input type="radio" name="rad_FileNameRule_Rnd" id="rad_FileNameRule_Rnd" value="5" <%if FileNameRuleArray(2)="5" then Response.Write("checked")%>>
  108.         5位随机数 
  109.         <input name="chk_FileNameRule_UseWord" type="checkbox" id="chk_FileNameRule_UseWord" value="1" <%if ubound(FileNameRuleArray)>=3 then if FileNameRuleArray(3)="1" then Response.Write("checked")%>>
  110.         是否组合字母 </td>
  111.     </tr>
  112.     <tr class="hback"> 
  113.       <td align="right">分割符号：</td>
  114.       <td> <input name="txt_FileNameRule_Element_Separator" type="text" id="txt_FileNameRule_Element_Separator" size="50" value="<%=FileNameRuleArray(4)%>"></td>
  115.     </tr>
  116.     <tr class="hback"> 
  117.       <td align="right">是否使用<% = Fs_news.allInfotitle %>ID：</td>
  118.       <td> <input type="radio" name="rad_FileNameRule_UseNewsID" value="1" <%if ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="1" then Response.Write("checked")%> onClick="clearAll('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
  119.         是 
  120.         <input type="radio" name="rad_FileNameRule_UseNewsID" value="0" <%if Ubound(FileNameRuleArray)>=5 then if FileNameRuleArray(5)="0" then Response.Write("checked")%> onClick="checkIt('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
  121.         否 </td>
  122.     </tr>
  123.     <tr class="hback"> 
  124.       <td align="right">是否使用NewsID</td>
  125.       <td> <input type="radio" name="rad_FileNameRule_NewsID" value="1" <%if ubound(FileNameRuleArray)>=6 then if FileNameRuleArray(6)="1" then Response.Write("checked")%> onClick="clearAll('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
  126.         是 
  127.         <input type="radio" name="rad_FileNameRule_NewsID" value="0" <%if Ubound(FileNameRuleArray)>=6 then if FileNameRuleArray(6)="0" then Response.Write("checked")%> onClick="checkIt('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')">
  128.         否 </td>
  129.     </tr>
  130.     <tr class="hback"> 
  131.       <td align="right">目录生成规则：</td>
  132.       <td> <input name="rad_FileDirRule" type="radio" value="0" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=0 then Response.Write("checked")%>>
  133.         规则1 
  134.         <input type="radio" name="rad_FileDirRule" value="1" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=1 then Response.Write("checked")%>>
  135.         规则2 
  136.         <input type="radio" name="rad_FileDirRule" value="2" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=2 then Response.Write("checked")%>>
  137.         规则3 
  138.         <input type="radio" name="rad_FileDirRule" value="3" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=3 then Response.Write("checked")%>>
  139.         规则4 
  140.         <input type="radio" name="rad_FileDirRule" value="4" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=4 then Response.Write("checked")%>>
  141.         规则5 
  142.         <input type="radio" name="rad_FileDirRule" value="5" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=5 then Response.Write("checked")%>>
  143.         规则6 
  144.         <input type="radio" name="rad_FileDirRule" value="6" onClick="show_FileDirRule_Detail(this.value)" <%if Fs_News.fileDirRule=6 then Response.Write("checked")%>>
  145.         规则7 &nbsp;&nbsp;<span id="span_FileDirRule" style="color:blue"></span>      </td>
  146.     </tr>
  147.     <tr class="hback"> 
  148.       <td align="right">首页生成规则：</td>
  149.       <td> <input name="rad_ClassSaveType" type="radio" value="0" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=0 then Response.Write("checked")%>>
  150.         规则1 
  151.         <input type="radio" name="rad_ClassSaveType" value="1" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=1 then Response.Write("checked")%>>
  152.         规则2 
  153.         <input type="radio" name="rad_ClassSaveType" value="2" onClick="show_ClassSaveType_Detail(this.value)" <%if Fs_News.classSaveType=2 then Response.Write("checked")%>>
  154.         规则3 &nbsp;&nbsp;<span id="span_ClassSaveType" style="color:blue"></span>      </td>
  155.     </tr>
  156.     <tr class="hback"> 
  157.       <td align="right">首页文件名：</td>
  158.       <td><input name="txt_IndexPage_Name" type="text" id="txt_IndexPage_Name" size="50" value="<%=Fs_News.indexPage%>"> 
  159.         <span class="style2">*</span><span id="span_IndexPage_Name_Alert"></span></td>
  160.     </tr>
  161.     <tr class="hback"> 
  162.       <td align="right"><% = Fs_news.allInfotitle %>站文件扩展名：</td>
  163.       <td>
  164.         <select name="rad_FileExtName" id="rad_FileExtName">
  165.           <option value="0" <%if Fs_News.fileExtName=0 then Response.Write("selected")%>>html</option>
  166.           <option value="1" <%if Fs_News.fileExtName=1 then Response.Write("selected")%>>htm</option>
  167.           <option value="2" <%if Fs_News.fileExtName=2 then Response.Write("selected")%>>shtml</option>
  168.           <option value="3" <%if Fs_News.fileExtName=3 then Response.Write("selected")%>>shtm</option>
  169.           <option value="4" <%if Fs_News.fileExtName=4 then Response.Write("selected")%>>asp</option>
  170.         </select>        </td>
  171.     </tr>
  172.     <tr class="hback"> 
  173.       <td align="right">允许<% = Fs_news.allInfotitle %>发布：</td>
  174.       <td> <input name="rad_isOpen" type="radio" value="1" <%if Fs_News.isOpen=1 then Response.Write("checked")%>>
  175.         是 
  176.         <input type="radio" name="rad_isOpen" value="0" <%if Fs_News.isOpen=0 then Response.Write("checked")%>>
  177.         否 </td>
  178.     </tr>
  179.     <tr class="hback"> 
  180.       <td align="right">首页模板地址：</td>
  181.       <td><input name="txt_IndexTemplet" type="text" id="txt_IndexTemplet" size="50" value="<%=Fs_News.indexTemplet%>"> 
  182.         <input name="bnt_NewsTemplet" type="button" id="bnt_NewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.SysParaForm.txt_IndexTemplet);document.SysParaForm.txt_IndexTemplet.focus();"> 
  183.         <span class="style2">*</span><span id="span_IndexTemplet_Alert"></span></td>
  184.     </tr>
  185.     <tr class="hback"> 
  186.       <td align="right">连接路径：</td>
  187.       <td> <input type="radio" name="rad_LinkType" value="1" <%if Fs_News.linkType=1 then Response.Write("checked")%>>
  188.         绝对路径 
  189.         <input name="rad_LinkType" type="radio" value="0" <%if Fs_News.linkType=0 then Response.Write("checked")%>>
  190.         相对路径 </td>
  191.     </tr>
  192.     <tr class="hback"> 
  193.       <td align="right">添加<% = Fs_news.allInfotitle %>是否审核：</td>
  194.       <td> <input type="radio" name="rad_isCheck" value="1" <%if Fs_News.isCheck=1 then Response.Write("checked")%>>
  195.         是 
  196.         <input name="rad_isCheck" type="radio" value="0" <%if Fs_News.isCheck=0 then Response.Write("checked")%>>
  197.         否 </td>
  198.     </tr>
  199.     <tr class="hback" style="display:none;"> 
  200.       <td align="right"><% = Fs_news.allInfotitle %>评论是否审核：</td>
  201.       <td> <input type="radio" name="rad_isReviewCheck" value="1" <%if Fs_News.isReviewCheck=1 then Response.Write("checked")%>>
  202.         是 
  203.         <input name="rad_isReviewCheck" type="radio" value="0" <%if Fs_News.isReviewCheck=0 then Response.Write("checked")%>>
  204.         否 </td>
  205.     </tr>
  206.     <tr class="hback"> 
  207.       <td align="right">是否审核投稿：</td>
  208.       <td> <input name="rad_isConstrCheck" type="radio" value="1" <%if Fs_News.isConstrCheck=1 then Response.Write("checked")%>>
  209.         是 
  210.         <input type="radio" name="rad_isConstrCheck" value="0" <%if Fs_News.isConstrCheck=0 then Response.Write("checked")%>>
  211.         否 </td>
  212.     </tr>
  213.     <tr class="hback"> 
  214.       <td align="right"><% = Fs_news.allInfotitle %>添加方式：</td>
  215.       <td> <input type="radio" name="rad_AddNewsType" value="1" <%if Fs_News.addNewsType=1 then Response.Write("checked")%>>
  216.         高级方式 
  217.         <input name="rad_AddNewsType" type="radio" value="0" <%if Fs_News.addNewsType=0 then Response.Write("checked")%>>
  218.         简洁方式 </td>
  219.     </tr>
  220.     <tr class="hback" style="display:none"> 
  221.       <td align="right">统计替换字符：</td>
  222.       <td><input name="txt_AllInfotitle" type="text" id="txt_AllInfotitle" value="<%=Fs_News.allInfotitle%>" size="50" ></td>
  223.     </tr>
  225.     <tr class="hback"> 
  226.       <td align="right">是否开启内部连接：</td>
  227.       <td> <input name="InsideLink" type="radio" value="1" <%if Fs_News.InsideLink=1 then Response.Write("checked")%>>
  228.         是 
  229.         <input type="radio" name="InsideLink" value="0" <%if Fs_News.InsideLink=0 then Response.Write("checked")%>>
  230.         否 </td>
  231.     </tr>
  232.     <tr class="hback"> 
  233.       <td colspan="2" align="right" class="xingmu"><div align="left">RSS聚合</div></td>
  234.     </tr>
  235.     <tr class="hback"> 
  236.       <td align="right">开启RSS</td>
  237.       <td><input name="RSSTF" type="checkbox" id="RSSTF" value="1" <%if Fs_News.RSSTF=1 then response.Write("checked")%>></td>
  238.     </tr>
  239.     <tr class="hback"> 
  240.       <td align="right"><div align="right">显示最新聚合多少条</div></td>
  241.       <td><input name="rssNumber" type="text" id="rssNumber" value="<% = Fs_News.rssNumber%>" onChange="if(/D/.test(this.value)){alert('只能输入数字');this.value='';}"></td>
  242.     </tr>
  243.     <tr class="hback"> 
  244.       <td align="right"><div align="right">站点RSS描述</div></td>
  245.       <td><textarea name="rssdescript"  style="width:80%" rows="5" id="rssdescript" ><% = Fs_News.rssdescript%></textarea></td>
  246.     </tr>
  247.     <tr class="hback"> 
  248.       <td align="right"><div align="right">调用图片地址</div></td>
  249.       <td><input name="RSSPIC" type="text" id="RSSPIC" size="40" value="<% = Fs_News.RSSPIC%>"> <input type="button" name="PPPChoose"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.SysParaForm.RSSPIC);"></td>
  250.     </tr>
  251.     <tr class="hback"> 
  252.       <td align="right"><div align="right">正文字数</div></td>
  253.       <td><input name="rssContentNumber" type="text" id="rssContentNumber" value="<% = Fs_News.rssContentNumber%>" onChange="if(/D/.test(this.value)){alert('只能输入数字');this.value='';}"></td>
  254.     </tr>
  255.     <tr class="hback"> 
  256.       <td align="right">&nbsp;</td>
  257.       <td><input type="Button" name="btn_SetSysParam" value=" 保存 " onClick="SetSysParam()"/> 
  258.         <input type="reset" name="sub_rest" value=" 重置 " /></td>
  259.     </tr>
  260.   </form>
  261. </table>
  262. <script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script> 
  263. </body>
  264. <script language="javascript">
  265. function SetSysParam()
  266. {
  267. var flag1=isEmpty("txt_SiteName","span_SiteName_Alert");
  268. var flag2=isEmpty("txt_NewsDir","span_NewsDir_Alert");
  269. var flag3=isEmpty("txt_IndexPage_Name","span_IndexPage_Name_Alert");
  270. var flag4=isEmpty("txt_IndexTemplet","span_IndexTemplet_Alert");
  271. if(flag1&&flag2&&flag3&&flag4)
  272. {
  273. document.SysParaForm.submit();
  274. }
  275. }
  277. show_FileDirRule_Detail(<%=Fs_News.fileDirRule%>)
  278. //显示相应目录生成规则的格式
  279. function show_FileDirRule_Detail(param)
  280. {
  281. if(isNaN(param))
  282. {
  283. return;
  284. }
  285. switch(parseInt(param))
  286. {
  287. case 0:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/2006-6-9 ]";break
  288. case 1:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/2006/6/9/ ]";break
  289. case 2:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/2006/6-9/ ]";break
  290. case 3:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/2006-6/9/ ]";break
  291. case 4:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/文件名 ]";break
  292. case 5:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/2006/6/ ]";break
  293. case 6:document.getElementById("span_FileDirRule").innerHTML="格式：[ 栏目英文/200669/ ]";break
  295. }
  296. }
  297. show_ClassSaveType_Detail(<%=Fs_News.classSaveType%>)
  298. function show_ClassSaveType_Detail(param)
  299. {
  300. if(isNaN(param))
  301. return;
  302. switch(parseInt(param))
  303. {
  304. case 0:document.getElementById("span_ClassSaveType").innerHTML="格式：[ 栏目英文/index.html ]";break
  305. case 1:document.getElementById("span_ClassSaveType").innerHTML="格式：[ 栏目英文/栏目英文.html ]";break
  306. case 2:document.getElementById("span_ClassSaveType").innerHTML="格式：[ 栏目英文.html ]";break
  307. }
  308. }
  309. function clearAll(radio,check)
  310. {
  311. var RadioArray=document.all(radio);
  312. for(var i=0;i<RadioArray.length;i++)
  313. {
  314. RadioArray[i].checked=false;
  315. }
  316. document.all(check).checked=false;
  317. }
  318. checkIt('rad_FileNameRule_Rnd','chk_FileNameRule_UseWord')
  319. function checkIt(radio,check)
  320. {
  321. var RadioArray=document.all(radio);
  322. var checkedTF=false;
  323. for(var i=0;i<RadioArray.length;i++)
  324. {
  325. if("<%=FileNameRuleArray(2)%>"==(2+i).toString())
  326. RadioArray[i].checked=true;
  327. }
  328. if("<%=FileNameRuleArray(3)%>"=="1")
  329. document.all(check).checked=true;
  330. for(var i=0;i<RadioArray.length;i++)
  331. {
  332. if(RadioArray[i].checked)
  333. {
  334. checkedTF=true;
  335. }
  336. }
  337. if(!checkedTF)RadioArray[2].checked=true;
  338. }
  339. <%
  340. Conn.close
  341. set Conn=nothing
  342. Set Fs_News=nothing
  343. %>
  344. </script>
  345. </html>
  346. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->