ASP代码2.docx

1、ASP代码21、复制功能（二种方法）方法一：无标题文档 请输入一个编号： 你刚才输入的编号是： 方法二：（同方法一，修改部分见下） 2、命令按钮及文字的点击事件（body部分）        【关闭】3、a smiling face 4、文本框失去鼠标时触发的事件过程onblur事件 dim s function g(s) if s= then alert(你好,姓名不能为空，请重新输入) s= end if end function 输入你的姓名： 5、打开页面和关闭页面时触发的事件过程在另一个窗口打开此文件6、单击鼠标时触发的事件过程 di

2、m s function c1(s) dim d d=s alert(你的地址为：&d) end function 请输入你的地址： 7、移动鼠标时触发的事件过程 function c1( alert(您的鼠标正在进行移动操作) end function function c2() window.status=提示：您的鼠标正在进行移动操作 window.settimeout c3(),1000 window.settimeout的用法是window.settimeout 过程名,时间 其中时间是以毫秒计，默认3000 end function function c3() window.sta

3、tus= end function鼠标正在进行移动操作点击此处可以查看状态栏的信息 8、正在进行的动作改变时触发事件过程 dim s,y function c1(s) if s then window.alert(您正在进行修改操作) window.confirm(您想继续吗？) end if end functionfunction c2(y) if y5 then window.alert(您正在进行修改操作5,请输入20以上) end if end function 请输入你的姓名： 请输入您的年龄：   9、分行排列字号依次增大的字font size= 您好！ 欢迎您学习AS

4、P技术 10、加法运算（1） a + （“+”单独一行） 10、加法运算（2） a + （“+”单独一行） %a=request.Form(NumberA)b=request.Form(NumberB)if a and b then c=cdbl(a)+cdbl(b) response.Write(a &+ &b &= &c)end if%11、运算结果12、URL传递参数（1）用户信息12、URL传递参数（2）%Uname=Request.QueryString(UserName)Usex=Request.QueryString(UserSex)Response.Write(用户姓名为： &

5、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)Re

6、sponse.Write()Response.Write(服务器名称: &SName)Response.Write()Response.Write(服务器端口: &SPort)Response.Write()Response.Write(客户机IP: &CIP)Response.Write()Response.Write(请求方法: &Cmethod)%14、登录事例15、转向语句16、终止网页处理语句欢迎访问我的网站本站站长Conquer17、清除缓冲区语句%Response.Write(现在时间为： &now()Response.Clear()Response.Write(欢迎下次再来)R

7、esponse.Write()%本站站长Conquer18、Response事例%if Request.ServerVariables(REQUEST_METHOD)=POST Then Uname=Request.Form(UserName) Upass=Request.Form(UserPass) if Uname=conquer and Upass=conquer then Response.Write(你的账号为： &Uname ) Response.Write() Response.Write(你的密码为： &Upass) Response.End() Else Response.R

8、edirect(5-3-7.asp) End ifEnd if% 账号： 密码： 19、单值Cookie事例20、读Cookie事例%Uname=Request.Cookies(Username)Uage=Request.Cookies(UserAge)Response.Write(你的姓名为： &UName)Response.Write( )Response.Write(你的年龄为： &Uage)%21、Cookie综合事例%if Request.ServerVariables(REQUEST_METHOD)=POST Then UName=Request.Form(UserName) 接收

9、用户新输入的姓名 Cname=Request.Cookies(User)(LoginName) 接收存在Cookie中的姓名 Ccount=Request.Cookies(User)(LoginCount) 接收存在Cookie中的访问次数 Ctime=Request.Cookies(User)(LoginTime) 接收存在Cookie中的访问时间 If Cname= Then 如果用户第一次访问本站 Ccount=0 Response.Write(这是您第1次访问本站) Else 如果用户多次访问本站 if Cname=Uname Then 如果用户本次输入姓名和Cookie中的姓名一致

10、Response.Write(欢迎您再次访问本站 &Uname &) Response.Write(您上次访问本站时间为： &Ctime &) else 如果用户本次输入姓名和Cookie中的姓名不一致 Response.Write(您上次访问本站的姓名为： &Cname &) Response.Write(您上次访问本站时间为： &Ctime &) Response.Write(您本次访问本站的姓名为： &Uname &) End if Response.Write(该计算机共访问本站： &Ccount+1 &次) End if 不管第几次访问都直接向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#End if% 姓名： 22、登录事例 用户登陆 账号： 密码： 类型： 教师 学生