在线HTML编辑器

2010-1-31 08:10| 发布者: admin| 查看: 117| 评论: 0|原作者: 夙玉

'函数ID：0038[在线HTML编辑器]
'函数名：HTML_MZYEDIT
'作用：测试数据库中的表是否存在
'参数：MEIPath ---- 各图标图像所在的路径
'参数：GtimgPath ---- 图片上传程序的URL
'参数：GtswfPath ---- Flash动画上传程序的URL
'参数：GtwavPath ---- 音乐文件上传程序的URL
'参数：GtotherPath ---- 其他文件上传程序的URL
'返回值：HTML编辑器
'示例：
'**************************************************
Public Function HTML_MZYEDIT(ByVal MEIPath,ByVal GtimgPath,ByVal GtswfPath,ByVal GtwavPath,ByVal GtotherPath)
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write " 下划线

" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write " 取消超链

" & vbCrlf
Response.Write " 取消格式

" & vbCrlf
Response.Write " 水平线

" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write " 取消缩进

" & vbCrlf
Response.Write " 数字标识

" & vbCrlf
Response.Write " 点标识

" & vbCrlf
Response.Write " 加入图片

" & vbCrlf
Response.Write " 加入FLASH

" & vbCrlf
Response.Write " 加入影音文件

" & vbCrlf
Response.Write " 加入文件链接

" & vbCrlf
Response.Write " 插入Excel工作表

" & vbCrlf
Response.Write " 去除Word格式

" & vbCrlf
Response.Write " 转为TXT格式

" & vbCrlf
Response.Write " 查看源码

" & vbCrlf
Response.Write " 在IE里预览

" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write " 表格[行列]

" & vbCrlf
Response.Write "

"
Response.Write "

" & vbCrlf
Response.Write "

" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
End Function

收藏分享邀请

		自动登录	找回密码
密码			注册

在线HTML编辑器

最新评论

相关分类