仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 433|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网页编程之一个用来检察MS sql server表布局的一个...

[复制链接]
只想知道 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:09:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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。
第二个灵魂 该用户已被删除
沙发
发表于 2015-1-20 07:41:10 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
谁可相欹 该用户已被删除
板凳
发表于 2015-1-25 12:12:08 来自手机 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
老尸 该用户已被删除
地板
发表于 2015-1-27 17:29:12 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
5#
发表于 2015-2-1 17:03:24 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
蒙在股里 该用户已被删除
6#
发表于 2015-2-2 21:57:01 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
小女巫 该用户已被删除
7#
发表于 2015-2-25 02:22:52 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
简单生活 该用户已被删除
8#
发表于 2015-3-7 15:52:40 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
灵魂腐蚀 该用户已被删除
9#
发表于 2015-3-15 09:11:56 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
深爱那片海 该用户已被删除
10#
发表于 2015-3-21 22:51:38 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2025-1-6 19:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表