ADO-ODBC

Development Platform:
ASP/ASPX

ShowJsPath.asp：Code Content
							<% Option Explicit %>
<!--#include file="../../../FS_Inc/Const.asp" -->
<!--#include file="../../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../../FS_Inc/Function.asp" -->
<!--#include file="cls_main.asp" -->
<!--#include file="Cls_Js.asp"-->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
Dim Conn
Function getCodePath(selectedJS)
	Dim FS_Js,Path,DoMain,DomainStr,DoMainRs
	MF_Default_Conn
	Set FS_Js=New Cls_Js
	FS_Js.getFreeJsParam(selectedJS)
	
	'Set DoMainRs=Conn.execute("Select [Domain] from FS_NS_NewsClass where ClassiD=(select top 1 classid from FS_NS_FreeJsFile where jsName='"&FS_Js.ename&"')")
	'If DoMainRs.eof then
		path=Conn.execute("Select MF_Domain from FS_MF_Config")(0)&"/"&Conn.execute("Select NewsDir from FS_NS_SysParam")(0)&"/js/FreeJs/"&FS_Js.eName&".js"
		path="http://"&Replace(path,"//","/")
		'path="/"&Conn.execute("Select NewsDir from FS_NS_SysParam")(0)&"/js/FreeJs/"&FS_Js.eName&".js"
	'Else
		'If Not IsNull(DoMainRs("Domain")) And Not DoMainRs("Domain")="" Then
			'path="http://"&Replace(DoMainRs("Domain")&"/js/FreeJS/"&FS_Js.eName&".js","//","/")
		'End if
	'End if
	getCodePath="<script src='"&path&"' language=""javascript""></script>"
	Set DoMain=Nothing
	Conn.close
	Set Conn=nothing
End function
%>
<HTML>
<HEAD>
<TITLE>CMS4.0</TITLE>
<link href="../../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td>该JS调用代码为:</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="2"> 
	<div align="center"> 
        <textarea name="textfield" cols="60" id="codepath" rows="4"><%=getCodePath(Trim(NoSqlHack(request.queryString("jsid"))))%></textarea>
      </div></td>
  </tr>
  <tr> 
    <td> <div align="center"> 
        <input type="button" name="Submit" value=" 关 闭 " onClick="window.close();">
      </div></td>
	  <td> <div align="center"> 
        <input type="button" name="copy" value=" 复 制 " onClick="copyToClipBoard();">
      </div></td>
  </tr>
  <tr> 
    <td height="10" colspan="2">&nbsp;</td>
  </tr>
</table>
</BODY>
<script  language="JavaScript">  
<!--  
function copyToClipBoard()
{
	var clipBoardContent=document.getElementById("codepath").value
	window.clipboardData.setData("Text",clipBoardContent);
	alert("复制成功n<%=G_COPYRIGHT%>");
}
//-->  
</script>  
</HTML>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

						