<%if request("action1")="tw" then
if request("ynjd_content")="" then
response.write("")
else
sql="insert into ynjd(ynjd_name,ynjd_tel,ynjd_content,ynjd_sex) values('"&request.Form("ynjd_name")&"','"&request.Form("ynjd_tel")&"','"&request.Form("ynjd_content")&"','"&request.Form("ynjd_sex")&"')"
conn.execute(sql)
response.write("")
end if
end if
%>
<%
sql="select * from ynjd order by ynjd_id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
page=request.QueryString("page")
if IsNumeric(page) then
page=cint(page)
if page<1 then page=1
else
page=1
end if
everypage=2
rs.pagesize=everypage
if rs.bof and rs.eof then
response.Write("no messgae now")
else
page_count=rs.pagecount
rs.AbsolutePage=page
end if
%>
<% do while not rs.eof and j
<%if session("sex")=1 then %>
<%else%>
<%end if%>
|
<%=rs("ynjd_name")%> |
|
在线留言内容:
|
留言时间:<%=rs("ynjd_date")%> |
|
<%=rs("ynjd_content")%> |
|
<%if rs("ynjd_hf")<>"" then%>
滔华回复 |
|
<%end if%>
<%
j=j+1
rs.movenext
loop
%>
记录 <%=page%> 到 <%=page_count%>
<%
if page=1 then
Response.Write"<< 前一页"
else
Response.Write"<< 前一页"
end if
for j=page-4 to page-1
if j>0 then%>
<%=j%>
<%end if
next
for j=page to page+4
if j<=page_count then
if j=page then%>
[<%=j%>]
<%else%>
<%=j%>
<%end if
end if
next
if page
下一页>>
<%else%>
下一页>>
<%end if%>
|
|