仓酷云

标题: ASP网页编程之一个用来检察MS sql server表布局的一个... [打印本页]

作者: 只想知道 时间: 2015-1-16 23:09
标题: ASP网页编程之一个用来检察MS sql server表布局的一个...
缺乏可以共同遵循的行业标准，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。

作者: 第二个灵魂 时间: 2015-1-20 07:41
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 谁可相欹 时间: 2015-1-25 12:12
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 老尸 时间: 2015-1-27 17:29
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: 仓酷云 时间: 2015-2-1 17:03
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 蒙在股里 时间: 2015-2-2 21:57
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 小女巫 时间: 2015-2-25 02:22
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 简单生活 时间: 2015-3-7 15:52
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 灵魂腐蚀 时间: 2015-3-15 09:11
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 深爱那片海 时间: 2015-3-21 22:51
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

欢迎光临仓酷云 (http://ckuyun.com/)