|东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|--在ASP中列出数据库中的表名和字段名的程序

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

在ASP中列出数据库中的表名和字段名的程序

<%

dsn = "DSN=DSNName"

Const adSchemaTables = 20

adSchemaColumns = 4

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.open dsn

Set rstSchema = oConn.OpenSchema(adSchemaColumns)

response.write "<table>"

response.write "<tr><td>Table name</td><td>field name</td><td>field type</td><td>is nullable</td><td>field size</td></tr>"

tablename=""

Do Until rstSchema.EOF

response.write "<tr><td>"

if rstSchema("Table_name") <> tablename then

response.write rstSchema("Table_name")

tablename = rstSchema("Table_name")

else

response.write " "

end if

response.write "</td><td>"& rstschema("column_Name") & "</td><td>"

select case rstschema("data_type")

case "130"

if rstschema("CHARACTER_MAXIMUM_LENGTH") = 1073741823 then

response.write "Memo"

else

response.write "Text"

end if

case 135

response.write "Date/Time"

case 3

response.write "Long Integer"

case 11

response.write "Yes/No"

case 131

response.write "Currency"

case else

response.write rstschema("data_type")

end select

response.write "</td><td>" & rstschema("is_nullable") & "</td><td>"

if rstschema("CHARACTER_MAXIMUM_LENGTH") <> 1073741823 then

response.write rstschema("CHARACTER_MAXIMUM_LENGTH")

else

response.write " "

end if

response.write "</td></tr>"

rstSchema.MoveNext

Loop

response.write "</table>"

%>

本站关键词：

|东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管||东莞域名空间|东莞广告公司|东莞广告设计|网站建设东莞|东莞网站制作|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|