|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。<%@Language=VBScript%>
<%
Response.Buffer=true设置输出缓存,用于显示不同页面。
Onerrorresumenext忽略程序出错部分
IfRequest.ServerVariables("Request_Method")="GET"then
判断客户是以什么方式请求WEB页面
------------------------
客户登陆界面
------------------------
%>
<formmethod="POST"action="http://www.cs02.com/luo40.asp"><p>
<inputtype="text"name="nick"size="20"value="nick"style="background-color:rgb(192,192,192)"><br>
<inputtype="submit"value="进进聊天室"name="B1"style="color:rgb(255,255,0);font-size:9pt;background-color:rgb(0,128,128)">
<p><inputtype="hidden"name="log"size="20"value="1"><br></p>
</form>
<%
Response.End结束程序的处理
Else
Response.clear清空缓存中的内容
dimtalk
IfRequest.Form("nick")""then
判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
EndIf
------------------------
客户聊天界面
------------------------
%>
<formmethod="POST"action="http://www.cs02.com/luo40.asp"name=form1><p><%=Session("nick")%>说话:<inputtype="text"name="talk"size="50"><br>
<inputtype="submit"value="提交"name="B1">
<inputtype="reset"value="取消"name="B2"></p>
</form>
<AHREF="http://www.cs02.com/luo40.asp">离开</a><br><br>
<%
IfRequest.Form("log")1then
Iftrim(Request.Form("talk"))=""then
判断用户是否没有输进任何内容
talk=Session("nick")&"沉默是金。"
Else
talk=trim(Request.Form("talk"))
往失落字符后的空格
EndIf
Application.lock
Application("show")="<tableborder=0cellpadding=0cellspacing=0width=85%><tr><tdwidth=100%bgcolor=#C0C0C0></td></tr><tr><tdwidth=100%><fontcolor=#0000FF>来自"&Request.ServerVariables("remote_addr")&"的"&Session("nick")&time&"说:</font>"&talk&"</td></tr><tr><tdwidth=100%bgcolor=#C0C0C0></td></tr></table><br>"&Application("show")
Application.UnLock
Response.WriteApplication("show")
EndIf
EndIf
%>
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关. |
|