ASP函数库7

网络整理 - 09-08

'**************************************************
  '函数ID：0037[测试数据库中的表是否存在]
  '函数名：TestTbOK
  '作用：测试数据库中的表是否存在
  '参数：ObjConnName ---- 数据库链接定义
  '参数：TestDbname ---- 被测试表的名称
  '返回值：测试成功返回 True 否则 False
  '示例：TestTbOK(TestConn,"tbname")
  '**************************************************
  Public Function TestTbOK(ByVal ObjConnName,ByVal TestDbname)
   TestTbOK=False
   DIM fu_Rs
   Set fu_Rs=server.createobject("ADODB.Recordset")
   On Error GoTo 0
   On Error Resume Next
   fu_Rs.open "SELECT * FROM "&TestDbname,ObjConnName,1,1
   fu_Rs.Close
   If Err.Number = 0 Then
   TestTbOK=True
   End If
   On Error GoTo 0
   Set fu_Rs = Nothing
  End Function
  '**************************************************
  '函数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 "<style>img{border: 1 solid #DFDED2;}</style>" & vbCrlf
   Response.Write "<table onConTextMenu ='event.returnValue=false;' bgcolor='#DFDED2'><tr><td>" & vbCrlf
   Response.Write "<IMG ALT='撤消' SRC='http://www.jz123.cn/text/"&MEIPath&"undo.gif' )){" & vbCrlf
   Response.Write "nsData=cleanword(sData) ;" & vbCrlf
   Response.Write "}" & vbCrlf
   Response.Write "}" & vbCrlf
   Response.Write "MZYEDITWINDOW.document.selection.createRange().pasteHTML(nsData);" & vbCrlf
   Response.Write "return false ;" & vbCrlf
   Response.Write "}" & vbCrlf
   Response.Write "setTimeout(""MZYEDITWINDOW.document.body.onpaste =CKjtb;"",1000);" & vbCrlf
   Response.Write "</SCRIPT>" & vbCrlf
   Response.Write "" & vbCrlf
  End Function