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）
相关文档：
今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKi ......
<%@Language="VBScript" CodePage="65001"%>
<% option explicit%>
<% on error resume next %>
<% Session.CodePage="65001" %>
<% response.charset="utf-8" %>
<%
dim conn,connstr,sql,rs,rs2,rs3
connstr="dbq=" & server.MapPath("../data091003/data09 ......
1，在web服务器上安装Oracle数据库客户端，这是连接Oracle数据库的基础（但，不一定是必须的）。
2，在客户端的Net Manager 中进行配置服务的名称，配置如图（这一点非常的重要以后的链接全都在这个服务名称的基础上进行的）
3，ASP链接服务的链接字符串和方法如下：
<%
connstr= "Provider=MSDAORA.1;Password=***; ......
很简单的教程，献给喜欢SEO的朋友们。把http://www.***.cn/article.asp?logID=26 替换成http://www.***.cn/article.asp?/a26.html。不需要通过iis+ISAPI_Rewrite做基于IIS的url rewrite
一、数据库很简单使用ACCESS，Data.mdb建立一个表Article，三个字段：ID，Title，Content；自动编号、标题、文章内容。
二、Config. ......
<%
function dt(v)
dim dy
dy=31
Marr=array(4,6,9,11)
yyyy=Year(Date())
mm=Month(Date())
dd=Day(Date())
if mm=2 then
if yyyy mod 400 or (yyyy mod 4=0 and yyyy mod v0=0) then
dy=29
else
dy=28
end if
else
for i=0 to 3
......
