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

picHtml=\ end if %>

?<%=picHTML%>

<%=rs(\姓名\

E-mail:

<%=memo%>

<% End Sub %>

 

 

3．处理留言文件chuliliuyan.asp <%

name=request(\Email=request(\

14

topic=request(\memo=request(\pic=request(\

if name=\ showmessage \字段不能为空！\ response.end end if Dim strConn

Dim objConnection

set objConnection=Server.CreateObject(\strConn=\Source=\objConnection.open strConn Dim rsData

set rsdata=server.CreateObject(\rsData.open \rsData.AddNew

rsData(\姓名\rsData(\rsData(\主题\rsData(\留言\rsData(\图标\rsData.update

response.redirect \%> <%

Sub showmessage(msg) %>

<<%=msg%>

---

<%

end sub %>

15