<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> 查看留言 签写留言
<%If request("ac")="add" then Response.Write("签写留言") else Response.Write("查看留言") end if%>
<%If request("ac")="" then%>
    <% Set mypage=new xdownpage mypage.getconn=conn mypage.getsql="select * from "&tbname&"_Guestbook where yn=1 order by id desc" mypage.pagesize=10 set rs=mypage.getrs() NoI=0 for i=1 to mypage.pagesize if not rs.eof then NoI=NoI+1 %>
  • <%if rs("ReContent")<>"" then%> <%end if%>
    <%=NoI%>.<%If year(rs("AddTime"))&"-"&month(rs("AddTime"))&"-"&day(rs("AddTime"))=""&date&"" then Response.Write(" ") end if%><%=rs("Title")%> <%=left(rs("UserName"),15)%> <%=rs("AddTime")%> IP:<%=iparray(rs("AddIP"))%>
    <%=dvHTMLEncode(rs("Content"))%>

    管理员回复:<%=rs("ReContent")%>
    (回复时间:<%=rs("ReTime")%>)
  • <% rs.movenext else exit for end if next %>
    <%=mypage.showpage()%>
<%elseif request("ac")="add" then%>
大名: " Readonly style="width:150px;border:1px solid #ccc;">
主题:
内容:
验证码: 看不清楚请点击刷新验证码
<%elseif request("ac")="post" then dim UserName,Title,Content UserName = CheckStr(trim(request.form("UserName"))) Title = CheckStr(trim(request.form("Title"))) Content = request.form("Content") mycode = trim(request.form("code")) if mycode<>Session("getcode") then Call Alert("请输入正确的认证码!",-1) end if If ChkSB(Content)=false Then Call Alert("请不要乱发信息!",-1) end if If session("postgstime")<>"" then posttime8=DateDiff("s",session("postgstime"),Now()) if posttime8
<%Call ShowAD(3)%>
热门文章
    <%Call ShowArticle(0,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
图片推荐
    <%Call ShowImgArticle(0,4,10,"no","DateAndTime desc,ID desc")%>
<%=Copy%>