<!--#include file="Cls_JS.asp" -->
<html>
<head>
<link href="../Inc/ModeWindow.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自由JS添加</title>
</head>
<script src="../JS/PublicJS.js" language="JavaScript"></script>
<body leftmargin="0" topmargin="0" >
<form action="" method="post" name="JSForm"> 
  <table width="100%" border="0" cellspacing="5" cellpadding="0">
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td width="48%" height="15">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td width="4%">&nbsp;</td>
      <td width="11%">名&nbsp;&nbsp;&nbsp;&nbsp;称</td>
      <td><input name="CName" type="text" id="CName" value="<%=request("CName")%>" style="width:90%" onFocus="ShowTitle('JS的中文名称，便于后台查阅和管理，请不要超过25个字符！');" onBlur="ShowTitle('');"> 
      </td>
      <td width="37%"><div align="center"><font color="#0000FF">样式预览</font></div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>英文名称</td>
      <td><input name="EName" type="text" id="EName" value="<%=request("EName")%>" style="width:90%" onFocus="ShowTitle('JS的英文名称，用于前台调用，请不要超过50个字符且不能与已经存在的JS重名！');" onBlur="ShowTitle('');">
        </td>
      <td rowspan="8" align="center" valign="middle" id="PreviewArea"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>类&nbsp;&nbsp;&nbsp;&nbsp;型</td>
      <td><input id="TypeW" name="Type" type="radio" value="0" <%if request("Type")="" or request("Type")="0" then response.write("checked") end if%> onclick="TypeChoose();ChoosePic();" onFocus="ShowTitle('JS类型（文字）选择！');" onBlur="ShowTitle('');">
        文字 
        <input id="TypeP" type="radio" name="Type" value="1" <%if request("Type")="1" then response.write("checked") end if%> onclick="TypeChoose();ChoosePic();" onFocus="ShowTitle('JS类型（图片）选择！');" onBlur="ShowTitle('');">
        图片</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>文字样式</td>
      <td><select name="Manner" id="MannerW" style="width:35.5% " onFocus="ShowTitle('文字JS样式选择，上面有此样式的预览！');" onBlur="ShowTitle('');" onChange="ChoosePic();">
          <option value="1" <%if request("Manner")="1" then response.write("selected") end if%>>样式A</option>
          <option value="2" <%if request("Manner")="2" then response.write("selected") end if%>>样式B</option>
          <option value="3" <%if request("Manner")="3" then response.write("selected") end if%>>样式C</option>
          <option value="4" <%if request("Manner")="4" then response.write("selected") end if%>>样式D</option> 
          <option value="5" <%if request("Manner")="5" then response.write("selected") end if%>>样式E</option>
        </select>
        图片样式 
        <select name="Manner" id="MannerP" style="width:35.5% " disabled onFocus="ShowTitle('图片JS样式选择，上面有此样式的预览！');" onBlur="ShowTitle('');" onChange="ChoosePic();">
          <option value="6" <%if request("Manner")="6" then response.write("selected") end if%>>样式A</option>
          <option value="7" <%if request("Manner")="7" then response.write("selected") end if%>>样式B</option>
          <option value="8" <%if request("Manner")="8" then response.write("selected") end if%>>样式C</option>
          <option value="9" <%if request("Manner")="9" then response.write("selected") end if%>>样式D</option>
          <option value="10" <%if request("Manner")="10" then response.write("selected") end if%>>样式E</option>
          <option value="11" <%if request("Manner")="11" then response.write("selected") end if%>>样式F</option>
          <option value="12" <%if request("Manner")="12" then response.write("selected") end if%>>样式G</option>
          <option value="13" <%if request("Manner")="13" then response.write("selected") end if%>>样式H</option>
          <option value="14" <%if request("Manner")="14" then response.write("selected") end if%>>样式I</option>
          <option value="15" <%if request("Manner")="15" then response.write("selected") end if%>>样式J</option>
          <option value="16" <%if request("Manner")="16" then response.write("selected") end if%>>样式K</option>
	  </select></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>新闻条数</td>
      <td><input name="NewsNum" type="text" id="NewsNum" value="<%if request("NewsNum")<>"" then response.write(request("NewsNum")) else response.write("5") end if%>" onFocus="ShowTitle('此JS允许调用的新闻条数！');" onBlur="ShowTitle('');" style="width:35.5% ">
        并排条数
        <input name="RowNum" type="text" id="RowNum" onFocus="ShowTitle('此项设置JS在每行内显示的新闻条数，请务必不要置为‘0’！');" onBlur="ShowTitle('');" value="<%if request("RowNum")<>"" then response.write(request("RowNum")) else response.write("2") end if%>" style="width:35.5% "></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>标题样式</td>
      <td><input name="TitleCSS" type="text" id="TitleCSS" onFocus="ShowTitle('新闻标题的CSS样式表。请直接输入样式名称。如果不选用此项设置，请置空！');" onBlur="ShowTitle('');" value="<%=request("TitleCSS")%>" style="width:35.5% ">
        标题字数
        <input name="NewsTitleNum" type="text" id="NewsTitleNum" value="<%if request("NewsTitleNum")<>"" then response.write(request("NewsTitleNum")) else response.write("5") end if%>" onFocus="ShowTitle('每条新闻的标题显示字数！');" onBlur="ShowTitle('');" style="width:35.5% "></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>内容样式</td>
      <td><input name="ContentCSS" type="text" id="ContentCSS" onFocus="ShowTitle('新闻内容的CSS样式表。请直接输入样式名称。如果不选用此项设置，请置空！');" onBlur="ShowTitle('');" value="<%=request("ContentCSS")%>" style="width:35.5% ">
        内容字数
        <input name="ContentNum" type="text" id="ContentNum" onFocus="ShowTitle('为需要显示新闻内容的样式设置每条新闻的内容显示字数！');" onBlur="ShowTitle('');" value="<%if request("ContentNum")<>"" then response.write(request("ContentNum")) else response.write("30") end if%>" style="width:35.5% "></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>背景样式</td>
      <td><input name="BackCSS" type="text" id="BackCSS" value="<%=request("BackCSS")%>" size="14" onFocus="ShowTitle('整体JS的背景样式（表格样式），请直接输入样式名称即可。如果不选用此项设置，请置空！');" onBlur="ShowTitle('');">
        更多链接
        <select name="MoreContent" id="MoreContent" style="width:35.5% " onFocus="ShowTitle('此项为有新闻内容的样式在其右下角加一链接到该新闻页的链接，如果不显示此链接，请选择“不显示”！');" onBlur="ShowTitle('');">
          <option value="1" <%If Request("MoreContent")=1 then Response.Write("selected") %>>显示</option>
          <option value="0" <%If Request("MoreContent")=0 then Response.Write("selected") %>>不显示</option>
        </select></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>链接字样</td>
      <td><input name="LinkWord" type="text" id="LinkWord" onFocus="ShowTitle('为需要显示新闻链接的样式设置链接字样，可以是图片地址，如果是图片地址，请用<br>‘＜img src=../img/1.gif border=0＞’样式，其中‘src=’后为图片路径，‘border=0’为图片无边框！');" onBlur="ShowTitle('');" value="<%=Request("LinkWord")%>" size="14">
