站内搜索
最近浏览
- WinCE Security...
- xdebug配置说明
- VC++ 获取文件的创建、修...
- ASP进度条
- 简单代理服务器C代码实现(S...
- 程序设计竞赛试题选(02)
- 如何在ASP程序中打印Acc...
- UTF-8和16进制区间
- ASP实用技巧:强制刷新和判...
- 运行中程序删除自己的方法
- asp提高首页性能的一个技巧
- [J2EE]J2EE 应用服务器技术
- VB变量命名规范
- C语言常见错误小结
- (摘自网络)如何在IIS中调...
推荐文章
热文排行
创建表
Function gettype(ByVal index As Integer) As String
On Error Resume Next
gettype = "The God know it!"
Dim types As New Collection
types.Add "adBigInt", "x20"
types.Add "adEmpty", "x0"
types.Add "adSmallInt", "x2"
types.Add "adInteger", "x3"
types.Add "adSingle", "x4"
types.Add "adDouble", "x5"
types.Add "adCurrency", "x6"
types.Add "adDate", "x7"
types.Add "adBSTR", "x8"
types.Add "adIDispatch", "x9"
types.Add "adError", "x10"
types.Add "adBoolean", "x11"
types.Add "adVariant", "x12"
types.Add "adIUnknown", "x13"
types.Add "adDecimal", "x14"
types.Add "adTinyInt", "x16"
types.Add "adUnsignedTinyInt", "x17"
types.Add "adUnsignedSmallInt", "x18"
types.Add "adUnsignedInt", "x19"
types.Add "adUnsignedBigInt", "x21"
types.Add "adFileTime", "x64"
types.Add "adGUID", "x72"
types.Add "adBinary", "x128"
types.Add "adChar", "x129"
types.Add "adWChar", "x130"
types.Add "adNumeric", "x131"
types.Add "adUserDefined", "x132"
types.Add "adDBDate", "x133"
types.Add "adDBTime", "x134"
types.Add "adDBTimeStamp", "x135"
types.Add "adChapter", "x136"
types.Add "adDBFileTime", "x137"
types.Add "adPropVariant", "x138"
types.Add "adVarNumeric", "x139"
types.Add "adVarChar", "x200"
types.Add "adLongVarChar", "x201"
types.Add "adVarWChar", "x202"
types.Add "adLongVarWChar", "x203"
types.Add "adVarBinary", "x204"
types.Add "adLongVarBinary", "x205"
If types("x" & index) > "" Then gettype = types("x" & index)
End Function
On Error Resume Next
gettype = "The God know it!"
Dim types As New Collection
types.Add "adBigInt", "x20"
types.Add "adEmpty", "x0"
types.Add "adSmallInt", "x2"
types.Add "adInteger", "x3"
types.Add "adSingle", "x4"
types.Add "adDouble", "x5"
types.Add "adCurrency", "x6"
types.Add "adDate", "x7"
types.Add "adBSTR", "x8"
types.Add "adIDispatch", "x9"
types.Add "adError", "x10"
types.Add "adBoolean", "x11"
types.Add "adVariant", "x12"
types.Add "adIUnknown", "x13"
types.Add "adDecimal", "x14"
types.Add "adTinyInt", "x16"
types.Add "adUnsignedTinyInt", "x17"
types.Add "adUnsignedSmallInt", "x18"
types.Add "adUnsignedInt", "x19"
types.Add "adUnsignedBigInt", "x21"
types.Add "adFileTime", "x64"
types.Add "adGUID", "x72"
types.Add "adBinary", "x128"
types.Add "adChar", "x129"
types.Add "adWChar", "x130"
types.Add "adNumeric", "x131"
types.Add "adUserDefined", "x132"
types.Add "adDBDate", "x133"
types.Add "adDBTime", "x134"
types.Add "adDBTimeStamp", "x135"
types.Add "adChapter", "x136"
types.Add "adDBFileTime", "x137"
types.Add "adPropVariant", "x138"
types.Add "adVarNumeric", "x139"
types.Add "adVarChar", "x200"
types.Add "adLongVarChar", "x201"
types.Add "adVarWChar", "x202"
types.Add "adLongVarWChar", "x203"
types.Add "adVarBinary", "x204"
types.Add "adLongVarBinary", "x205"
If types("x" & index) > "" Then gettype = types("x" & index)
End Function
[wangjy17908]
添加时间:2009-11-10