简单ASP论坛DIY

阿泰的供稿

首先用Access新建一个数据库，设取名为luntan，数据表的名称为“information”，建立如下字段：“text”，“name”，“time”，并将“time”默认值设为Now（）

 1   
 2  
 3Set com = Server.CreateObject("ADODB.Connection")   
 4  
 5com.open"DRIVER={Microsoft Access Driver("luntan.mdb");   
 6  
 7pwd=information;DBQ="&Server.MapPath("luntan.mdb")   
 8  
 9sql="select*from information order by time Desc"   
10  
11Set rs=Server.CreateObject("ADODB.Recordest")   
12  
13rs.open sql,com,3,2   
14  
15if rs.EOF or rs.BOF then   
16  
17response.write"没有留言"   
18  
19else   
20  
21rs.MoveFirst   
22  
23while Not rs.EOF.   
24  
25response.write rs("name")&"发布于"&rs("time")&"

<br/>

1"   
2  
3response.write rs("text")&"

<br/>

<hr/>

 1"   
 2  
 3rs.MoveNext   
 4  
 5wend   
 6  
 7AbsolutePosition=N,(N=1,2,3......)   
 8  
 9end if   
10

接着是用户书写留言部分。设论坛页为“information.asp”，则

1<form action="information.asp" method="post">   
2  
3姓名：<input name="name" size="12" type="text"/><br/>   
4  
5留言：<textarea cols="30" name="text" row="4"></textarea><br/>
6<input type="submit" value="提交"/>
7</form>

最后一部分是将用户提交的表单数据记录到数据库中，则

 1   
 2  
 3if request("text")<>empty and request ("name")<>empty then   
 4  
 5Set comb=Server.CreateObject("ADODB.Connection")   
 6  
 7comb.Open"DRIVER={Microsoft Access Driver(*.mdb)};pwd=information;   
 8  
 9DBQ="&Server.MapPath("luntan.mdb")   
10  
11sql="select*from information"   
12  
13Set rsb=Server.CreateObject("ADODB.Recordset")   
14  
15rsb.open sql,comb,3,2   
16  
17rsb.AddNew   
18  
19rsb("text")=request("text")   
20  
21rsb("name")=request("name")   
22  
23rsb.update   
24  
25end if   
26