|
第五章 内容详细设计 http://www.paper51.com 5.1程序变量的定义与应用 paper51.com 本系统中的变量可以定义可以不定义只有几个做了专门的定义 内容来自论文无忧网 www.paper51.com
db 是连接数据库的变量 内容来自www.paper51.com rs 记录集对象 内容来自www.paper51.com strsql SQL对象 内容来自论文无忧网 www.paper51.com 5.2 模块详细设计 paper51.com 5.2.1 聊天室 http://www.paper51.com 关于聊天室的所有源程序都在xyl/lts下,分别如下: paper51.com index.asp---聊天室首页 http://www.paper51.com
chat.asp----聊天界面框架主文件 内容来自www.paper51.com input.asp---输入聊天内容文件 copyright paper51.com main.asp---显示聊天信息文件 paper51.com exit.asp----退出聊天文件 copyright paper51.com 聊天室首页主要显示当前在线人数,并要求用户输入昵称后进入聊天界面. 内容来自论文无忧网 www.paper51.com 程序如下: paper51.com
<ScriptLanguage="JavaScript"> 内容来自论文无忧网 www.paper51.com <!-- 内容来自www.paper51.com function check_Null(){ http://www.paper51.com
if(document.form1.user_name.value==""){ 内容来自www.paper51.com alert("昵称不能为空!"); 内容来自论文无忧网 www.paper51.com
returnfalse; http://www.paper51.com } http://www.paper51.com returntrue; copyright paper51.com } http://www.paper51.com copyright paper51.com // --> 内容来自www.paper51.com </Script> copyright paper51.com <table width="69%" height="158"border="1" align="center"bgcolor="#CCFFFF"> http://www.paper51.com
<tr> paper51.com
<td><h2align="center">聊天室</h2> 内容来自论文无忧网 www.paper51.com <center> 内容来自www.paper51.com <%=Application("user_online")%>人在线 内容来自论文无忧网 www.paper51.com <p> http://www.paper51.com
<form method="post" action="chat.asp"name="form1" onsubmit="JavaScript: returncheck_Null();"> 内容来自论文无忧网 www.paper51.com 输入昵称 内容来自www.paper51.com <input type="text" name="user_name"size="10"> paper51.com <input name="submit" type="submit" value=" 进 入"> copyright paper51.com </form> copyright paper51.com
</center> 内容来自论文无忧网 www.paper51.com
<divalign="center"></div></td> 内容来自www.paper51.com
</tr> http://www.paper51.com </table> copyright paper51.com 框架主文件程序如下: 内容来自www.paper51.com <html> 内容来自www.paper51.com <head> http://www.paper51.com
<title>聊天室</title> paper51.com </head> 内容来自论文无忧网 www.paper51.com <% 内容来自论文无忧网 www.paper51.com
Session("user_name")=Request("user_name") 内容来自论文无忧网 www.paper51.com
Dim sayStr http://www.paper51.com 内容来自论文无忧网 www.paper51.com sayStr="来自"& Request.ServerVariables("Remote_Addr")& "的" 内容来自www.paper51.com sayStr=sayStr &"<b>" & Session("user_name") &"</b>" 内容来自论文无忧网 www.paper51.com sayStr=sayStr & "于"& Time & "来临" http://www.paper51.com sayStr="<fontcolor='blue'>" & sayStr & "</font>" copyright paper51.com Application.Lock copyright paper51.com Application("show")=sayStr & "<br>" & Application("show") 内容来自论文无忧网 www.paper51.com Application("user_online")=Application("user_online")+1 http://www.paper51.com %> copyright paper51.com <framesetrows="*,14%"> http://www.paper51.com <framename="main" src="main.asp" > 内容来自www.paper51.com <framename="input" src="input.asp"> http://www.paper51.com
<noframes> 内容来自论文无忧网 www.paper51.com <bodyscroll="no"> 内容来自论文无忧网 www.paper51.com <p>此网页使用了框架，但您的浏览器不支持框架。</p> copyright paper51.com
</body> paper51.com
</noframes> 内容来自论文无忧网 www.paper51.com </frameset> 内容来自论文无忧网 www.paper51.com
</html> http://www.paper51.com 输入聊天内容文件用来输入发言,并可以选择着色和表情程序如下： 内容来自www.paper51.com <html> copyright paper51.com <head> 内容来自论文无忧网 www.paper51.com
<title>发言区</title> http://www.paper51.com </head> 内容来自www.paper51.com <body bgcolor="#CCFFFF" topmargin="0"leftmargin="0" onload="document.form1.say.focus();"> http://www.paper51.com <formmethod="post" action="" name="form1"> http://www.paper51.com 发言: paper51.com copyright paper51.com <inputtype="text" name="say" size=40 > copyright paper51.com <inputtype="submit" value="发言" > copyright paper51.com <br> 内容来自论文无忧网 www.paper51.com 颜色: 内容来自www.paper51.com <selectname="mycolor" style="font-size:12px"> 内容来自论文无忧网 www.paper51.com
<%If Request("mycolor")="#000000" Then %> copyright paper51.com <optionvalue="#000000" style="color:#000000" selected>黑色</option> 内容来自论文无忧网 www.paper51.com
<%Else %> http://www.paper51.com
<optionvalue="#000000" style="color:#000000" >黑色</option> paper51.com <%End If %> http://www.paper51.com <%If Request("mycolor")="#FF0000" Then %> 内容来自论文无忧网 www.paper51.com <optionvalue="#FF0000" style="color:#FF0000" selected>红色</option> copyright paper51.com <%Else %> http://www.paper51.com <optionvalue="#FF0000" style="color:#FF0000" >红色</option> http://www.paper51.com <%End If %> http://www.paper51.com
<%If Request("mycolor")="#FFFF00" Then %> paper51.com <optionvalue="#FFFF00" style="color:#FFFF00" selected>黄色</option> 内容来自www.paper51.com <%Else %> paper51.com
<optionvalue="#FFFF00" style="color:#FFFF00" >黄色</option> http://www.paper51.com <%End If %> paper51.com
<%If Request("mycolor")="#3333FF" Then %> 内容来自www.paper51.com copyright paper51.com <optionvalue="#3333FF" style="color:#3333FF" selected>蓝色</option> copyright paper51.com <%Else %> 内容来自www.paper51.com <optionvalue="#3333FF" style="color:#3333FF" >蓝色</option> paper51.com <%End If %> copyright paper51.com
</select> 内容来自论文无忧网 www.paper51.com 表情: copyright paper51.com <selectname="myemote" style="font-size:12px"> 内容来自www.paper51.com <optionvalue="无" selected>无 paper51.com
<optionvalue="开心">开心 http://www.paper51.com
<optionvalue="忧伤">忧伤 paper51.com <optionvalue="哭">哭 http://www.paper51.com <optionvalue="微笑">微笑 paper51.com
<optionvalue="怀疑">怀疑 copyright paper51.com </select> http://www.paper51.com       内容来自www.paper51.com <ahref="exit.asp" target="_top">离开聊天室</a> copyright paper51.com </form> 内容来自www.paper51.com
<% copyright paper51.com
IFRequest("say")<>"" Then copyright paper51.com Dimsay,mycolor,myemote,user_name http://www.paper51.com
user_name=Session("user_name") copyright paper51.com
say=Server.HtmlEncode(Request("say")) paper51.com mycolor=Request("mycolor") paper51.com myemote=Request("myemote") 内容来自www.paper51.com Ifmyemote="无" Then 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com myemote="" copyright paper51.com
End If copyright paper51.com Dim sayStr 内容来自论文无忧网 www.paper51.com sayStr="<small>"& user_name & Time & myemote & "说：</small>" 内容来自论文无忧网 www.paper51.com sayStr=sayStr& "<font color='" & mycolor & "'>"& say &"</font>" http://www.paper51.com
Application.Lock paper51.com Application("show")=sayStr & "<br>" & Application("show") copyright paper51.com IfLen(Application("show"))>10000 Then paper51.com Application("show")=Mid(Application("show"),1,10000) 内容来自论文无忧网 www.paper51.com
End If copyright paper51.com Application.Unlock copyright paper51.com End If 内容来自论文无忧网 www.paper51.com %> 内容来自论文无忧网 www.paper51.com
</body> copyright paper51.com </html> paper51.com
显示聊天信息文件main.asp 内容来自www.paper51.com 这个文件很简单,就是将application中的信息写出来。页面每隔5秒自动控制刷新一次，程序如下： copyright paper51.com <% 内容来自论文无忧网 www.paper51.com
Response.WriteApplication("show") paper51.com %> copyright paper51.com 5.2.2留言板的设计 paper51.com
add.asp---添加留言 内容来自论文无忧网 www.paper51.com
delete.asp-删除留言 内容来自论文无忧网 www.paper51.com
lyb.asp---留言板主页 paper51.com
留言板主页程序主要加了个分页显示 内容来自论文无忧网 www.paper51.com 添加留言程序如下： 内容来自www.paper51.com <% option explicit%> copyright paper51.com <%Response.Buffer=True%> 内容来自论文无忧网 www.paper51.com <% copyright paper51.com
dim db paper51.com set db=server.CreateObject("adodb.connection") http://www.paper51.com
db.Open "driver={microsoft Access driver(*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb") 内容来自论文无忧网 www.paper51.com %> paper51.com
<% 内容来自论文无忧网 www.paper51.com Dimtitle,body,name,email copyright paper51.com title=Request.Form("title") paper51.com body=Request.Form("body") paper51.com name=Request.Form("name") copyright paper51.com email=Request.Form("email") 内容来自论文无忧网 www.paper51.com DimSql,sValues http://www.paper51.com
Sql ="Insert Into guest(name" paper51.com sValues ="Values('" & name & "'" paper51.com
Sql = Sql& ",title" 内容来自论文无忧网 www.paper51.com sValues = sValues& ",'" & title & "'" http://www.paper51.com Ifbody<>"" Then copyright paper51.com Sql= Sql & ",body" 内容来自www.paper51.com sValues= sValues & ",'" & body & "'" paper51.com
End If copyright paper51.com Ifemail<>"" Then 内容来自www.paper51.com Sql= Sql & ",email" 内容来自www.paper51.com
sValues= sValues & ",'" & email & "'" 内容来自论文无忧网 www.paper51.com copyright paper51.com End If 内容来自www.paper51.com Sql = Sql& ",submit_date" http://www.paper51.com sValues =sValues & ",'" & date & "'" http://www.paper51.com Sql = Sql& ") " & sValues & ")" paper51.com db.Execute(Sql) copyright paper51.com db.Close http://www.paper51.com Response.Redirect"lyb.asp" http://www.paper51.com %> copyright paper51.com
删除留言程序如下： paper51.com <% option explicit%> 内容来自www.paper51.com <%Response.Buffer=True%> paper51.com <% 内容来自www.paper51.com dim db copyright paper51.com set db=server.CreateObject("adodb.connection") 内容来自www.paper51.com db.Open "driver={microsoft Access driver(*.mdb)};dbq=" &server.MapPath(".../data/yhzc.mdb") 内容来自论文无忧网 www.paper51.com %> 内容来自论文无忧网 www.paper51.com <html> 内容来自www.paper51.com <head> 内容来自www.paper51.com <title>删除留言</title> http://www.paper51.com </head> 内容来自www.paper51.com <body> copyright paper51.com <% paper51.com Dim sql,guest_id paper51.com guest_id=Request.QueryString("guest_id") paper51.com
sql="DeleteFrom guest Where guest_id =" & guest_id paper51.com db.Execute(sql) 内容来自论文无忧网 www.paper51.com
paper51.com db.Close paper51.com Response.Redirect "lyb.asp" 内容来自论文无忧网 www.paper51.com
%> paper51.com </body> 内容来自www.paper51.com </html> http://www.paper51.com |