ASP编程：ASP做查询剖析器(Query Analyzer)(IV)
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的；查询剖析createTable.asp<%@LANGUAGE=VBScript%>
<%
OptionExplicit
Response.Buffer=True
Response.ContentType="text/html;charset=iso-8859-1"
--------------------------------------------------------------
---Declarations
--------------------------------------------------------------
DimintNumColumns,strTableName,intCurrentColumn,intTableNum
DimstrTable,booltableinfo,strsqlserver,strLog_in,strUser_password
--------------------------------------------------------------
---Initialization
--------------------------------------------------------------
strTable=request("choosetable")
booltableinfo=request("booltableinfo")
strsqlserver=request("sqlserver")
strLog_in=request("log_in")
strUser_password=request("user_password")
intNumColumns=request("howMany")
strTableName=request("tableName")
intTableNum=1
--------------------------------------------------------------
---Functions
--------------------------------------------------------------
--------------------------------------------------------------
SubOutputTableHeader()
response.write("<trbgcolor=""#ebf498"">"&vbCrLf)
response.write("<td><b>ColumnName</b></td>"&vbCrLf)
response.write("<td><b>DataType</b></td>"&vbCrLf)
response.write("<td><b>Size</b></td>"&vbCrLf)
response.write("<td><b>Null?</b></td>"&vbCrLf)
response.write("<td><b>Unique?</b></td>"&vbCrLf)
response.write("<td><b>PrimaryKey</b></td>"&vbCrLf)
response.write("</tr>"&vbCrLf&vbCrLf)
EndSub
--------------------------------------------------------------
SubOutputFieldRow(strTableName,intFieldNum)
response.write("<tr>"&vbCrLf)
response.write("<td><inputtype=textname=colum"&intFieldNum&"></td>"&vbCrLf)
response.write("<td><selectsize=1name=dtype"&intFieldNum&">"&vbCrLf)
IfintFieldNum=1Then
response.write("<optionvalue=""intIDENTITY(1,1)"">Identity</option>"&vbCrLf)
EndIf
response.write("<optionvalue=varchar>varchar</option>"&vbCrLf)
response.write("<optionvalue=text>text</option>"&vbCrLf)
response.write("<optionvalue=datetime>datetime</option>"&vbCrLf)
response.write("<optionvalue=money>money</option>"&vbCrLf)
response.write("<optionvalue=smallint>smallint</option>"&vbCrLf)
response.write("<optionvalue=int>int</option>"&vbCrLf)
response.write("<optionvalue=real>real</option>"&vbCrLf)
response.write("<optionvalue=float>float</option>"&vbCrLf)
response.write("<optionvalue=bit>bit</option>"&vbCrLf)
response.write("<optionvalue=varbinary>varbinary</option>"&vbCrLf)
response.write("<optionvalue=image>image</option>"&vbCrLf)
response.write("</select></td>"&vbCrLf)
response.write("<td><inputtype=textsize=3name=size"&intFieldNum&"></td>"&vbCrLf)
response.write("<td><selectname=nullbox"&intFieldNum&">"&vbCrLf)
response.write("<optionvalue=""DISALLOWNULL"">NotNull</option>"&vbCrLf)
</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失； 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。
页:
[1]