用Asp读取Sqlserver的数据表 java读取sqlserver

<%

set conn = server.createobject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATASOURCE=211.111.12.1;UID=jevons;PWD=jevons;DATABASE=jevons"

sql1="select * from dbo.sysobjects where type notin('s','d','k')"
sql1="select * from dbo.sysobjects where type='u'"
set rscc = server.createobject("adodb.recordset")
set rs = server.createobject("adodb.recordset")
rscc.open sql1,conn,1,2

do while not rscc.eof


sql ="select * from "&rscc("name")

rs.open sql,conn,1,2
response.write"<hr>表名"&rscc("name")&"<br>"
if "1"="1" then
for i=0 to rs.fields.count-1

response.write "字段名:"&rs.fields(i).name&"<br>"
response.write "类型:"
if rs.fields(i).type="3" then
response.write "int"
if rs.fields(i).attributes="16" then response.write "自动编号字段"
if rs.fields(i).attributes="120" then response.write "允许空"
if rs.fields(i).attributes="24" then response.write "不允许空"
elseif rs.fields(i).type="129" then
response.write "char"
response.write"大小"&rs.fields(i).definedsize
if rs.fields(i).attributes="120" then response.write "允许空"
if rs.fields(i).attributes="24" then response.write "不允许空"
elseif rs.fields(i).type="201" then
response.write "text"
if rs.fields(i).attributes="234" then response.write "允许空"
if rs.fields(i).attributes="138" then response.write "不允许空"
elseif rs.fields(i).type="202" then
response.write "nvarchar"
response.write"大小"&rs.fields(i).definedsize
if rs.fields(i).attributes="8" then response.write " !不允许空"
if rs.fields(i).attributes="104" then response.write "!允许空"
elseif rs.fields(i).type="131" then
response.write "numeric"
if rs.fields(i).attributes="120" then response.write "允许空"
if rs.fields(i).attributes="24" then response.write "不允许空"
elseif rs.fields(i).type="2" then
response.write "smallint"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="11" then
response.write "bit"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="135" then
response.write "smalldatetime"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="203" then
用Asp读取Sqlserver的数据表 java读取sqlserver
response.write "ntext"
if rs.fields(i).attributes="234" then response.write "!允许空"
if rs.fields(i).attributes="138" then response.write " !不允许空"
elseif rs.fields(i).type="6" then
response.write "money"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="130" then
response.write "nchar"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="4" then
response.write "real"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="5" then
response.write "flat"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
elseif rs.fields(i).type="128" then
response.write "binary"
if rs.fields(i).attributes="120" then response.write "!允许空"
if rs.fields(i).attributes="24" then response.write " !不允许空"
else
response.write "未知"&rs.fields(i).type
end if

response.write "属性:"&rs.fields(i).attributes
response.write"-------------<br>"

next
end if
rs.close

'-------------------------------------
rscc.movenext
loop

'-------------------------------------testbegin------------------------------------
'表名 left_menu
'字段名: id
'类型:int 属性:32784-------------
'字段名: dpar_name
'类型:未知200 属性:104-------------
'字段名: dpar_par_id
'类型:int 允许空 属性:120-------------
'字段名: dpar_puth
'类型:未知200 属性:104-------------
'字段名: dpar_dpar_id
'类型:未知200 属性:104-------------
'字段名: dpar_limit
'类型:未知200 属性:104-------------


sql1="select * from left_menu"
set rstest = server.createobject("adodb.recordset")
rstest.open sql1,conn,1,2

response.write"<h1>left_menu</h1><tableborder=1>"

response.write"<tr><td>id</td><td>dpar_name</td><td>dpar_par_id</td><td>dpar_puth</td><td>dpar_dpar_id</td><td>dpar_limit</td></tr>"

do while not rstest.eof
response.write"<tr><td>"&rstest("id")&"</td><td>"&rstest("dpar_name")&"</td><td>"&rstest("dpar_par_id")&"</td><td>"&rstest("dpar_puth")&"</td><td>"&rstest("dpar_dpar_id")&"</td><td>"&rstest("dpar_limit")&"</td></tr>"
rstest.MoveNext

loop
rstest.close
set rstest=nothing
response.write "</table>"
'插入数据 国际经销商 15 into_jingxiaoshang.asp 0
'conn.execute("UPDATE cus_list SET opt_us
' sql="insert intoleft_menu(dpar_name,dpar_par_id,dpar_puth,dpar_limit)values('国际经销商','15','j_into_jingxiaoshang.asp','0')"
'conn.execute(sql)
'
' 表名 yucun_jingxiaoshang
' 字段名:id ' 类型:int 属性:32784-------------
' 字段名:sheng' 类型:int 允许空属性:120-------------
' 字段名:shi' 类型:int 允许空 属性:120-------------
' 字段名:jingxiaoshang_name' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_tele' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_mobi' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_fax' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_url' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_qq' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_msn' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_mail' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_job' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_post' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_addr' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_note' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_user' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_date' 类型:smalldatetime!允许空属性:120-------------
' 字段名:jingxiaoshang_men' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_good' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_price' 类型:未知200属性:104-------------
' 字段名:jingxiaoshang_way' 类型:未知200属性:104-------------
'alter table test add col_n int default('1')

'sql="alter table yucun_jingxiaoshang add inport_export intdefault('0')"
'conn.execute(sql)
'sql="update yucun_jingxiaoshang set inport_export =0"
'conn.execute(sql)


' sql1="select inport_export from yucun_jingxiaoshang"
'set rsinout = server.createobject("adodb.recordset")
'rsinout.open sql1,conn,1,2
'
' response.write"<h1>inport_export</h1><tableborder=1>"
'
'
' do while not rsinout.eof
' response.write"<tr><td>"&rsinout("inport_export")&"</td></tr>"
' rsinout.MoveNext
'
' loop
' rsinout.close
' set rsinout=nothing
' response.write "</table>"
'-------------------------------------testend------------------------------------------
set rs=nothing
set rscc=nothing

set conn=nothing

%>

  

爱华网本文地址 » http://www.aihuau.com/a/25101015/244392.html

更多阅读

制作规范格式的三线表 三线表的制作

制作规范格式的三线表——简介 在写毕业论文、科技论文的时候,要求用三线表。咋一听三线表,不知道是什么,其实三线表是常用标准用表。 三线表通常只有3条线——顶线、底线和栏目线(没有竖线)。其中的顶线、底线是粗线,栏目线是细线。三

Excel中数据透视表的使用 excel中的透视表怎么用

Excel中数据透视表的使用——简介Excel中数据透视表的使用 现在Excel在办公软件中已经很实用,得到了多数人的认可,里面非常强大的功能总能够给我们的工作带来方面。就像Excel中的公式、函数非常强大,可以帮助我们完成很多数据整理工作

怎样使用EXECL中的数据透视表入门篇 execl数据匹配

用EXECL中的数据透视表做统计非常方便,下面我用一个简单的例子给大家介绍下(本文使用的是MS OFFICE2007):假设我有个表格,要按月将不同列分别作统计步骤如下:点击“插入”-“数据透视表”点击图示中的按钮,选择数据透视表要统计

Python中的高级数据结构 python的数据结构

本文由 伯乐在线 - 熊崽Kevin 翻译自 pypix.com。欢迎加入技术翻译小组。转载请参见文章末尾处的要求。数据结构数据结构的概念很好理解,就是用来将数据组织在一起的结构。换句话说,数据结构是用来存储一系列关联数据的东西。在Python

声明:《用Asp读取Sqlserver的数据表 java读取sqlserver》为网友就你怂分享!如侵犯到您的合法权益请联系我们删除