eWebEditor ：代码实例

<%Dim l_Style, l_Skin, read l_Skin = request.QueryString("Skin") l_Style = Request.QueryString("Style") Read = "1|7|15" Dim i,nStyle,n,xStyle,showNum,ShowWidth,ShowHeigh IF l_Style = "" Then l_Style = "standard650" End IF IF l_Skin = "" Then l_Skin = "office2003" End IF showNum = False For i=1 to Ubound(aStyle) nStyle = Split(aStyle(i),"|||") for n=0 to Ubound(nstyle) IF Lcase(nStyle(0)) = Lcase(l_Style) Then ShowWidth = nStyle(4) ShowHeigh = nStyle(5) showNum = True Exit for End if next IF showNum = True then Exit for End IF next %> eWebEditor ：代码实例

导航：示例首页 > 系统自带全部样式演示

您可能通过不同的组合来实现不同的效果。

注意：以下的样式是和后台同步的，当您在后添加一个新样式时，这里也将显示。

<%Dim y,ShowListNum,arrStyle,arrRead,x ShowListNum = 5 arrRead = Split(Read,"|") For y=1 to Ubound(aStyle) arrStyle = Split(aStyle(y),"|||") Response.Write "" if y mod showlistnum = 0 Then Response.Write "" end if next %>

系统全部样式导航：
" & VBCrlf Response.Write ""&arrStyle(0) For x=0 to ubound(arrRead) IF Lcase(Trim(y)) = Lcase(Trim(arrRead(x))) then response.Write "(推荐)" End if next response.write "

系统自带皮肤方案：
> blue	> blue1	> green	> light	> office2000
> office2003(默认)	> officexp	> red	> vista	> yellow

<% Dim IHtml iHtml = "

您正在使用 eWebEditor在线HTML编辑器 V6.2 易讯网络升级版.

- 在线HTML编辑器，HTML在线编辑好帮手

" iHtml = iHtml & "严正申明:此系统最终版权归EwebEditor所有,本人修改只是针对本人在使用过程中 " iHtml = iHtml & "

的一些不足而进行修改！本人只享修改部分解释权，因使用本系统而导致的法律效应

本人没有任何关系!如您的用途违反了ewebeditor官方申明，请您尽快更正。

下载者必需在严格遵守EwebEditor官方授权申明！希望大家支持正版！谢谢！

" %>

当前样式演示：
scrolling=no height=<%=ShowHeigh%>>

样式调用事例：
<input type="hidden" name="content1" value=""> <iframe id="eWebEditor1" src="../ewebeditor.html?id=content1&style=<%=l_style%>&skin=<%=l_skin%>" frameborder="0" scrolling="no" width="<%=ShowWidth%>" height="<%=ShowHeigh%>"></iframe>