中易网

怎么用VBscript制作一个简易聊天室?我姐姐 急要哇..

答案:1  悬赏:30  
解决时间 2021-11-08 11:32
  • 提问者网友:箛茗
  • 2021-11-08 00:32
怎么用VBscript制作一个简易聊天室?我姐姐 急要哇..
最佳答案
  • 二级知识专家网友:雾月
  • 2021-11-08 01:04
1、 打开Dreamweaver后,新建站点,选择新建的本地站点,右击创建文件夹,命名为比如chat,创建文件夹后,选择该文件夹,在该文件夹下新建两个ASP文件,分别命名为welcome.asp和chat.asp。2、 双击打开网页,选择welcome.asp网页,该网页制作为欢迎页面。在当前网页中输入文字,比如“欢迎进入聊天室”。可以选中“聊天室”将其字体颜色改为红色,字体大小也可以做适当的更改。将光标移置下一行,将插入栏切换于“表单”插入栏,插入表单。在“插入”菜单中选择插入一行三列的表格,表格的宽度我们设置为400像素,边框设为1,其它的默认。选择第一个单元格,在其中输入“呢称”,在第二单元格中,插入“文本字段”表单,第三单元格插入一个“提交”按钮。设置各表单的属性,首先将第一单元格中的字体居中,选择第二单元格中的“文本字段”,在属性面板中将其名称改为name,字段大小可以设为20。选择第三个单元格中的按钮,将“提交”改为“进入”选择“提交表单”动作(默认)。选择整个表单,在属性面板的动作中加入welcome.asp让其在判断错误后转回到当前页面。表单制作完成后,在绑定面板中“请求变量”,在类型中选择“Request.Form”,名称为“name”,点确定后,再请求“阶段变量”,将名称也设置为“name”,单击确定。将页面切换到代码视图,在顶端<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936”%>以下加入以下代码:<%If Request.Form(“name”)<>”” thenSession(“name”)=Request.Form(“name”)Response.Redirect(“chat.asp”)%><%End If %>3、 打开chat.asp网页,将插入栏切换至表单视图,插入表单。在插入菜单中选择表格,插入一个一行三列的表格,表格宽度设为400像素,边框为1,其它默认。在表格的第二个单元格中插入一个“文本字段”表单。第三个单元格中插入一个“按钮”表单。将第一个单元格的宽度设为80。选择第二个单元格中的“文本字段”,在属性面板中设置名称为say。第三个单元格中的按钮选中,在属性面板中,其名称将“提交”改为“发言”。选中整个表单,在动作中输入chat.asp。制作完成后,选择“绑定面板”点击添加,选择“请求变量”,选择类型为Request.Form,名称为say。再添加“应用程序变量”,名称定义为chat。完成后,拖动相应的变量名称至网页相应的位置,如将Request.Form(”name”)拖动至表格的第一个单元格。将Application.chat拖动至表格的下一行的相应位置。将网页切换置代码视图,在顶端<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936”%>以下加入以下代码:<%If Request.Form(“name”)=”” ThenResponse.Redirect(“welcome.asp”)%><%End If %><%If Request.Form(“say”)<>”” ThenApplication(“chat”)=session(“name”) & “说:” & Request.Form(“say”) & “<br>” & Application(“chat”)%><%End If %>4、右击选择“保存全部”将网页保存。选择welcome.asp网页,点击浏览。当我们不输任何内容,点击进入时,网页自动返回当前页,输入呢称后,点击进入将进入chat.asp页面。在文本字段中添加内容就可以在下面看到相应的发言内容。至此,简易的聊天室制作完毕。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息