在线数据库管理工具(db007) v1.5

"UserDefined"
case adVariant:typ = "Variant"
case adIDispatch:typ = "IDispatch"
case adIUnknown:typ = "IUnknown"
case adGUID:typ = "GUID" ''GUID
case adDATE:typ = "DateTime" ''Date
case adDBDate:typ = "DBDate"
case adDBTime:typ = "DBTime"
case adDBTimeStamp:typ = "DateTime" ''DBTimeStamp
case adBSTR:typ = "BSTR"
case adChar:typ = "Char"
case adVarChar:typ = "VarChar"
case adLongVarChar:typ = "LongVarChar"
case adWChar:typ = "Text" ''WChar类型 SQL中为Text
case adVarWChar:typ = "VarChar" ''VarWChar
case adLongVarWChar:typ = "Text" ''LongVarWChar
case adBinary:typ = "Binary"
case adVarBinary:typ = "VarBinary"
case adLongVarBinary:typ = "LongBinary"''LongVarBinary
case adChapter:typ = "Chapter"
case adPropVariant:typ = "PropVariant"
case else:typ = "Unknown"
end select
End Function

''==================================================================返回字段类型列表
Function fieldtypelist(n)
dim strlist,str1,str2
strlist = "<select name=""field_type"">"
if session("dbtype") = "access" then
strlist = strlist & "<option value=""VarChar"">文本</option>"
strlist = strlist & "<option value=""Text"">备注</option>"
strlist = strlist & "<option value=""Bit"">(是/否)</option>"
strlist = strlist & "<option value=""TinyInt"">数字(字节)</option>"
strlist = strlist & "<option value=""SmallInt"">数字(整型)</option>"
strlist = strlist & "<option value=""Integer"">数字(长整型)</option>"
strlist = strlist & "<option value=""Single"">数字(单精度)</option>"
strlist = strlist & "<option value=""Double"">数字(双精度)</option>"
strlist = strlist & "<option value=""Numeric"">数字(小数)</option>"
strlist = strlist & "<option value=""GUID"">数字(同步ID)</option>"
strlist = strlist & "<option value=""DateTime"">时间/日期</option>"
strlist = strlist & "<option value=""Money"">货币</option>"
strlist = strlist & "<option value=""Binary"">二进制</option>"
strlist = strlist & "<option value=""LongBinary"">长二进制</option>"
strlist = strlist & "<option value=""LongBinary"">OLE 对象</option>"

else
strlist = strlist & "<option value="""">选择类型</option>"
strlist = strlist & "<option value=""BigInt"">bigint</option>"
strlist = strlist & "<option value=""Binary"">binary(二进制数据类型)</option>"
strlist = strlist & "<option value=""Bit"">bit(整型)</option>"
strlist = strlist & "<option value=""Char"">char(字符型)</option>"
strlist = strlist & "<option value=""DateTime"">datetime(日期时间