% tianjia=request("tianjia") if tianjia="ok" then name1=request("name") qq=request("qq") web=request("web") come=request("come") email=request("email") title=request("title") words=request("words") if name1="" then response.write"" response.end end if if words="" then response.write"" response.end end if sql="select * from ly" rs.open sql,conn,1,3 rs.addnew rs("name")=name1 rs("qq")=qq rs("web")=web rs("email")=email rs("title")=title rs("come")=come rs("words")=words rs("sj")=date() rs.update response.Write "" rs.close set rs=nothing conn.close set conn=nothing else %>
留言版:
<%
sql="select * from ly where yw=0 and sh=1 order by id desc"
rs.open sql,conn,1,3
if rs.recordcount=0 then
%>
暂时没有留言!
<%
else
page=cint(request("page"))
rs.pagesize=5
ys=rs.pagecount
zys=rs.recordcount
mys=rs.pagesize
if page<1 then page=1 end if
if page>ys then page=ys end if
dd=rs.pagecount
yss=10
if page 回复说:<%=rs("hfrr")%> <% rs.movenext next end if end if %> |
|
共有<%=zys%>条 <%=mys%>条/页 共有<%=ys%>条 当前第<%=page%>条 <%if page<>1 then%> 首页 上一页 <% end if if page<>ys then %> 下一页 未页 <%end if %> <% for i=t to w if i>dd then exit for end if if i=cint(request("page")) then l="" ll="" end if %> <%= l & i & ll %> <%next%> |