'**************************************************
'[在线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 " " & 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 " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write "字体宋体黑体楷体ArialArial BlackWingdings" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "字号一号二号三号四号五号六号七号" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "字色●●●●●" & vbCrlf
Response.Write " 表格[行列] " & vbCrlf
Response.Write ""
Response.Write "