中小型网站建设与管理第二版教参.doc

ASP实例：网页重定向 %@ Language=VBScript % html title 网页重定向 /title body % 根据来访IP地址来进行判断,如果为本地 地址则进入欢迎页面,否则显示出错信息. dim address address = request.servervariables(REMOTE_ADDR) if address= then 如果为本地,则显示欢迎页面. response.write 你好,欢迎进入本站点. else 否则显示出错信息. response.write 对不起,你无权查看内部站点. end if % /body /html ASP实例：测试WEB服务器环境 HTML HEAD TITLEWEB服务器测试/TITLE /HEAD BODY Script language=vbscript runat=server response.write table border=1 response.write trtd脚本引擎/tdtd response.write ScriptEngine() /td/tr response.write trtd编译版本/tdtd response.write ScriptEngineBuildVersion() /td/tr response.write trtd主 版 本/tdtd response.write ScriptEngineMajorVersion() /td/tr response.write trtd次 版 本/tdtd response.write ScriptEngineMinorVersion() /td/tr response.write /table /script /body ASP实例：模拟订单 %@ Language=VBScript % HTML TITLE 模拟订单 /TITLE BODY 请选择你所要订购的水果 hr FORM ACTION=order.asp input name=fruit type=checkbox value=苹果苹果 Br input name=fruit type=checkbox value=香蕉香蕉 Br input name=fruit type=checkbox value=菠萝菠萝 Br input name=fruit type=checkbox value=桔子桔子 input type=submit value=订购 /FORM hr % if Request.QueryString(fruit).Count=0 then % 你没有订购水果 %else% 你订购了 % for each fruit in Request.QueryString(fruit) response.write brfont color=green fruit /font next end if % /BODY /HTML ASP实例：简易计算器 html title 简易计算器 /title body form action=calculator.asp method=post 操作数a: input type=text name=num1br 操作数b: input type=text name=num2br p 选择你要进行的操作br input type=radio name=operation value=加 checked加br input type=radio name=operation value=减减br input type=radio name=operation value=乘乘br input type=radio name=operation value=除除br input type=submitinput type=reset /form hr % dim n1,n2,op if request.form.count=0 then response.end end if n1=request.form(num1) n2=request.form(num2) op=request.form(operation) if op=加 then response.write n1 response.write + response.write n2 response.write = response.write clng(n1)+clng(n2) elseif op=减 then response.