红栌温泉山庄在线编辑器.docx

上传人:b****5 文档编号:11846315 上传时间:2023-04-06 格式:DOCX 页数:14 大小:19.50KB
下载 相关 举报
红栌温泉山庄在线编辑器.docx_第1页
第1页 / 共14页
红栌温泉山庄在线编辑器.docx_第2页
第2页 / 共14页
红栌温泉山庄在线编辑器.docx_第3页
第3页 / 共14页
红栌温泉山庄在线编辑器.docx_第4页
第4页 / 共14页
红栌温泉山庄在线编辑器.docx_第5页
第5页 / 共14页
点击查看更多>>
下载资源
资源描述

红栌温泉山庄在线编辑器.docx

《红栌温泉山庄在线编辑器.docx》由会员分享,可在线阅读,更多相关《红栌温泉山庄在线编辑器.docx(14页珍藏版)》请在冰豆网上搜索。

红栌温泉山庄在线编辑器.docx

红栌温泉山庄在线编辑器

--#includefile="Startup.asp"-->

<%

'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

'★★

'☆红栌温泉山庄在线编辑器☆

'★★

'☆北京度假村富来宫温泉山庄★

'★★

'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

%>

<%

'初始输入参数

DimsContentID,sStyleID,sFullScreen

DimsStyleName,sStyleDir,sStyleCSS,sStyleUploadDir,nStateFlag,sDetectFromWord,sInitMode,sBaseUrl,sBaseHref,sAutoRemote,sShowBorder

DimsVersion,sReleaseDate,sLicense

DimaButtonCode(),aButtonHTML()

DimsToolBar,sToolBarNormal,sToolBarFullScreen

'初始化

CallInit()

%>

红栌温泉山庄在线编辑器

varsPath=document.location.pathname;

sPath=sPath.substr(0,sPath.length-14);

varsLinkFieldName="<%=sContentID%>";

varsLinkOriginalFileName="<%=Request.QueryString("originalfilename")%>";

varsLinkSaveFileName="<%=Request.QueryString("savefilename")%>";

varsLinkSavePathFileName="<%=Request.QueryString("savepathfilename")%>";

//全局设置对象

varconfig=newObject();

config.Version="<%=sVersion%>";

config.ReleaseDate="<%=sReleaseDate%>";

config.License="<%=sLicense%>";

config.StyleName="<%=sStyleName%>";

config.StyleMenuHeader="/MenuArea.css\"type=\"text/css\"rel=\"stylesheet\">";

config.StyleDir="<%=sStyleDir%>";

config.StyleUploadDir="<%=sStyleUploadDir%>";

config.InitMode="<%=sInitMode%>";

config.AutoDetectPasteFromWord=<%=sDetectFromWord%>;

config.BaseUrl="<%=sBaseUrl%>";

config.BaseHref="<%=sBaseHref%>";

config.AutoRemote="<%=sAutoRemote%>";

config.ShowBorder="<%=sShowBorder%>";

config.ModId="<%=Request("ModId")%>";//提交过来的模板号

config.oBoardId="<%=Request("oBoardId")%>";//提交过来的栏目号

varsBaseHref="";

if(config.BaseHref!

=""){

sBaseHref="";

}

config.StyleEditorHeader="/EditorArea.css\"type=\"text/css\"rel=\"stylesheet\">"+sBaseHref+"";

returntrue;//隐藏错误

//***辅助线

varborderShown=0

