入密码!
<% end if end if rs.close set rs=nothing conn.close set conn=nothing %> smm=rs("mm") then response.Redirect(session("file"))
2 留言簿
※handle.asp:处理程序主要代码如下: <% '读取各字段的数据 Name = Request("Name") Email = Request("Email") Subject = Request("Subject") Memo = Request("Memo")
第 5 页 共 16 页
'检查各字段是否输入了数据 If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write ("字段空白不接受!") Response.End '不再处理以下的程序 End If '插入到数据库 set conn = Server.CreateObject("ADODB.Connection") conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &;_ Server.MapPath("lyb.mdb")) SQL = "INSERT INTO lyb(,email,主题,内容) VALUES('" &;_ Name &; "','" &;Email &; "','" &; Subject &; "','" &; Memo &; "')" 'Response.Write(SQL) conn.Execute(SQL) conn.close() Response.Redirect("display.asp") %> ※display.asp:显示程序主要代码如下: <% '连接数据库,做查询 set conn = Server.CreateObject("ADODB.Connection") conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &;_ Server.MapPath("lyb.mdb")) sql = "SELECT * FROM lyb ORDER BY 时间 DESC" set rs = conn.Execute( sql ) %> <% '按照的样式输出 While Not rs.EOF %>
<%=rs("")%>
第 6 页 共 16 页
SIZE="4"
COLOR="#008080">
姓
名
:
Email: "> <%=rs("email")%>
<%=rs("主题")%>
<%=rs("时间")%>
内容 <%=rs("内容")%>
<% rs.movenext() Wend %> “留言簿”登录留言页面运行效果如图 2 所示 SIZE="4" COLOR="#008080"> 时 间 : SIZE="4" COLOR="#008080"> 主 题 :
第 7 页 共 16 页
⑶聊天室
图 2 留言簿登录留言界面
3.聊天室 3. 聊天室
(1)聊天室信息输入界面其主要代码如下:
<% mywords = Request("message") oneSentence = ":" &; Session("username") oneSentence = oneSentence &; "编号:" &; Session("n
|
|
ASP课程设计报告.txt |