链接样式
  <input name="LinkCSS" type="text" id="LinkCSS" onFocus="ShowTitle('为链接字样选择CSS样式，直接输入CSS样式名称即可！');" onBlur="ShowTitle('');" value="<%=Request("LinkCSS")%>" size="14"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>新闻日期</td>
      <td><select name="ShowTimeTF" id="ShowTimeTF" style="width:35.5%" onChange="ChooseDate(this.value);" onFocus="ShowTitle('此项设置在新闻标题后面是否显示本条新闻的更新时间！');" onBlur="ShowTitle('');">
        <option value="1" <%If Request("ShowTimeTF")=1 then Response.Write("selected")%>>调用</option>
        <option value="0" <%If Request("ShowTimeTF")=0 then Response.Write("selected")%>>不调用</option>
      </select>
        新闻行距
      <input name="RowSpace" type="text" id="RowSpace" value="<%=Request("RowSpace")%>" size="14" onFocus="ShowTitle('此项设置上下两条新闻之间的行距，请注意输入数值！');" onBlur="ShowTitle('');"></td>
      <td><hr style="width:100%"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>类型选择</td>
      <td><select name="DateType" id="DateType" style="width:35%" onFocus="ShowTitle('日期调用样式,默认为X月X日！');" onBlur="ShowTitle('');">
        <option value="1" <%if Request("DateType") = "1" then Response.Write("selected") end if%>><%=Year(Now)&"-"&Month(Now)&"-"&Day(Now)%></option>
        <option value="2" <%if Request("DateType") = "2" then Response.Write("selected") end if%>><%=Year(Now)&"."&Month(Now)&"."&Day(Now)%></option>
        <option value="3" <%if Request("DateType") = "3" then Response.Write("selected") end if%>><%=Year(Now)&"/"&Month(Now)&"/"&Day(Now)%></option>
        <option value="4" <%if Request("DateType") = "4" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)&"/"&Year(Now)%></option>
        <option value="5" <%if Request("DateType") = "5" then Response.Write("selected") end if%>><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
        <option value="6" <%if Request("DateType") = "6" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
        <option value="7" <%if Request("DateType") = "7" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
        <option value="8" <%if Request("DateType") = "8" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)%></option>
        <option value="9" <%if Request("DateType") = "9" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)%></option>
        <option value="10" <%if Request("DateType") = "10" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)%></option>
        <option value="11" <%if Request("DateType") = "11" then Response.Write("selected") end if%>><%=Month(Now)&"月"&Day(Now)&"日"%></option>
        <option value="12" <%if Request("DateType") = "12" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"时"%></option>
        <option value="13" <%if Request("DateType") = "13" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"点"%></option>
        <option value="14" <%if Request("DateType") = "14" then Response.Write("selected") end if%>><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
        <option value="15" <%if Request("DateType") = "15" then Response.Write("selected") end if%>><%=Hour(Now)&":"&Minute(Now)%></option>
        <option value="16" <%if Request("DateType") = "16" then Response.Write("selected") end if%>><%=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"%></option>
      </select>
      日期样式
      <input name="DateCSS" type="text" id="DateCSS" value="<%=request("DateCSS")%>" size="14" onFocus="ShowTitle('日期字体的CSS样式。直接输入样式名称即可！');" onBlur="ShowTitle('');"></td>
      <td rowspan="9" valign="top" id="TempTip"><font color=red>提示：</font></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>导航图片</td>
      <td><input name="NaviPic" type="text" id="NaviPic" onFocus="ShowTitle('新闻标题前面的导航图标，可以是“·”等字符，也可以是图片地址，如果是图片地址，请用<br>‘＜img src=../img/1.gif border=0＞’样式，其中‘src=’后为图片路径，‘border=0’为图片无边框！');" onBlur="ShowTitle('');" value="<%=request("NaviPic")%>" style="width:35.5% ">