functionsBorders(){

allTables=eWebEditor.document.body.getElementsByTagName("TABLE");

for(i=0;i

if(!

borderShown)

allTables[i].runtimeStyle.borderTop=allTables[i].runtimeStyle.borderLeft="1pxdotted#BFBFBF";

else

allTables[i].runtimeStyle.cssText='';

allRows=allTables[i].rows;

for(y=0;y

allCells=allRows[y].cells;

for(x=0;x

if(!

borderShown)

allCells[x].runtimeStyle.borderRight=allCells[x].runtimeStyle.borderBottom="1pxdotted#BFBFBF";

else

allCells[x].runtimeStyle.cssText='';

}

}

borderShown=borderShown?

0:

1;

if(!

borderShown)

eWebEditor.document.body.innerHTML=eWebEditor.document.body.innerHTML;

}

functioncopyContent()

{

eWebEditor.document.body.createTextRange().select();//选中编辑器内所有内容

eWebEditor.document.execCommand("copy","",null);//复制

}

setTimeout("sBorders();",1000);

<%=sToolBar%>

--

12px;color:

#AAAAAA;float:

right;">编辑器内核由eWebEditor提供,特此感谢!

-->

<%IfnStateFlag=1Then%>

"yes"Then%>style="display:

none"<%EndIf%>class=StatusBarBtnOffid=eWebEditor_CODEonClick="setMode('CODE')">/modecode.gif"width=50height=15align=absmiddle>

"yes"Then%>style="display:

none"<%EndIf%>width=5>

/modeedit.gif"width=50height=15align=absmiddle>

/modetext.gif"width=50height=15align=absmiddle>

/modepreview.gif"width=50height=15align=absmiddle>

12px;cursor:

hand;"onClick="copyContent()">复制

9pt">

9pt">远程自动上传

pointer;"onClick="sizeChange(300)">/sizeplus.gif"width=20height=20alt="增高编辑区">

pointer;"onClick="sizeChange(-300)">/sizeminus.gif"width=20height=20alt="减小编辑区">

<%EndIf%>

hidden;OVERFLOW:

hidden;POSITION:

absolute;WIDTH:

1px;HEIGHT:

1px">

action=remote&type=remote&style=<%=sStyleName%>&ModId=<%=Request("ModId")%>"method="post"target="eWebEditor_UploadTarget"style="margin:

0">

300px;height:

40px;position:

absolute;display:

none">

9pt">...远程文件收集中...请等待...

<%

'显示调用错误提示

SubShowErr(str)

CallDBConnEnd()

Response.Write"调用错误:

"&str

Response.End

EndSub

'初始化

SubInit()

'取全屏标志

sFullScreen=Trim(Request.QueryString("fullscreen"))

'取对应的内容ID

sContentID=Trim(Request.QueryString("id"))

IfsContentID=""ThenShowErr"请传入调用参数ID,即隐藏的内容表单项ID!

"

'取样式初始值

sStyleName=Get_SafeStr(Trim(Request.QueryString("style")))

IfsStyleName=""ThensStyleName="standard"

Dims_SelfUrl,s_ApplicationName,n_Application,i

s_SelfUrl=UCase(Request.ServerVariables("SERVER_NAME")&":

"&Request.ServerVariables("SERVER_PORT")&Request.ServerVariables("SCRIPT_NAME")&"?

style="&sStyleName)

n_Application=0

DimaApplicationName,aApplicationUrl,aApplicationValue

aApplicationName=Application("eWebEditor_ApplicationName")

aApplicationUrl=Application("eWebEditor_ApplicationUrl")

IfIsArray(aApplicationName)=TrueThen

n_Application=UBound(aApplicationName)

'是否在内存中

Fori=1Ton_Application

IfaApplicationUrl(i)=s_SelfUrlThen

s_ApplicationName=aApplicationName(i)

aApplicationValue=Application(s_ApplicationName)

sStyleID=aApplicationValue(0)

sStyleName=aApplicationValue

(1)

sStyleDir=aApplicationValue

(2)

sStyleCSS=aApplicationValue(3)

sStyleUploadDir=aApplicationValue(4)

nStateFlag=aApplicationValue(5)

sDetectFromWord=aApplicationValue(6)

sInitMode=aApplicationValue(7)

sBaseUrl=aApplicationValue(8)

sVersion=aApplicationValue(9)

sReleaseDate=aApplicationValue(10)

sLicense=aApplicationValue(11)

sToolBarNormal=aApplicationValue(12)

sToolBarFullScreen=aApplicationValue(13)

sBaseHref=aApplicationValue(14)

sAutoRemote=aApplicationValue(15)

sShowBorder=aApplicationValue(16)

IfsFullScreen="1"Then

sToolBar=sToolBarFullScreen

Else

sToolBar=sToolBarNormal

EndIf

ExitSub

EndIf

Next

EndIf

'初始化数据库连接

CallDBConnBegin()

sSql="select*fromewebeditor_stylewheres_name='"&sStyleName&"'"

oRs.OpensSql,oConn,0,1

IfNotoRs.EofThen

sStyleID=oRs("lingbiqishi.org/S_ID")

sStyleName=oRs("S_Name")

sStyleDir=oRs("S_Dir")

sStyleCSS=oRs("S_CSS")

sStyleUploadDir=oRs("S_UploadDir")

nStateFlag=oRs("S_StateFlag")

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 党团工作 > 入党转正申请

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1