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

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>"