新开窗口
  <select name="OpenMode" id="OpenMode" style="width:35.5% ">
    <option value="1" <%If Request("OpenMode")=1 then Response.Write("selected")%>>是</option>
    <option value="0" <%If Request("OpenMode")=0 then Response.Write("selected")%>>否</option>
  </select></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>行间图片</td>
      <td><input name="RowBettween" type="text" id="RowBettween" size="26" value="<%=request("RowBettween")%>" onFocus="ShowTitle('此项设置上下两条新闻之间的间隔图片，请点击“选择图片”按钮进行设置，亦可为空！');" onBlur="ShowTitle('');">
  <input id="RowBettweenButton" type="button" name="Submit34" value="选择图片" onClick="OpenWindowAndSetValue('../inc/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.RowBettween);"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>图片地址</td>
      <td><input name="PicPath" type="text" id="PicPath" value="<%=request("PicPath")%>" size="26" disabled onFocus="ShowTitle('为仅需一张图片的样式设置图片，请点击‘选择图片’按钮选择图片！');" onBlur="ShowTitle('');"> 
        <input id="PicChooseButton" type="button" name="Submit34" value="选择图片" disabled onClick="OpenWindowAndSetValue('../inc/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,300,window,document.JSForm.PicPath);"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>图片宽度</td>
      <td> <input name="PicWidth" type="text" disabled id="PicWidth" onFocus="ShowTitle('此项是为设置图片类型的JS设置图片的宽度参数！');" onBlur="ShowTitle('');" value="<%if request("PicWidth")<>"" then response.write(request("PicWidth")) else response.write("60") end if%>" size="14">
        高&nbsp;&nbsp;&nbsp;&nbsp;度 
        <input name="PicHeight" type="text" disabled id="PicHeight" onFocus="ShowTitle('此项是为设置图片类型的JS设置图片的高度参数！');" onBlur="ShowTitle('');" value="<%if request("PicHeight")<>"" then response.write(request("PicHeight")) else response.write("60") end if%>" size="14">
      </td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>备&nbsp;&nbsp;&nbsp;&nbsp;注</td>
      <td rowspan="2"><textarea name="Info" rows="3" id="Info" style="width:90%" onFocus="ShowTitle('备注，用于代码调用时方便查看属性！');" onBlur="ShowTitle('');"><%=request("Info")%></textarea></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="4"><div align="center"> 
          <input type="submit" name="Submit" value=" 添 加 ">
          <input name="action" type="hidden" id="action2" value="add">
          &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
          <input type="button" name="Submit2" value=" 取 消 " onClick="window.close();">
        </div></td>
    </tr>
  </table>
