<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Function.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System 2.0 
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0502") then Call ReturnError()
Dim RowSpace,ListSpace,ListSpaceStr,Temp_i,TableCellSpace,TitleSpace,TitleSpaceStr,MoreContentStr
	TitleSpace = 3 '新闻内容抬头空格字符个数 
	TitleSpaceStr = ""
	for Temp_i = 1 to TitleSpace
		TitleSpaceStr = TitleSpaceStr & "&nbsp;"
	next 
Dim RsFreeJsConfig
Set RsFreeJsConfig = Conn.Execute("Select DoMain from Config")
Dim TempSysRootDir
if SysRootDir = "" then
	TempSysRootDir = ""
else
	TempSysRootDir = "/" & SysRootDir
end if

	
Function WCssA(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
		  End If
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td valign=middle >"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<td valign=middle>"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				if ClsJSObj("ShowTimeTF")=1 then
					  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  	else
					  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
				end if
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
		  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
			 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
		  End if
		  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  CrHNJS.write JSCodeStr
		  Set MyFile=nothing
		  '---------
		  ClsJSObj.Close
		  Set ClsJSObj = Nothing
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");dialogArguments.location.reload();window.close();</script>")
		Response.End
		End If
End Function 

Function WCssB(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")=1 then
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
			  Else
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
			  End If
			  If ClsJSObj("ShowTimeTF")=1 then
			  	If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td colspan=2><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  	Else
				  JSCodeStr = JSCodeStr & "<tr><td colspan=2><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
				End If
			  Else
			  	If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  	Else
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
				End If
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		  else
		      WCssB = JSCodeStr
		  end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");dialogArguments.location.reload();window.close();</script>")
		Response.End
		End If
End Function 

Function WCssC(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span></div></td>"
			  End If
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
			else
				WCssC = JSCodeStr
			end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");dialogArguments.location.reload();window.close();</script>")
		Response.End
		End If
End Function 

Function WCssD(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top""><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td>"
			  End If
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
			else
				WCssD = JSCodeStr
			end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");dialogArguments.location.reload();window.close();</script>")
		Response.End
		End If
End Function

