。
表 4-5 BBS 用户表
第 3 页 共 16 页
字段名 ID 用户名 密码 电子信箱 临时身份 网址 表 4-6
类型
自动编号 文本 文本 文本 文本 文本
三、个人网站的实现
1.身份认证
主要代码如下: <% syhm=request("yhm") smm=request("mm") set rs=server.CreateObject("Adodb.recordset") sql="select * from alogin where yhm='"&;syhm&;"'" rs.open sql,conn if syhm="" then response.Write("管理员的名不能为空!") %>
xml:namespace prefix = a href=javascript />请输入密码!
<% response.end()
第 4 页 共 16 页
href=javascript:history.back()> 请 输 入 管 理 员 名 !
end if if syhm<>"chenqing" then response.write("您不是系统管理员!") %> 请 重 新 输 入 系 统 管 理 员 名 !
<% response.end() else if else %> 密码错误! 请重新 输 入密码!
<% 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") '检查各字段是否输入了数据 If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then Response.Write ("字段空白不接受!"
)
第 5 页 共 16 页
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("")%> |
Email: |
第 6 页 共 16 页
SIZE="4"
COLOR="#008080">
姓
名
:
"> <%=rs("email")%> |
| <%=rs("主题")%> |
| <%=rs("时间")%> |
内容 | <%=rs("内容")%> |
<% rs.movenext() Wend %> “留言簿”登录留言页面运行效果如图 2 所示 SIZE="4" COLOR="#008080"> 时 间 : SIZE="4" COLOR="#008080"> 主 题 :
第 7 页 共 16 页
⑶聊天室
图 2 留言簿登录留言界面
3 . 聊天室
(1)聊天室信息输入界面其主要代码如下:
<% mywords = Request("message") oneSentence = ":" &; Session("username") oneSentence = oneSentence &; "编号:" &; Session("no")&; "说: " &; my
words Application.Lock() Application("talk")=Application("talk")&; oneSentence &; "
" Application.UnLock() %>
第 8 页 共 16 页
(2) 聊天信息显示页面其主要代码如下:
<% Response.Write(Application("talk")) %> “聊天室”聊天界面运行效果如图 3 所示。
第 9 页 共 16 页
图 3 聊天室聊天界面 4.通讯录 4.通讯录 通讯录的功能是保存