</form>
</body>
</html>
<script> 
function TypeChoose()
 {
  if (document.JSForm.TypeW.checked==true)
      { 
	   document.JSForm.MannerW.disabled=false;
	   document.JSForm.MannerP.disabled=true;
	   document.JSForm.PicPath.disabled=true;
	   document.JSForm.PicChooseButton.disabled=true;
	   document.JSForm.PicWidth.disabled=true;
	   document.JSForm.PicHeight.disabled=true;
	   }
  else
       {
	   document.JSForm.MannerW.disabled=true;
	   document.JSForm.MannerP.disabled=false;
	   document.JSForm.PicPath.disabled=false;
	   document.JSForm.PicChooseButton.disabled=false;
	   document.JSForm.PicWidth.disabled=false;
	   document.JSForm.PicHeight.disabled=false;
		}
  }
  
function ShowTitle(TempStr)
  {
   document.all.TempTip.innerHTML='<font color=red>提示：</font><br><br>&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>'+TempStr+'</font>';
   }
   
function ChooseDate(DateStr)
{ 
 if (DateStr==1)
 	{
		document.JSForm.DateType.disabled=false;
		document.JSForm.DateCSS.disabled=false;
	 }
 else
	 {
		document.JSForm.DateType.disabled=true;
		document.JSForm.DateCSS.disabled=true;
	  }
 }
 
function ChoosePic()
{
 if (document.JSForm.MannerW.disabled==false) 
     document.all.PreviewArea.innerHTML='<img src="Img/Css'+document.JSForm.MannerW.value+'.gif" border="0">';
 else 
     document.all.PreviewArea.innerHTML='<img src="Img/Css'+document.JSForm.MannerP.value+'.gif" border="0">';
 }
