留言板与公告板的设计与实现(5)

Email=\ %>

笔者:<%=rsData(\

日期:<%=Month(rsData(\

主题:<%=rsdata(\

rs.open \* From Details Where TitleID=\&\order by DetailID desc\

if not rs.eof Then %>

讨 论 看 板 <%

while not rs.eof

words=replace(\

email=\ %>

笔者:<%=rs(\ 日期:<%=Month(rs(\

主题:<%=rs(\ <%=words%>

<%

rs.movenext Wend End if

21

%>

参 与 讨 论

---

<%=request(\

5.detnew.asp的源代码 <%

Dim strConn

Dim objConnection

set objConnection=Server.CreateObject(\

strConn=\objConnection.open strConn Dim rsData,cmd

set rsdata=server.CreateObject(\set cmd=server.CreateObject(\

22

rsData.open \TitleID=Request(\Name=Request(\Email=request(\subject=request(\words=request(\

session(\session(\

if subject=\ msg=\信息输入不完整，请重新输入！\ session(\ session(\else

rsData.Addnew

rsData(\ rsData(\ rsData(\ rsData(\ rsData(\ rsData.update

msg=\您的意见已经加入讨论主题中！\ Session(\ Session(\

set cmd.activeConnection=rsData.ActiveConnection

sql=\

cmd.CommandText=sql cmd.execute end if

Response.Redirect \ %>

23

24