asp学习
:
语法
--变量
<%= dim name
name="aa"
response.write(" my name is "& name);
%>
--数组
<%
dim fname (5),i
fname(0)= "aa"
fname(1)= "bb"
fname(2)= "cc"
fname(3)= "dd"
fname(4)= "ee"
for i= 0 to 5
response.write (fname(i) & "<br/>")
next %>
--循环生成html标题
<%
dim i
for i=1 to 6
response.write("<h" & i & "> header " & i & </h" & i & ">");
next
%>
---调用js
<%
sub vbproc(num1,num2)
response.write(num1*num2)
end sub
%>
p>Result: <%call vbproc(3,4)%></p>
---使用 method="get" 的表单
<%
dim fname
fname=Request.QueryString("fname")
If fname<>"" Then
Response.Write("你好!" & fname & "!<br />")
Response.Write("今天过得怎么样?")
End If
%>
---使用 method="post" 的表单
<%
dim fname
fname=Request.Form("fname")
If fname<>"" Then
Response.Write("您好!" & fname & "!<br />")
Response.Write("今天过得怎么样?")
End If
%>
----使用单选按钮的表单
<html>
<%
dim cars
cars=Request.Form("cars")
%>
<body>
<form action="/example/aspe/demo_aspe_radiob.asp" method="post">
<p>请选择您喜欢的汽车:</p>
<input type="radio" name="cars"
<%
if cars="Volvo" then Response.Write("checked")%>
value="Volvo">Volvo</input>
<br />
<input type="radio" name="cars"
<%if cars="Saab" then Response.Write("checked")%>
value="Saab">Saab</input>
<br />
<input type="radio" name="cars"
<%if cars="BMW" then Response.Write("checked")%>
value="BMW">BMW</input>
<br /><br />
<input type="submit" value="提交" />
</form>
<%
if cars<>"" then
Response.Write("<p>您喜欢的汽车是" & cars & "</p>")
end if
%>
</body>
</html>
--cookie
--设置cookie
<%
Response.Cookies("firstname")="Alex"
Response.Cookies("firstname").Expires=#May 10,2020#
%>
--cookie取值
<%
fname=Request.Cookies("firstname")
response.write("Firstname=" & fname)
%>
带有键的 cookie
<%
Response.Cookies("user")("firstname")="John"
Response.Cookies("user")("lastname")="Adams"
Response.Cookies("user")("country")="UK"
Response.Cookies("user")("age")="25"
%>
---读取所有的 cookie
<%
dim x,y
for each x in Request.Cookies
response.write("<p>")
if Request.Cookies(x).HasKeys then
for each y in Request.Cookies(x)
response.write(x & ":" & y & "=" & Request.Cookies(x)(y))
response.write("<br />")
next
else
Response.Write(x & "=" & Request.Cookies(x) & "<br />")
end if
response.write "</p>"
next
%>
----如何应对不支持 cookie 的浏览器?
您可以向 URL 添加参数:
<%
fname=Request.querystring("fname")
lname=Request.querystring("lname")
response.write("<p>Hello " & fname & " " & lname & "!</p>")
response.write("<p>Welcome to my Web site!</p>")
%>
2. 使用表单
<%
fname=Request.form("fname")
lname=Request.form("lname")
response.write("<p>Hello " & fname & " " & lname & "!</p>")
response.write("<p>Welcome to my Web site!</p>")
%>
---#include 指令用于在多重页面上创建需重复使用的函数、页眉、页脚或者其他元素等。
关键词 virtual 指示路径以虚拟目录开始。
<!--#include virtual="somefilename"-->
<!--#include file ="somefilename"-->
----ASP 使用 CDOSYS 发送电子邮件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>
使用 CDOSYS 发送电子邮件
CDO (Collaboration Data Objects) 是一项微软的技术,设计目的是用来简化通信程序的创建。
CDOSYS 是 ASP 中的内置组件。我们会向您展示如何使用该组件来发送电子邮件。
CDONTs 怎么样?
微软已经在 Windows 2000、Windows XP 以及 Windows 2003 中淘汰了 CDONTs。如果您还在应用程序中使用 CDONTs,就需要更新代码,并使用新的 CDO 技术。
使用 CDOSYS 的实例
发送电子邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>
---发送带有 Bcc 和 CC 字段的文本邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>
----发送 HTML 邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>
---发送一封发送来自网站的网页的 HTML 邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3school.com.cn/asp/"
myMail.Send
set myMail=nothing
%>
发送一封发送来自电脑中文件的网页的 HTML 邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>发送一封带有附件的电子邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>使用远程服务器发送一封文本邮件:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'远程 SMTP 服务器的 IP 或名称
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'服务器端口
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>