ChoosePic();
</script>
<%
  if Request.Form("action")="add" then
     dim CNameWordNum,CNameStr,ENameWordNum,ENameStr,JSAddObj,JSNewsNum,JSNewsTitleNum,JSRowNum,JSContentNum,RsJSObj,RsJSSql
	 if request.form("CName")<>"" then
	    CNameStr = Replace(Replace(request.form("CName"),"""",""),"'","")
		CNameWordNum = Cint(Len(CNameStr))
		if CNameWordNum>25 then
			 response.Write("<script>alert(""中文名称不能多于25个字符"");history.back();</script>")
			 response.end
		end if
	  else
		 response.Write("<script>alert(""请输入中文名称"");history.back();</script>")
		 response.end
	 end if
	 if request.form("EName")<>"" then
	    ENameStr = Replace(Replace(request.form("EName"),"""",""),"'","")
		ENameWordNum = Cint(Len(ENameStr))
		if ENameWordNum>=50 then
			 response.Write("<script>alert(""英文名称不能多于50个字符"");history.back();</script>")
			 response.end
		end if
		Set JSAddObj = Conn.Execute("select EName from FreeJS where EName='"&ENameStr&"'")
		if Not JSAddObj.eof then
			 response.Write("<script>alert(""英文名称重复,请重新填写"");history.back();</script>")
			 response.end
		end if
		JSAddObj.close
		Set JSAddObj = Nothing
	  else
		 response.Write("<script>alert(""请输入英文名称"");history.back();</script>")
		 response.end
	 end if
  	 if isnumeric(request.form("NewsNum")) = false then
		 response.Write("<script>alert(""新闻调用数必须为数字型"");history.back();</script>")
		 response.end
	 else
		 JSNewsNum = Cint(request.form("NewsNum"))
	 end if
  	 if isnumeric(request.form("NewsTitleNum")) = false then
		 response.Write("<script>alert(""新闻标题字数必须为数字型"");history.back();</script>")
		 response.end
	 else
		 JSNewsTitleNum = Cint(request.form("NewsTitleNum"))
	 end if
  	 if isnumeric(request.form("RowNum")) = false or request.form("RowNum")="0" then
		 response.Write("<script>alert(""新闻并排条数必须为数字型且不能为0"");history.back();</script>")
		 response.end
	 else
		 JSRowNum = Cint(request.form("RowNum"))
	 end if
  	 if isnumeric(request.form("ContentNum")) = false then
		 response.Write("<script>alert(""新闻内容字数必须为数字型"");history.back();</script>")
		 response.end
	 else
		 JSContentNum = Cint(request.form("ContentNum"))
	 end if
	  Set RsJSObj=server.createobject("adodb.recordset")
	  RsJSSql="select * from FreeJS"
	  RsJSObj.open RsJSSql,Conn,3,3
	  RsJSObj.addnew 
	  RsJSObj("EName") = Cstr(ENameStr)
	  RsJSObj("CName") = Cstr(CNameStr)
	  RsJSObj("Type") = Cint(Replace(Replace(Request.Form("Type"),"""",""),"'",""))
	  RsJSObj("Manner") = Cint(Replace(Replace(Request.Form("Manner"),"""",""),"'",""))
	  if Request.Form("PicWidth")<>"" and isnull(Request.Form("PicWidth"))=false then
	     if isnumeric(Request.Form("PicWidth"))=true then
			  RsJSObj("PicWidth") = Cint(Request.Form("PicWidth"))
	      else
			 response.Write("<script>alert(""图片宽度必须为数字型"");history.back();</script>")
			 response.end
		  end if
	  end if
	  if Request.Form("PicHeight")<>"" and isnull(Request.Form("PicHeight"))=false then
	     if isnumeric(Request.Form("PicHeight"))=true then
			  RsJSObj("PicHeight") = Cint(Request.Form("PicHeight"))
	      else
			 response.Write("<script>alert(""图片高度必须为数字型"");history.back();</script>")
			 response.end
		  end if
	  end if
	  RsJSObj("NewsNum") = Cint(JSNewsNum)
	  RsJSObj("NewsTitleNum") = Cint(JSNewsTitleNum)
	  if Replace(Replace(Request.Form("TitleCSS"),"""",""),"'","")<>"" then
		  RsJSObj("TitleCSS") = Cstr(Request.Form("TitleCSS"))
	  end if
	  if Replace(Replace(Request.Form("ContentCSS"),"""",""),"'","")<>"" then
		  RsJSObj("ContentCSS") = Cstr(Request.Form("ContentCSS"))
	  end if
	  if Replace(Replace(Request.Form("BackCSS"),"""",""),"'","")<>"" then
		  RsJSObj("BackCSS") = Cstr(Request.Form("BackCSS"))
	  end if
	  RsJSObj("RowNum") = Cint(JSRowNum)
	  if Request.Form("Manner")="12" or Request.Form("Manner")="16" then
		  if Replace(Replace(Request.Form("PicPath"),"""",""),"'","")<>"" then
			  RsJSObj("PicPath") = Cstr(Request.Form("PicPath"))
		  else
			 response.Write("<script>alert(""请选择图片地址"");history.back();</script>")
			 response.end
		  end if
	  end if
	  RsJSObj("ShowTimeTF") = Cint(Request.Form("ShowTimeTF"))
	  RsJSObj("AddTime") = Now()
	  RsJSObj("ContentNum") = Cint(JSContentNum)
	  if Replace(Replace(Request.Form("NaviPic"),"""",""),"'","")<>"" then
		  RsJSObj("NaviPic") = Cstr(Request.Form("NaviPic"))
	  end if
	  if Request.Form("DateCSS")<>"" and isnull(Request.Form("DateColor"))=false then
		  RsJSObj("DateCSS") = Cstr(Request.Form("DateCSS"))
	  end if
	  if Request.Form("DateType")<>"" or isnull(Request.Form("DateType"))=false then
		  RsJSObj("DateType") = Cint(Request.Form("DateType"))
	  end if
	  RsJSObj("Info") = Request.Form("Info")
	  RsJSObj("MoreContent") = Request.Form("MoreContent")
	  if Request.Form("MoreContent")=1 then
		  If Request.Form("LinkWord")<>"" and  isnull(Request.Form("LinkWord"))=false then
			  RsJSObj("LinkWord") = Request.Form("LinkWord")
		  Else
		  	Response.Write("<script>alert(""请输入链接文字或图片"");</script>")
			Response.End
		  End If
		  If Request.Form("LinkCSS")="" or isnull(Request.Form("LinkCSS")) then
			  RsJSObj("LinkCSS") = Request.Form("LinkCSS")
		  End If
	  End If
	  If isnumeric(Request.Form("RowSpace")) then
		  RsJSObj("RowSpace") = Cint(Request.Form("RowSpace"))
	  Else
		  RsJSObj("RowSpace") = 2
	  End If
	  RsJSObj("RowBettween") = Request.Form("RowBettween")
	  RsJSObj("OpenMode") = Request.Form("OpenMode")
	  RsJSObj.update
	  RsJSObj.close
	  Set RsJSObj = Nothing
	  
  '--------------------需要生成JS文件---------------------------------
      Select case Request.Form("Manner")
     case "1"   WCssA ENameStr,True
     case "2"   WCssB ENameStr,True
     case "3"   WCssC ENameStr,True
     case "4"   WCssD ENameStr,True
     case "5"   WCssE ENameStr,True
     case "6"   PCssA ENameStr,True
     case "7"   PCssB ENameStr,True
     case "8"   PCssC ENameStr,True
     case "9"   PCssD ENameStr,True
     case "10"   PCssE ENameStr,True
     case "11"   PCssF ENameStr,True
     case "12"   PCssG ENameStr,True
     case "13"   PCssH ENameStr,True
     case "14"   PCssI ENameStr,True
     case "15"   PCssJ ENameStr,True
     case "16"   PCssK ENameStr,True
     case "17"   PCssL ENameStr,True
   End Select
   
	response.write("<script>alert(""自由JS添加成功"");dialogArguments.self.location.reload();window.close();</script>")
	response.end
  end if
%>