Function WCssE(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
			  Else
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td><td rowspan=2>"&ListSpaceStr&"</td></tr>"
			  End If
			  If ClsJSObj("ShowTimeTF")=1 then
				  JSCodeStr = JSCodeStr &"<tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		  else
		  	  WCssE = JSCodeStr
		  end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssA(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td align=""center""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td></tr>"
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr & "<tr><td align=""center"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<tr><td align=""center"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		  else
		  	  PCssA = JSCodeStr
		  end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssB(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace")\2)
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""center"" rowspan=""2""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td>"
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr & "<td align=""left"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  Else
				  JSCodeStr = JSCodeStr & "<td align=""left"">"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  End If
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(Replace(JSCodeStr,"<tr></tr>",""),"&nbsp;&nbsp;&nbsp;&nbsp;","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssB = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssC(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td align=""center""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssC = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssD(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" colspan=""2"" align=""center""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span><br><Span class="""&ClsJSObj("DateCSS")&""">"&ListTitle(DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&""),50)&"</Span></div></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<tr><td valign=""top""><div align=""center"">"& ClsJSObj("NaviPic") &"<br><Span class="""&ClsJSObj("TitleCSS")&""">"&ListTitle(GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum")),ClsJSObj("NewsTitleNum"))&"</Span></div></td>"
			  End If
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssD = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssE(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace")\2)
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td valign=""top"" align=""center""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssE = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssF(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""center""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td><td>"&ListSpaceStr&"</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</table>');"
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssF = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssG(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  JSCodeStr = JSCodeStr & "<td valign=""top"" align=""center""><img src="& RsFreeJsConfig("DoMain") & ClsJSObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></td><td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td>"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<td>"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 and not ClsJSFileObj.eof then
			  	If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			 	Else
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
				End If
			  end if
			  if ClsJSFileObj.eof then
			  	If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr></table></td></tr>"
			 	Else
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr></table></td></tr>"
				End If
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</table>');"
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssG = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssH(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace"))
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td valign=""top"" align=""left""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td>"
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr & "<td><div align=""left"">"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  Else
				  JSCodeStr = JSCodeStr & "<td><div align=""left"">"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  End If
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td colspan=""2""><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<tr><td colspan=""2""><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssH = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssI(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td></tr>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
			ListSpaceStr = ""
			for Temp_i = 1 to Cint(ClsJSObj("RowSpace")\2)
				ListSpaceStr = ListSpaceStr & "&nbsp;"
			next 
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td colspan=""3""><div align=""center"">"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  Else
				  JSCodeStr = JSCodeStr & "<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td rowspan=""2"">"&ListSpaceStr&"</td><td colspan=""3""><div align=""center"">"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></div></td><td rowspan=""2"">"&ListSpaceStr&"</td></tr>"
			  End If
			  JSCodeStr = JSCodeStr & "<tr><td valign=""top""><a href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&"><img src="& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath") &" height="&ClsJSObj("PicHeight")&" width="&ClsJSObj("PicWidth")&" border=""0""></a></td><td>&nbsp;</td>"			  
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssI = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

Function PCssJ(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table class="""&ClsJSObj("BackCSS")&""" width=100% border=0 cellpadding=0 cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then 
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
		  end if
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table background="""& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a>&nbsp;<Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td></tr>"
			  Else
				  JSCodeStr = JSCodeStr &"<td width="&Cint(100/Cint(ClsJSObj("RowNum")))&"% valign=""top""><table background="""& RsFreeJsConfig("DoMain") & ClsJSFileObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr><td>"& ClsJSObj("NaviPic") &"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td></tr>"
			  End If
			  If ClsJSObj("MoreContent")=1 then
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......<br><div align=""right""><a class="""&ClsJSObj("LinkCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&ClsJSObj("LinkWord")&"</a></div></td></tr></table></td>"
			  Else
				  JSCodeStr = JSCodeStr & "<tr><td><Span class="""&ClsJSObj("ContentCSS")&""" style=word-break:break-all;>"&TitleSpaceStr&GotTopic(Replace(Replace(Replace(LoseHtml(ClsNewsObj("Content")),chr(13) & chr(10),""),"[Page]",""),"&nbsp;",""),ClsJSObj("ContentNum"))&"</Span>......</td></tr></table></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssJ = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");dialogArguments.location.reload();window.close();</script>")
		Response.End
		End If
End Function

Function PCssK(EName,CreateFileTF)
	Dim ClsJSObj,ClsJSFileObj,ClsFileSql,ClsNewsObj,TempEName,JSCodeStr,i,MyFile,CrHNJS,RsClassObj,OpenMode
	Set ClsJSObj = Conn.Execute("Select * From FreeJS where EName='"&EName&"'")
	    If Not ClsJSObj.eof then
		  JSCodeStr = "document.write('<table background="""& RsFreeJsConfig("DoMain") & ClsJSObj("PicPath")&""" width=""100%"" border=""0"" cellpadding=""0"" cellspacing="""&ClsJSObj("RowSpace")&"""><tr>"
		  Set ClsJSFileObj=server.createobject("adodb.recordset")
		  ClsFileSql="select * from FreeJsFile where JSName='"&EName&"' and DelFlag=0 order by ToJsTime desc"
		  ClsJSFileObj.open ClsFileSql,Conn,1,1
		  If ClsJSFileObj.eof then
			JSCodeStr = JSCodeStr & "<td>此JS内暂无新闻</td>"
		  End If
		  If ClsJSObj("OpenMode")=1 then
			  OpenMode = "target=_blank"
		  Else
			  OpenMode = "target=_self"
		  End If
		  for i=1 to ClsJSObj("NewsNum")
			  If ClsJSFileObj.eof then Exit For
			  Set ClsNewsObj = Conn.Execute("Select * From News where FileName='"&ClsJSFileObj("FileName")&"'")
			  Set RsClassObj = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID='"&ClsNewsObj("ClassID")&"'")
			  If ClsJSObj("ShowTimeTF")="1" then
				  JSCodeStr = JSCodeStr &"<td valign=middle>"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td><td><Span class="""&ClsJSObj("DateCSS")&""">"&DateFormat(ClsNewsObj("AddDate"),""&ClsJSObj("DateType")&"")&"</Span></td>"
			  Else
				  JSCodeStr = JSCodeStr &"<td valign=middle>"&ClsJSObj("NaviPic")&"<a class="""&ClsJSObj("TitleCSS")&""" href="&RsFreeJsConfig("DoMain")&RsClassObj("SaveFilePath")&"/"&RsClassObj("ClassEName")&"/"&ClsNewsObj("FileName")&"."&ClsNewsObj("FileExtName")&" "&OpenMode&">"&GotTopic(ClsNewsObj("Title"),ClsJSObj("NewsTitleNum"))&"</a></td>"
			  End If
			  RsClassObj.Close
			  Set RsClassObj = Nothing
			  ClsNewsObj.Close
			  Set ClsNewsObj = Nothing
			  ClsJSFileObj.MoveNext
			  if i mod Cint(ClsJSObj("RowNum")) = 0 or ClsJSFileObj.eof then
				if ClsJSObj("ShowTimeTF")=1 then
					  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))*2&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
			  	else
					  JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&Cint(ClsJSObj("RowNum"))&""" height="""&ClsJSObj("RowSpace")&""" background="""&ClsJSObj("RowBettween")&"""></td></tr><tr>"
				end if
			  end if
		  next 
		  ClsJSFileObj.Close 
		  Set ClsJSFileObj = Nothing 
		  JSCodeStr = JSCodeStr & "</tr></table>');"
		  JSCodeStr = Replace(JSCodeStr,"<tr></tr>","")
		  if CreateFileTF = True then
			  Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
			  If MyFile.FileExists(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js") then
				 MyFile.DeleteFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
			  End if
			  Set CrHNJS=MyFile.CreateTextFile(Server.MapPath(TempSysRootDir&"\JS\FreeJs")&"\"& EName &".js")
				  CrHNJS.write JSCodeStr
			  Set MyFile=nothing
			  ClsJSObj.Close
			  Set ClsJSObj = Nothing
		   else
		   	  PCssK = JSCodeStr
		   end if
		Else
		Response.Write("<script>alert(""生成JS文件时未找到参数"");window.close();</script>")
		Response.End
		End If
End Function

%>