<% if request("name")<> "" then Set conn = Server.CreateObject("ADODB.Connection") connstr="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" conn.Open connstr sql="select * from book order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("姓名")=request("name") rs("日期")= month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time() rs("性别")=request("sex") rs("来自")=request("form") rs("邮箱")=request("email") rs("主页")=request("homepage") rs("留言")=request("sujest") rs.update rs.close set rs=nothing conn.close set conn=nothing end if dim name ,sex,from,email,homepage,sujest,date dim conn dim connstr dim db dim sql dim rs Set conn = Server.CreateObject("ADODB.Connection") connstr="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" conn.Open connstr sql="select * from book order by 日期 desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize=10 fpage=CLng(request.querystring("page")) If fPage<1 Then fPage=1 If fPage=null Then fPage=1 If fPage>rs.PageCount Then fPage=rs.PageCount rs.AbsolutePage=fpage %> 爱心社留言版
爱心社留言版
首页≯≯留言版 管理管理

*姓名:
邮箱:

性别                   来自:
主页:
留言:
 
<% Do UNTIL rs.EOF %> <% rs.MoveNext loop %>
---------------------------------------------------------------------------------------------------------
留言者:<%=rs("姓名")%> 性别:<%=rs("性别")%> 来自:<%=rs("来自")%> EMAIL:<%=rs("邮箱")%> 主页: target="_blank" ><%=rs("主页")%> 留言日期:<%=rs("日期")%>
留言内容:<%=rs("留言")%>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
共<%=rs.recordcount%>条记录,每页显示<%=rs.pagesize%>条留言,共<%=rs.pagecount%>页: <% for i=1 to rs.pagecount response.write "第" & i & "页  " next %>
返回首页 | 社团章程 |机构设置 | 活动计划 | 会员列表 | 会员注册| 留言管理
Copyright © 2000-2002 , /www.xauat.edu.cn/, All Rights Reserved .
©爱心网 版权所有:
设计：micony
<% rs.close set rs=nothing conn.close set conn=nothing %>