ASP编程：ASP中查错之实例 command,Object,程序,元素

飘灵儿 发表于 2015-2-16 00:27:04

ASP编程：ASP中查错之实例

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全有如许一个法式，是对Application纠合中的元素停止举动的添加与删除，法式以下：
<%@ LANGUAGE=VBSCRIPT %>
<HTML>
<HEAD>
<TITLE>The Application Object</TITLE>
<STYLE TYPE="text/css">
BODY {font-family:Tahoma,Arial,sans-serif; font-size:10pt}
INPUT {font-family:Tahoma,Arial,sans-serif; font-size:9pt}
.heading {font-family:Tahoma,Arial,sans-serif; font-size:14pt; font-weight:bold}
.subhead {font-family:Tahoma,Arial,sans-serif; font-size:12pt; font-weight:bold; padding-bottom:5px}
.cite {font-family:Tahoma,Arial,sans-serif; font-size:8pt}
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<SPAN CLASS="heading">The ASP Application Object</SPAN><HR>


<% 'look for a command sent from the FORM section buttons
If Len(Request.Form("cmdAdd")) Then ' 使用是不是长度为0来判别
strVarName = Request.Form("txtVarName")
strVarValue = Request.Form("txtVarValue")
Application.Lock
Application(strVarName) = strVarValue ' 此处报错
Application.Unlock
End If
If Len(Request.Form("cmdRemoveThis")) Then
strToRemove = Request.Form("lstRemove")
Application.Lock
Application.Contents.Remove(strToRemove)
Application.Unlock
End If
If Len(Request.Form("cmdRemoveAll")) Then
Application.Lock
Application.Contents.RemoveAll
Application.Unlock
End If
%>

<P><DIV CLASS="subhead">The Application.Contents Collection</DIV>
<%
For Each objItem in Application.Contents
If IsObject(Application.Contents(objItem)) Then
Response.Write "Object reference: '" & objItem & "'<BR>"
ElseIf IsArray(Application.Contents(objItem)) Then
Response.Write "Array: '" & objItem & "' contents are:<BR>"
varArray = Application.Contents(objItem)
'note: the following only works with a one-dimensional array
For intLoop = 0 To UBound(varArray)
Response.Write " Index(" & intLoop & ") = " & varArray(intLoop) & "<BR>"
Next
Else
Response.Write "Variable: '" & objItem & "' = " _
& Application.Contents(objItem) & "<BR>"
End If
Next
%>
<P><DIV CLASS="subhead">The Application.StaticObjects Collection</DIV>
<%
For Each objItem in Application.StaticObjects
If IsObject(Application.StaticObjects(objItem)) Then
Response.Write "<OBJECT> element: ID='" & objItem & "'<BR>"
End if
Next
%>


<FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"> ' 使用Request.ServerVariables("SCRIPT_NAME")将表单提交给本身

<P><DIV CLASS="subhead">Add a value to the Application Object</DIV>
<INPUT TYPE="SUBMIT" NAME="cmdAdd" VALUE=" ">
Application("
<INPUT TYPE="TEXT" NAME="txtVarName" SIZE="15" VALUE="My_New_Value">
") = "
<INPUT TYPE="TEXT" NAME="txtVarValue" SIZE="20" VALUE="Testing, testing ...">
"<P>

<P><DIV CLASS="subhead">Remove a value from the Application Object</DIV>
<INPUT TYPE="SUBMIT" NAME="cmdRemoveThis" VALUE=" ">
Application.Contents.Remove("
<SELECT NAME="lstRemove" SIZE="1">
<%
For Each objItem in Application.Contents
Response.Write "<OPTION>" & objItem & "</OPTION>"
Next
%>
</SELECT>")<BR>
<INPUT TYPE="SUBMIT" NAME="cmdRemoveAll" VALUE=" ">
Application.Contents.RemoveAll

</FORM>

<P><DIV CLASS="subhead">Other Application Methods</DIV>
Application.Lock<BR>
Application.Unlock<P>


<HR><SPAN CLASS="cite">

老尸发表于 2015-2-16 02:49:20

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

因胸联盟 发表于 2015-3-1 15:34:55

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

深爱那片海 发表于 2015-3-1 16:19:37

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

活着的死人 发表于 2015-3-4 11:32:51

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

愤怒的大鸟 发表于 2015-3-11 19:15:15

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

透明发表于 2015-3-24 18:45:29

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

若相依 发表于 2015-3-26 07:17:04

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

再见西城 发表于 2015-3-26 21:07:51

掌握asp的特性而且一定要知道为什么。

海妖发表于 2015-3-27 08:09:32

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

金色的骷髅 发表于 2015-3-31 02:12:52

若天明 发表于 2015-4-13 20:04:19

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

飘飘悠悠 发表于 2015-4-22 22:00:47

那么，ASP.Net有哪些改进呢？

山那边是海 发表于 2015-4-26 20:21:28

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

冷月葬花魂 发表于 2015-5-4 23:40:09

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

分手快乐 发表于 2015-5-6 06:11:02

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

仓酷云 发表于 2015-6-27 05:03:30

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

再现理想 发表于 2015-6-30 00:25:49

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

蒙在股里 发表于 2015-7-11 20:22:29

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

页: [1]

仓酷云's Archiver

ASP编程：ASP中查错之实例