5、打开页面和关闭页面时触发的事件过程
')"onunload="alert('再见,欢迎你再到这里来! ')"> 6、单击鼠标时触发的事件过程 dims functionc1(s) dimd d=s alert("你的地址为: "&d) endfunction 请输入你的地址:
7、移动鼠标时触发的事件过程
functionc1(
alert("您的鼠标正在进行移动操作")
endfunction
functionc2()
window.status="提示:
您的鼠标正在进行移动操作"
window.settimeout"c3()",1000'window.settimeout的用法是window.settimeout"过程名",时间其中时间是以毫秒计,默认3000
endfunction
functionc3()
window.status=""
endfunction
8、正在进行的动作改变时触发事件过程
dims,y
functionc1(s)
ifs<>""then
window.alert("您正在进行修改操作")
window.confirm("您想继续吗?
")
endif
endfunction
functionc2(y)
ify<5then
window.alert("您正在进行修改操作<5,请输入20以上")
endif
endfunction
请输入你的姓名:
请输入您的年龄:
9、分行排列字号依次增大的字
<%fori=1to7%>
您好!
欢迎您学习ASP技术
<%next%>
10、加法运算
(1)
a
10、加法运算
(2)
a
<%
a=request.Form("NumberA")
b=request.Form("NumberB")
ifa<>""andb<>""then
c=cdbl(a)+cdbl(b)
response.Write(a&"+"&b&"="&c)
endif
%>
11、运算结果
<%
a=Cdbl(request.Form("NumberA"))
b=Cdbl(request.Form("NumberB"))
c=a+b
response.Write(c)
%>
12、URL传递参数
(1)
UserName=Conquer&UserSex=男>用户信息
12、URL传递参数
(2)
<%
Uname=Request.QueryString("UserName")
Usex=Request.QueryString("UserSex")
Response.Write("用户姓名为:
"&Uname)
Response.Write("
")
Response.Write("用户性别为:
"&Usex)
%>
13、服务器端变量
<%
SIP=Request.ServerVariables("LOCAL_ADDR")
SName=Request.ServerVariables("SERVER_NAME")
SPort=Request.ServerVariables("SERVER_PORT")
CIP=Request.ServerVariables("REMOTE_ADDR")
CMethod=Request.ServerVariables("REQUEST_METHOD")
Response.Write("服务器IP:
"&SIP)
Response.Write("
")
Response.Write("服务器名称:
"&SName)
Response.Write("
")
Response.Write("服务器端口:
"&SPort)
Response.Write("
")
Response.Write("客户机IP:
"&CIP)
Response.Write("
")
Response.Write("请求方法:
"&Cmethod)
%>
14、登录事例
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"then
Uname=Request.Form("UserName")
Upass=Request.Form("UserPass")
Utype=Request.Form("UserType")
ifUtype="Teacher"then
ifUname="conquer"andUpass="conquer"then
Response.Write("欢迎您,"&uname)
else
Response.Write("账号密码错误")
endif
else
ifUname="student"andUpass="student"then
Response.Write("欢迎您,"&uname)
else
Response.Write("账号密码错误")
endif
endif
endif
%>
15、转向语句
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"Then
Uname=Request.Form("UserName")
Upass=Request.Form("UserPass")
ifUname="conquer"andUpass="conquer"Then
Response.Redirect("5-2-8.asp")
elseifUname="student"andUpass="student"Then
Response.Redirect("5-2-9.asp")
else
Response.Write("账号或密码错误")
Endif
Endif
%>
16、终止网页处理语句
欢迎访问我的网站
<%
Response.Write("现在时间为:
"&now())
Response.End()
Response.Write("欢迎下次再来")
%>
本站站长Conquer
17、清除缓冲区语句
<%
Response.Write("现在时间为:
"&now())
Response.Clear()
Response.Write("欢迎下次再来")
Response.Write("
")
%>
本站站长Conquer
18、Response事例
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"Then
Uname=Request.Form("UserName")
Upass=Request.Form("UserPass")
ifUname="conquer"andUpass="conquer"then
Response.Write("你的账号为:
"&Uname)
Response.Write("
")
Response.Write("你的密码为:
"&Upass)
Response.End()
Else
Response.Redirect("5-3-7.asp")
Endif
Endif
%>
账号:
密码:
19、单值Cookie事例
<%
Response.Cookies("Username")="Conquer"
Response.Cookies("UserAge")=20
Response.Cookies("Username").expires=#2010-1-1#
Response.Cookies("UserAge").expires=#2010-1-1#
%>
20、读Cookie事例
<%
Uname=Request.Cookies("Username")
Uage=Request.Cookies("UserAge")
Response.Write("你的姓名为:
"&UName)
Response.Write("
")
Response.Write("你的年龄为:
"&Uage)
%>
21、Cookie综合事例
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"Then
UName=Request.Form("UserName")'接收用户新输入的姓名
Cname=Request.Cookies("User")("LoginName")'接收存在Cookie中的姓名
Ccount=Request.Cookies("User")("LoginCount")'接收存在Cookie中的访问次数
Ctime=Request.Cookies("User")("LoginTime")'接收存在Cookie中的访问时间
IfCname=""Then'如果用户第一次访问本站
Ccount=0
Response.Write("这是您第1次访问本站")
Else'如果用户多次访问本站
ifCname=UnameThen'如果用户本次输入姓名和Cookie中的姓名一致
Response.Write("欢迎您再次访问本站"&Uname&"
")
Response.Write("您上次访问本站时间为:
"&Ctime&"
")
else'如果用户本次输入姓名和Cookie中的姓名不一致
Response.Write("您上次访问本站的姓名为:
"&Cname&"
")
Response.Write("您上次访问本站时间为:
"&Ctime&"
")
Response.Write("您本次访问本站的姓名为:
"&Uname&"
")
Endif
Response.Write("该计算机共访问本站:
"&Ccount+1&"次
")
Endif
'不管第几次访问都直接向Cookie里写入新内容
Response.Cookies("User")("LoginName")=Uname
Response.Cookies("User")("LoginCount")=Cint(Ccount)+1
Response.Cookies("User")("LoginTime")=now()
Response.Cookies("User").Expires=#2010-1-1#
Endif
%>
姓名:
22、登录事例
教师
学生
<%
ifRequest.ServerVariables("REQUEST_METHOD")="POST"then
Uname=Request.Form("UserName")
Upass=Request.Form("UserPass")
Utype=Request.Form("UserType")
ifUtype="Teacher"then
ifUname="mlq"andUpass="mlq"then
Response.Write("欢迎您,"&uname)
else
Response.Write("账号密码错误")
endif
else
ifUname="student"andUpass="student"then
Response.Write("欢迎您,"&uname)
else
Response.Write("账号密码错误")
endif
endif
endif
%>
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1