ASP函数库

  Case 4
  ' yyyy年mm月dd日
   Format_Time = y & "年" & m & "月" & d & "日"
  Case 5
  ' yyyymmdd
   Format_Time = y & m & d
  Case 6
  'mm/dd
   Format_Time = m & "/" & d
  case 7
   Format_Time = m & "/" & d & "/" & right(y,2)
  End Select
End Function
'**************************************************
'函数ID：0036[测试数据库是否存在]
'函数名：TestDBOK
'作 用：测试数据库是否存在
'参 数：TestConnStr ---- 数据库链接字串
'返回值：测试成功返回 True 否则 False
'示 例：TestDBOK("testConnString")
'**************************************************
Public Function TestDBOK(ByVal TestConnStr)
  TestDBOK=False
  DIM fu_Conn
  Set fu_Conn=server.createobject("ADODB.Connection")
  On Error GoTo 0
  On Error Resume Next
  fu_Conn.open TestConnStr
  If Err.Number = 0 Then
     TestDBOK=True
  End If
  On Error GoTo 0
  Set fu_Conn = Nothing
End Function
'**************************************************
'函数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 "<!--BEGIN 史上最小的在线HTML编辑器，开发者：马政永，版本1.0 网站：http://www.lovemycn.com，本软件为授权使用，如没有马政永授权，任何人或单位不得使用，否则将已侵犯知识产权罪论处！-->" & vbCrlf
  Response.Write "<style>img{border: 1 solid #DFDED2;}</style>" & vbCrlf
  Response.Write "<table onConTextMenu ='event.returnValue=false;'  style='"">宋体; font-size: 9pt;cursor:default;width:100%;height:100%;' bgcolor='#DFDED2'><tr><td style='width:100%;height:0%;'>" & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='撤消' SRC='"&MEIPath&"undo.gif' NAME='Undo' ONCLICK='dojob(this.name);' onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='恢复' SRC='"&MEIPath&"redo.gif' NAME='Redo' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='剪切' SRC='"&MEIPath&"cut.gif' NAME='Cut' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='拷贝' SRC='"&MEIPath&"copy.gif' NAME='Copy' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='粘贴' SRC='"&MEIPath&"paste.gif' NAME='Paste' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='删除' SRC='"&MEIPath&"delete.gif' NAME='Delete' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='距左' SRC='"&MEIPath&"aleft.gif' NAME='JustifyLeft' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf
  Response.Write "<IMG BORDER='0' ALT='距中' SRC='"&MEIPath&"center.gif' NAME='JustifyCenter' ONCLICK='dojob(this.name);'  onmouseout='mmoo();' onmouseover='mmoo();' onmousedown='mmoo();' onmouseup='mmoo();'> " & vbCrlf

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 1516 17 18 19 20 21 22 23 24 25 26 下一页

上一篇：SubSonic 的字段名未转义问题修正   下一篇：关于分页查询和性能问题

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】