留言簿 - <%=mj_site_name%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If request.Form("submit") = "立即发表" Then If request.Form("mj_guestbook_contact") = "" Then Call infoback("留言人不能为空！") End If If request.Form("mj_guestbook_content") = "" Then Call infoback("留言内容不能为空！") End If If request.Form("mj_guestbook_verifycode") = "" Then Call infoback("验证码不能为空！") End If If CStr(Session("CheckCode"))<>CStr(Request.Form("mj_guestbook_verifycode")) Then Call infoback("验证码错误！") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_guestbook" rs.Open sql, conn, 1, 3 rs.addnew rs("mj_guestbook_contact") = request.Form("mj_guestbook_contact") rs("mj_guestbook_content") = request.Form("mj_guestbook_content") rs("mj_guestbook_date") = Now() if ""&mj_site_guestbookms&""=1 then rs("mj_guestbook_display") = False rs.update Call infohref("留言已提交！感谢您的支持！管理员审核后即会显示在网站上。", "guestbook.asp") else rs("mj_guestbook_display") = true rs.update Call infohref("留言发表成功！感谢您的支持！", "guestbook.asp") end if End If %> 留言簿 - <%=mj_site_name%>

首页 >> 留言簿

【<%=ii%> 楼】<%=rs("mj_guestbook_contact")%>发表于 <%=rs("mj_guestbook_date")%>
<%=rs("mj_guestbook_content")%>
<% if rs("mj_guestbook_answer")<>"" then%>管理员回复：<%=rs("mj_guestbook_answer")%><%Else%>暂无回复<%end if%>

<% if allpage <> "" then call majia_page end if %>

情侣博客标签

　

·" target="<%=rs("mj_nav_open")%>"><%=rs("mj_nav_name")%>

　

情侣博客统计

　

总记录：<%=zong_tj%> 条
男记：<%=boy_tj%> 篇
留言数：<%=guest_tj%> 条
女记：<%=girl_tj%> 篇
相册数：<%=photofl_tj%> 条
评论：<%=articlecomment_tj%> 篇

　

<%=mj_site_copyright%>