动态网页制作实验题1.docVIP

《动态网页制作》实验题 1、S=12+32+52+．．．．+992请利用两种循环语句编写程序，计算Ｓ值． 答： % Option Explicit % html body % Dim IngSum,I lngSum=0 For I=1 To 99 IngSum=lngSum+I^2 Next Response.Write S=lngSum ingSum=0 I=1 While I=99 lngSum=lngSum+I^2 I=I+1 Wend Response.Write S=lngSum % /body /html 2、请开发一个页面，让用户通过下拉列表框选择自己想要访问新浪、搜狐还是网易网站，用户提交选择结果后自动打开该网站。 答： %Response.Buffer=True% html body form name=frmTest method=POST action= select name=selsite option value=新浪新浪/option option value=搜狐搜狐/option option value=网易网易/option /select /form % if Request.Form(selsite)=新浪 Then Response.Redirect Elseif Request.Form(selsite)=搜狐 Then Response.Redirect / Elseif Request.Form(selsite)=网易 Then Response.Redirect / End If % /body /html 3、开发一个函数，可以基本实现HTMLEncode方法的功能。（提示：使用Replace函数替换“、和”为对应的字符实体。 答： Function myHTMLEncode(strHtml) strHtml=Replace(strHtml,,lt;) strHtml=Replace(strHtml,,gt;) myHTMLEncode=strHtml End Function 4、编写程序实现一个简单的聊天室，要能显示发言人姓名、发言内容、发言人IP地址和发言时间。另外，要求过滤掉用户输入的“p、?br”等特殊字符。 答： html form id=form1 name=form1 method=post action= p align=center class=STYLE1 聊天室/p p align=center textarea name=text cols=70% rows=20 readonly=readonly/textarea /p p align=centernbsp; /p label div align=center昵称 input type=text name=tname / /div /label p align=center label聊天内容 input type=text name=ttalk / /label /p p align=center % function getipadd() ipadd=Request.ServerVariables(HTTP_X_FORWARDED_FOR) if ipadd= Then ipadd=Request.ServerVariables(REMOTE_ADDR) getipadd=ipadd end function % % set ipaddress=getipadd() % % set rsc=server.createobject(adodb.recordset) sqlc=insert into talk(pname,text,ipaddress,talktime) values(amp;request.Form(tname)amp;,amp;request.Form(ttalk)amp;,amp;request.Form(ipaddress)amp;,amp;FormatDateTime(now())amp;) rsc.open sqlc,conn,1,1 session.Timeout=30 set rsc=nothing % % text.value=request.Form(tname)+request.Form(ttalk)+request.Form(ipaddress)+now() % label i