tuijian.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="header.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
  <tr>
    <td width="160" valign="top" bgcolor="#F8F8F8" nowrap><%
	Call MemberCenter
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call blogSearch%><br>
	</td>
    <td width="100%" valign="top" bgcolor="#FFFFFF"><%
	If memName<>Empty Then
		Dim TJ_Action,TJ_Message
		TJ_Action=Trim(Request.QueryString("action"))
		If TJ_Action="AddTJ" Then
			If Request.Form("tj_id")=Empty Or Request.Form("tj_Info")=Empty Then
				TJ_Message=TJ_Message&"出现错误：请将信息填写完整"
			Else
				TJ_Message=TJ_Message&"推荐成功：感谢支持！"
				znwl.ExeCute("INSERT INTO blog_tj(TagID,TJ_Info) VALUES ('"&CheckStr(Request.Form("tj_id"))&"','"&CheckStr(Request.Form("tj_Info"))&"')")
				znwl.ExeCute("UPDATE blog_tags set TjCount=TjCount+1 where TagName='"&CheckStr(Request.Form("tj_id"))&"'")
				SQLQueryNums=SQLQueryNums+1
			End If
			Response.Write("<div class=""msg_head""></div><div class=""msg_content"">"&TJ_Message&"<br><a href=""tuijian.asp"">点击返回</a></div>")
		Else%><div align="center"><strong>热门TAGS</strong></div><div class="content_main">
               <div class=""message""><%Call TagsList("All")%></div></div>
	<div class="content_head"><strong>热门推荐</strong> - 从当天15点到第二天9点只能推荐一次相同的标签</div><div class="content_main"><table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
	  <form name="blogTJAdd" method="post" action="tuijian.asp?action=AddTJ">
      <tr bgcolor="#FFFFFF">
        <td width="12%" align="center" nowrap>TAG名称：</td>
        <td width="54%"><select name="tj_id" id="tj_id"><option value="">请选择TAG</option>
		       <%Dim log_tjNums,log_tjNumI
			log_tjNums=Ubound(Arr_tj,2)
			For log_tjNumI=0 To log_tjNums
				Response.Write("<option value='"&Arr_tj(1,log_tjNumI)&"'>"&Arr_tj(1,log_tjNumI)&"</option>")
			Next%>
                     </select></td>
        </tr>
      <tr bgcolor="#EFEFEF">
        <td align="center" nowrap bgcolor="#FFFFFF">推荐理由：</td>
        <td bgcolor="#FFFFFF"><textarea name="tj_Info" cols="40" rows="3" wrap="VIRTUAL" id="tj_Info"></textarea></td>
      </tr>
      <tr bgcolor="#EFEFEF">
        <td align="center" nowrap bgcolor="#FFFFFF"></td>
        <td bgcolor="#FFFFFF"><input type="submit" name="Submit" value=" 提交 "></td>
        </tr></form>
    </table>
	</div><%
	End If
	Else
		Response.Write("<div class=""message""><strong>未注册用户不可以推荐TAGS</strong></div>")
	End If%></td>
 </tr>
</table>
<!--#include file="footer.asp" -->