blog_cmd.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<%
if UserID=empty then
	response.Redirect("../common/showerr.asp?ErrType=1")
end if
%>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
  <tr>
    <td  bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">&nbsp;</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C">	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="200" valign="top" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><!--#include file="../include/blog_leftprv.asp"--></td>
        <td width="510" valign="top">
		<br>
<%
dim bev_msg
showid=request("showid")
	if showid="" then
		strSQL="select commend_id,commendcount from blog_topic where topic_id="&topicid
		bev_msg="推荐日记成功！"	
	else
		strSQL="select commend_id,commendcount from user_info where user_id="&showid	
		bev_msg="推荐Bloger成功！"
	end if	
	objrs.open strsql,objconn,1,3
	
	if objrs("commend_id")<>empty then
	dim arrcmd
	arrcmd=split(objrs("commend_id"),",")
	for each i in arrcmd
		if i=userid then response.Redirect("../common/showerr.asp?ErrType=6")
	next
	'for i=0 to ubound(arrcmd)
		'if arrcmd(i)=userid then response.Redirect("../common/showerr.asp?ErrType=6")
	'next
	end if
	
	'if instr(objrs("commend_id"),userid)>0 then response.Redirect("../common/showerr.asp?ErrType=6")
  	objrs("commendcount")=objrs("commendcount")+1
	if objrs("commend_id")<>"" then
		objrs("commend_id")=objrs("commend_id") & "," & cstr(userid)
	else
		objrs("commend_id")=cstr(userid)
	end if
	objrs.update
	objrs.close

	%>
		<table width="480" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#D6E7FF" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
          <tr>
            <td align="center"><%=bev_msg%><meta http-equiv='refresh' content=1;url='javascript:history.go(-1)'></td>
          </tr>
        </table>
          <tr>
        <td>&nbsp;</td>
      </tr>
    </table></td>
  </tr>
    </table></td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center">&nbsp;</td>
  </tr>
</table>
<link href="../include/main.css" rel="stylesheet" type="text/css">

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->