|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。server|剧本<%
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"ODBC名","用户名","暗码"
Sql1="select*fromdbo.sysobjectswheretypenotin(S,D,K)"
Sql1="select*fromdbo.sysobjectswheretype=U"
setrscc=server.createobject("ADODB.recordset")
setrs=server.createobject("ADODB.recordset")
rscc.opensql1,conn,1,2
dowhilenotrscc.eof
sql="select*from"&RSCC("name")
rs.opensql,conn,1,2
response.write"表名"&RSCC("name")&"
"
if"1"="1"then
fori=0tors.Fields.Count-1
response.write"字段名:"&rs.fields(i).name&"
"
response.write"范例:"
ifrs.fields(i).type="3"then
response.write"int"
ifrs.fields(i).Attributes="16"thenresponse.write"主动编号字段"
ifrs.fields(i).Attributes="120"thenresponse.write"同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"不同意空"
elseifrs.fields(i).type="129"then
response.write"char"
response.write"巨细"&rs.fields(i).DefinedSize
ifrs.fields(i).Attributes="120"thenresponse.write"同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"不同意空"
elseifrs.fields(i).type="201"then
response.write"text"
ifrs.fields(i).Attributes="234"thenresponse.write"同意空"
ifrs.fields(i).Attributes="138"thenresponse.write"不同意空"
elseifrs.fields(i).type="202"then
response.write"nvarchar"
response.write"巨细"&rs.fields(i).DefinedSize
ifrs.fields(i).Attributes="8"thenresponse.write"!不同意空"
ifrs.fields(i).Attributes="104"thenresponse.write"!同意空"
elseifrs.fields(i).type="131"then
response.write"numeric"
ifrs.fields(i).Attributes="120"thenresponse.write"同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"不同意空"
elseifrs.fields(i).type="2"then
response.write"smallint"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="11"then
response.write"bit"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="135"then
response.write"smalldatetime"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="203"then
response.write"ntext"
ifrs.fields(i).Attributes="234"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="138"thenresponse.write"!不同意空"
elseifrs.fields(i).type="6"then
response.write"money"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="130"then
response.write"nchar"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="4"then
response.write"real"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="5"then
response.write"flat"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
elseifrs.fields(i).type="128"then
response.write"binary"
ifrs.fields(i).Attributes="120"thenresponse.write"!同意空"
ifrs.fields(i).Attributes="24"thenresponse.write"!不同意空"
else
response.write"未知"&rs.fields(i).type
endif
response.write"属性:"&rs.fields(i).Attributes
response.write"-------------
"
next
endif
rs.close
-------------------------------------
rscc.MoveNext
loop
setrs=nothing
setrscc=nothing
setconn=nothing
%><%
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"ODBC名","用户名","暗码"
Sql1="select*fromdbo.sysobjectswheretypenotin(S,D,K)"
Sql1="select*fromdbo.sysobjectswheretype=U"
setrscc=server.createobject("ADODB.recordset")
setrs=server.createobject("ADODB.recordset")
rscc.opensql1,conn,1,2</p>ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。 |
|