asp编写过程
编写过程
过程是一组能执行指定任务且具有返回值的脚本命令。您可以定义自己的过程,然后在脚本中反复调用它们。
您可以将过程定义放在调用过程的 .asp 文件中,也可以将通用过程放在一个共享的 .asp 文件中,然后用 SSI #include 指令将其包含进其他调用其过程的 .asp 文件中。您还可选择另一种方法,即把这些功能打包在 ActiveX 组件中。
定义过程
过程定义可出现在 <SCRIPT> 和 </SCRIPT> 标记内部且必须遵循声明脚本语言的规则。如果过程所用的语言与主脚本语言不同,则要使用 <SCRIPT> 元素。主脚本语言中的过程用脚本分界符 (<% 和 %>) 分隔。
用 HTML <SCRIPT> 标记时,必须使用两个属性来保证服务器端能够处理脚本。使用 <SCRIPT> 标记的语法是:
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
procedure definition
</SCRIPT>
RUNAT=SERVER 属性通知 Web 服务器在服务器上处理脚本。若不设置该属性,脚本将由客户端浏览器处理。LANGUAGE 属性决定此脚本块所用的脚本语言。您可以指定任何一种具有脚本引擎的语言。请使用 VBSCRIPT 指定 VBScript; 用 JSCRIPT 指定 JScript。若不设置 LANGUAGE 属性,将用主脚本语言解释此脚本块。
脚本块中的命令必须用所选的脚本语言形成一个或多个完整的过程。例如,以下命令定义 JScript 过程 MyFunction。
<HTML>
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
function MyFunction()
{
Response.Write("MyFunction Called")
}
</SCRIPT>
要点 不要在服务器端的 <SCRIPT> 标记内部包含任何不属于某个完整过程的一部分的脚本命令。由于执行顺序不可预测,所以不属于过程的命令可能会导致意外结果。另外,在过程内不能使用 ASP 输出表达式 <%=,而应使用 Response.Write。
调用过程
要调用过程,在命令中包含过程名即可。如果从 VBScript 中调用 JScript 过程,就必须在过程名后加上括号;如过程没有变量,就用空括号。不管是从 JScript 调用 VBScript 还是调用 JScript 过程,在过程后总要加上括号。
对于 VBScript,调用过程时要用 Call 关键字。如果调用的过程需要括号,变量表必须放在括号内。如果省略 Call 关键字,也必须省略变量表外的括号。如果用 Call 语法调用任何内建的或用户自定义的函数,函数的返回值将被丢弃。
下面将举例说明用两种不同的脚本语言(VBScript 和 JScript)
相关文档:
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.h ......
在编程过程中,经常需要页面之间的传值;特别是中文传递的时候,经常出现乱码现象,很是郁闷。下面是我在网上找到的一些方法,供大家参考。
1.设置web.config文件。(没有用过)
<system.web>
......
<globalization requestEncoding="gb2312" responseEncoding="gb2312" culture="zh-CN" fileEncoding="gb2 ......
摘自:http://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO组件名称
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’◆是否支持组件
’=============================================== ......
首先贴代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("这是修改之前的值:" & objDic.Item("key")(0))
objDic.Item("key")(1) = ob ......
<div class="scrollImgList1" id="scrollImgList1">
<div class="LeftBotton" onmousedown="ISL_GoUp_1()" onmouseup="ISL_StopUp_1()" onmouseout="ISL_StopUp_1()"></div>
<div class="Cont" id="ISL_Cont_1">
<div class="ScrCont">
<d ......