index.asp 爱美尔女性商城源码 1.0源码程序 - php源码程序

gusucode.com > 爱美尔女性商城源码 1.0源码程序 > BJXeditor/index.asp

    <%@ codepage=936 Language="VBScript"%>
<!-- #INCLUDE file="fckeditor.asp" -->
<%
Public Function bjxinto(bjxcontent,bjxinputname)
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) )
response.Write sBasePath
%>
<html>
	<head>
		<title>BJXSHOP购物系统在线编辑器</title>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<link href="sample.css" rel="stylesheet" type="text/css" />
	</head>
	<body>
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath	= sBasePath
oFCKeditor.Value	= bjxcontent
oFCKeditor.Create bjxinputname
%>
	</body>
</html>
<%end Function%>