<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% call noid Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article where id = "&request.QueryString("ID")&"" rs.Open sql, conn, 1, 1 If rs.EOF Then Call infoback("不存在此数据，或者相关数据已被删除！") Else id = rs("id") mj_article_name = rs("mj_article_name") mj_article_sources = rs("mj_article_sources") mj_article_author = rs("mj_article_author") mj_article_category = rs("mj_article_category") mj_article_keywords = rs("mj_article_keywords") mj_article_content = rs("mj_article_content") mj_article_date = rs("mj_article_date") mj_article_hits = rs("mj_article_hits") mj_article_modify_date = rs("mj_article_modify_date") mj_article_password = rs("mj_article_password") End If rs.Close Set rs = Nothing Set rs = Nothing sql = "update mj_article set mj_article_hits = mj_article_hits + 1 where id="&request.QueryString("ID")&"" conn.Execute sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article where id < "&request.QueryString("ID")&" and mj_article_author=1 order by id desc " rs.Open sql, conn, 1, 1 If rs.EOF Then mj_next_article = "暂无" Else mj_next_article = (""&Left(rs("mj_article_name"), 8)&"") End If rs.Close Set rs = Nothing Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article where id > "&request.QueryString("ID")&" and mj_article_author=1 " rs.Open sql, conn, 1, 1 If rs.EOF Then mj_previous_article = "暂无" Else mj_previous_article = (""&Left(rs("mj_article_name"), 8)&"") End If rs.Close Set rs = Nothing Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category where id="&mj_article_category&"" rs.Open sql, conn, 1, 1 mj_article_category = ""&rs("mj_article_category_name")&"" rs.Close Set rs = Nothing If request.Form("submit") = "立即发表" Then If request.Form("mj_articlecomment_name") = "" Then Call infoback("姓名不能为空！") End If If request.Form("mj_articlecomment_content") = "" Then Call infoback("评论内容不能为空！") End If If request.Form("mj_articlecomment_verifycode") = "" Then Call infoback("验证码不能为空！") End If If CStr(Session("CheckCode"))<>CStr(Request.Form("mj_articlecomment_verifycode")) Then Call infoback("验证码错误！") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_articlecomment" rs.Open sql, conn, 1, 3 rs.addnew rs("mj_articlecomment_name") = request.Form("mj_articlecomment_name") rs("mj_articlecomment_id") = request.Form("mj_articlecomment_id") rs("mj_articlecomment_content") = request.Form("mj_articlecomment_content") rs("mj_articlecomment_date") = Now() rs.update Call infohref("评论成功！", "boywz.asp?id="&request.Form("mj_articlecomment_id")&"") End If %> <%=mj_article_name%> - <%=mj_site_name%>

<<< <%=rsboy("mj_admin_true_name")%>
<%=rsboy("mj_admin_signature")%>

" />
" />

<%=rsgirl("mj_admin_true_name")%> >>>
<%=rsgirl("mj_admin_signature")%>

loading
首页 >> <%=mj_article_category%> >> 正文
返回首页收藏本页
" />
  • 尊姓大名： *　验证码： 点击更换*
<%=rsboy("mj_admin_true_name")%>：
　
　
情侣博客标签
　
　
情侣博客统计
　
　
<%=mj_site_copyright%>