<input type="c name="checkbox" value="checkbox"> </label 匿名发表 <input type="submit" value=" 提交 " Size="20"></td></tr> </form> </table> <p> <% '现在开始显示已有留言 Dim Sql,rs '声明变量 Sql="Select body,name,submit_date From guest " Sql=Sql & " Order By submit_date desc,id desc" '这里用了两个字段排序 SET rs=db.Execute(Sql) '返回一个Recordset对象 Do While Not rs.Eof '利用循环依次显示所有记录 %> <table border="0" borde <td colspan=2><hr></td> </tr> <tr> <td width=5% rowspan="2"> </td <tr> <td><%=rs("body")%></td> </tr> </table> <% rs.MoveNext '将记录指针移动到下一条记录 Loop %> </center> </body> </html>
conn.asp <% '这里只是建立数据库连接对象db。 Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.Mappath("guest.mdb") %>
add.asp <!--#Include file="conn.asp"--> <% Dim body '声明变量 body=Request.Form("b Dim sqla,name,sqlb,sql sqla = "Insert Into sth(name"qlb = "Values('" & name & "'" If body<>"" Then '如果留言内容不为空 sqla = sqla & ",body" sqlb =qlb & ",'" & body & "'" End If sqla = sqla & ",submit_date" sqlb = sqlb & ",'" & now() & "'" '插入系统时间为留言时间
<input type="c name="checkbox" value="checkbox"> </label 匿名发表 <input type="submit" value=" 提交 " Size="20"></td></tr> </form> </table> <p> <% '现在开始显示已有留言 Dim Sql,rs '声明变量 Sql="Select body,name,submit_date From guest " Sql=Sql & " Order By submit_date desc,id desc" '这里用了两个字段排序 SET rs=db.Execute(Sql) '返回一个Recordset对象 Do While Not rs.Eof '利用循环依次显示所有记录 %> <table border="0" borde <td colspan=2><hr></td> </tr> <tr> <td width=5% rowspan="2"> </td <tr> <td><%=rs("body")%></td> </tr> </table> <% rs.MoveNext '将记录指针移动到下一条记录 Loop %> </center> </body> </html>
conn.asp <% '这里只是建立数据库连接对象db。 Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.Mappath("guest.mdb") %>
add.asp <!--#Include file="conn.asp"--> <% Dim body '声明变量 body=Request.Form("b Dim sqla,name,sqlb,sql sqla = "Insert Into sth(name"qlb = "Values('" & name & "'" If body<>"" Then '如果留言内容不为空 sqla = sqla & ",body" sqlb =qlb & ",'" & body & "'" End If sqla = sqla & ",submit_date" sqlb = sqlb & ",'" & now() & "'" '插入系统时间为留言时间