admincp.asp

1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询

	Edit_CateName=Split(Request.Form("cate_Name"),",")
	Edit_CateOrder=Split(Request.Form("cate_Order"),",")
	Edit_CateMoveTo=Split(Request.Form("Edit_CateMoveTo"),",")
	For Each Edit_CateEvery  IN Edit_CateID
		IF Edit_CateMoveTo(Edit_CateNums)<>0 Then
			Conn.ExeCute("UPDATE blog_Content SET log_CateID="&Edit_CateMoveTo(Edit_CateNums)&" WHERE log_CateID="&Edit_CateID(Edit_CateNums)&"")
			SQLQueryNums=SQLQueryNums+1
		End IF
		Conn.Execute("UPDATE blog_Category SET cate_Name='"&CheckStr(Edit_CateName(Edit_CateNums))&"',cate_Order="&Edit_CateOrder(Edit_CateNums)&" WHERE cate_ID="&Edit_CateEvery&"")
		SQLQueryNums=SQLQueryNums+1
		Edit_CateNums=Edit_CateNums+1
	Next
	IF Request.Form("cate_Dele")<>Empty Then
		Conn.Execute("DELETE * FROM blog_Category WHERE cate_ID IN ("&Request.Form("cate_Dele")&")")
		Conn.Execute("DELETE * FROM blog_Content WHERE log_CateID IN ("&Request.Form("cate_Dele")&")")
		SQLQueryNums=SQLQueryNums+2
	End IF
	Dim new_CateName,new_CateOrder
	new_CateName=CheckStr(Request.Form("new_CateName"))
	new_CateOrder=CheckStr(Request.Form("new_CateOrder"))
	IF new_CateName<>Empty AND new_CateOrder<>Empty Then
		Conn.Execute("INSERT INTO blog_Category(cate_Name,cate_Order) VALUES ('"&new_CateName&"',"&new_CateOrder&")")
		SQLQueryNums=SQLQueryNums+1
	End IF
	Application.Lock()
	Application(CookieName&"_blog_Category")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=category"">操作成功，请点击返回</a>")%></td>
                      </tr>
                      <%Else%>
                      <form name="edit_Category" method="post" action="admincp.asp?action=category&type=EditCate">
                        <tr>
                          <td align="center" valign="top" bgcolor="#FFFFFF"><table width="90%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
                              <tr bgcolor="#EFEFEF">
                                <td nowrap>删除？</td>
                                <td nowrap>名称</td>
                                <td nowrap>排序</td>
                                <td width="100%">操作</td>
                              </tr>
                              <%Dim Adm_CategoryListNums,Adm_CategoryNumI
	Adm_CategoryListNums=Ubound(Arr_Category,2)
	For Adm_CategoryNumI=0 To Adm_CategoryListNums
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center""><input name=""cate_Dele"" type=""checkbox"" id=""cate_Dele"" value="""&Arr_Category(0,Adm_CategoryNumI)&"""></td><td><input type=""hidden"" id=""cate_ID"" name=""cate_ID"" value="""&Arr_Category(0,Adm_CategoryNumI)&"""><input type=""text"" size=""15"" id=""cate_Name"" name=""cate_Name"" value="""&Arr_Category(1,Adm_CategoryNumI)&"""></td><td><input type=""text"" size=""5"" id=""cate_Order"" name=""cate_Order"" value="""&Arr_Category(2,Adm_CategoryNumI)&"""></td><td>移动此分类日志到：<select name=""Edit_CateMoveTo"" id=""Edit_CateMoveTo""><option value=""0"">选择分类</option>")
		Dim blog_MoveCateNumI
		For blog_MoveCateNumI=0 To Adm_CategoryListNums
			Response.Write("<option value='"&Arr_Category(0,blog_MoveCateNumI)&"'>"&Arr_Category(1,blog_MoveCateNumI)&"</option>")
		Next
		Response.Write("</select></td></tr>")
	Next
	Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap><b>添加</b>：</td><td><input type=""text"" size=""15"" id=""new_CateName"" name=""new_CateName""></td><td><input type=""text"" size=""5"" id=""new_CateOrder"" name=""new_CateOrder""></td><td></td></tr>")%>
                          </table></td>
                        </tr>
                        <tr>
                          <td align="center" bgcolor="#FFFFFF"><input type="Submit" name="Submit" value=" 确定编辑 ">
                          </td>
                        </tr>
                      </form>
                      <%End IF%>
                    </table>
            </table>
    </table>
      </div></td>
  </tr>
</table>
<%ElseIF Request.QueryString("action")="smilies" Then%><%ElseIF Request.QueryString("action")="keywords" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 关键字管理</td>
  </tr><%IF Request.QueryString("type")="editKeywords" Then
		Dim Edit_KeywordsID,Edit_KeywordsText,Edit_KeywordsURL,Edit_KeywordsImage,Edit_KeywordsEvery
		Edit_KeywordsID=CheckStr(Request.Form("Keywords_ID"))
		Edit_KeywordsText=CheckStr(Request.Form("Keywords_Text"))
		Edit_KeywordsURL=CheckStr(Request.Form("Keywords_URL"))
		Edit_KeywordsImage=CheckStr(Request.Form("Keywords_Image"))
		Conn.Execute("UPDATE blog_Keywords SET key_Text='"&Edit_KeywordsText&"',key_URL='"&Edit_KeywordsURL&"',key_Image='"&Edit_KeywordsImage&"' WHERE key_ID="&Edit_KeywordsID&"")
		SQLQueryNums=SQLQueryNums+1
		IF Request.Form("Keywords_Dele")<>Empty Then
			Conn.Execute("DELETE * FROM blog_Keywords WHERE key_ID="&Request.Form("Keywords_Dele"))
			SQLQueryNums=SQLQueryNums+1
		End IF
		Application.Lock()
		Application(CookieName&"_blog_Keywords")=""
		Application.UnLock()
		Response.Write("<tr><td align=""center"" bgcolor=""#FFFFFF"" height=""48""><a href=""admincp.asp?action=keywords"">操作成功，请点击返回</a></td></tr>")
	ElseIF Request.QueryString("type")="addKeywords" Then
		Dim new_KeywordsText,new_KeywordsURL,new_KeywordsImage
		new_KeywordsText=CheckStr(Request.Form("new_KeywordsText"))
		new_KeywordsURL=CheckStr(Request.Form("new_KeywordsURL"))
		new_KeywordsImage=CheckStr(Request.Form("new_KeywordsImage"))
		IF new_KeywordsText<>Empty AND new_KeywordsURL<>Empty Then
			Conn.Execute("INSERT INTO blog_Keywords(key_Text,key_URL,key_Image) VALUES ('"&new_KeywordsText&"','"&new_KeywordsURL&"','"&new_KeywordsImage&"')")
			SQLQueryNums=SQLQueryNums+1
		End IF
		Application.Lock()
		Application(CookieName&"_blog_Keywords")=""
		Application.UnLock()
		Response.Write("<tr><td align=""center"" bgcolor=""#FFFFFF"" height=""48""><a href=""admincp.asp?action=keywords"">操作成功，请点击返回</a></td></tr>")
		Else%>
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF">
	<div style="overflow-y: scroll;overflow-x:hidden;height: 400px;"><table width="98%" border="0" cellpadding="4" cellspacing="1" bgcolor="#DFDFDF">
  <tr bgcolor="#EFEFEF">
	<td nowrap>删除？</td>
    <td nowrap>文本</td>
	<td nowrap>链接</td>
	<td nowrap>图片</td>
    <td nowrap>图片预览</td>
	<td width="100%">操作</td>
    </tr><%Dim Adm_KeywordsNums,Adm_KeywordsNumI
	Adm_KeywordsNums=Ubound(Arr_Keywords,2)
	For Adm_KeywordsNumI=0 To Adm_KeywordsNums
		Response.Write("<form name=""edit_Keywords"" method=""post"" action=""admincp.asp?action=keywords&type=editKeywords""><tr bgcolor=""#FFFFFF""><td align=""center""><input name=""Keywords_Dele"" type=""checkbox"" id=""Keywords_Dele"" value="""&Arr_Keywords(0,Adm_KeywordsNumI)&"""></td><td><input type=""hidden"" id=""Keywords_ID"" name=""Keywords_ID"" value="""&Arr_Keywords(0,Adm_KeywordsNumI)&"""><input type=""text"" size=""10"" id=""Keywords_Text"" name=""Keywords_Text"" value="""&Arr_Keywords(1,Adm_KeywordsNumI)&"""></td><td><input type=""text"" size=""38"" id=""Keywords_URL"" name=""Keywords_URL"" value="""&Arr_Keywords(2,Adm_KeywordsNumI)&"""></td>")
		IF Arr_Keywords(3,Adm_KeywordsNumI)=Empty Then
			Response.Write("<td><input type=""text"" size=""15"" id=""Keywords_Image"" name=""Keywords_Image"" value=""""></td><td></td>")
		Else
			Response.Write("<td><input type=""text"" size=""15"" id=""Keywords_Image"" name=""Keywords_Image"" value="""&Arr_Keywords(3,Adm_KeywordsNumI)&"""></td><td><img src=""images/keywords/"&Arr_Keywords(3,Adm_KeywordsNumI)&""" border=0""></td>")
		End IF
		Response.Write("<td><input type=""Submit"" name=""Submit"" value="" 编辑 ""></td></tr></form>")
	Next
	%></table></div>
	<%Response.Write("<table width=""98%"" border=""0"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#DFDFDF""><form name=""add_Keywords"" method=""post"" action=""admincp.asp?action=keywords&type=addKeywords""><tr bgcolor=""#FFFFFF""><td>文本：<input type=""text"" size=""10"" id=""new_KeywordsText"" name=""new_KeywordsText""></td><td>链接：<input type=""text"" size=""38"" id=""new_KeywordsURL"" name=""new_KeywordsURL""></td><td>图片：<input type=""text"" size=""15"" id=""new_KeywordsImage"" name=""new_KeywordsImage""></td><td><input type=""Submit"" name=""Submit"" value="" 添加 ""></td></tr></form></table>")%></td>
  </tr><%End IF%>
</table>
<%ElseIF Request.QueryString("action")="favorite" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 网络书签管理</td>
  </tr><%IF Request.QueryString("type")="delete" Then
		Dim DEL_favID
		DEL_favID=CheckStr(Request.QueryString("favID"))
		If DEL_favID=Empty Then
			Response.Write("<tr><td align=""center"" bgcolor=""#FFFFFF"" height=""48""><a href=""admincp.asp?action=favID"">参数错误，请点击返回</a></td></tr>")
		Else
			Conn.Execute("DELETE FROM blog_Favorite WHERE fav_ID="&DEL_favID)
			SQLQueryNums=SQLQueryNums+1
			Response.Write("<tr><td align=""center"" bgcolor=""#FFFFFF"" height=""48""><a href=""admincp.asp?action=favID"">操作成功，请点击返回</a></td></tr>")
		End If
	Else%>
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF">
	<div style="overflow-y: scroll;overflow-x:hidden;height: 400px;"><table width="98%" border="0" cellpadding="4" cellspacing="1" bgcolor="#DFDFDF">
  <tr bgcolor="#EFEFEF">
	<td nowrap>ID</td>
    <td nowrap>名称</td>
	<td nowrap>作者</td>
	<td nowrap>链接</td>
    <td nowrap>介绍</td>
	<td width="100%">操作</td>
    </tr><%Dim fav_AdmList
	Set fav_AdmList = Conn.ExeCute("SELECT * FROM blog_Favorite ORDER BY fav_PostTime ASC")
	Do While Not fav_AdmList.Eof
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center"">"&fav_AdmList("fav_ID")&"</td><td nowrap>"&fav_AdmList("fav_Name")&"</td><td nowrap>"&fav_AdmList("fav_Author")&"</td><td><a href="""&fav_AdmList("fav_URL")&""" target=""_blank""><img src=""images/icon_trackback.gif"" align=""absmiddle"" border=""0"" alt=""点击访问""></a></td><td><img src=""images/sider_other.gif"" align=""absmiddle"" border=""0"" alt="""&fav_AdmList("fav_Info")&"""></td><td><a href=""admincp.asp?action=favorite&type=delete&favID="&fav_AdmList("fav_ID")&""">删除</a></td></tr>")
		fav_AdmList.MoveNext
	Loop
	Set fav_AdmList = Nothing
	%></table></div></td>
  </tr><%End IF%>
</table>
<%ElseIF Request.QueryString("action")="blog" Then%><!-- 博客观里 --><br>
<%dim log_del,coun_Num,Curpage,page,PageCount1  
   IF CheckStr(Request.QueryString("Page"))<>Empty Then
		  Curpage=CheckStr(Request.QueryString("Page"))
		  IF IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
	  Else
		  Curpage=1
	  End IF
  Set log_del=Conn.ExeCute("select * FROM blog_content  order by log_id asc")
	  SQLQueryNums=SQLQueryNums+1
	   
	        log_del.PageSize=20
			log_del.AbsolutePage=CurPage
			coun_Num=log_del.RecordCount
			MultiPages="<span class=""smalltxt"">"&MultiPage(coun_Num,20,CurPage,Url_Add)&"</span>"
		%>

<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head" align="center"><%=SiteName%> 博客日志管理</td>
  </tr>
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF">
	<div style="overflow-y: scroll;overflow-x:hidden;height: 400px;"> 
        <form name="form1" method="post" action="blog_del.asp">
	    <table width="98%" border="0" cellpadding="4" cellspacing="1" bgcolor="#DFDFDF">
          <tr bgcolor="#EFEFEF">
            <td width="5%" nowrap><div align="center">ID</div></td>
            <td width="15%" nowrap><div align="center">标题</div></td>
            <td width="15%" nowrap><div align="center">作者</div></td>
            <td width="15%" nowrap><div align="center">日期</div></td>
            <td width="15%" bgcolor="#EFEFEF"><div align="center">编辑</div></td>
            <td width="15%" bgcolor="#EFEFEF">删除</td>
            <td width="13%" bgcolor="#EFEFEF">批量删除</td>
          </tr>
          <tr bgcolor="#EFEFEF">
            <%
			if log_del.eof and log_del.bof then%>
            <td colspan="7" nowrap><div align="center">功能开发中！</div></td>
          </tr>
          <%else%>
          <% 'Do while not log_del.eof  
    Do Until log_del.EOF OR PageCount1=10
  ' if log_del.eof then exit for%>
          <tr bgcolor="#EFEFEF">
            <td nowrap><%=log_del("log_id")%></td>
            <td nowrap><a href="blogview.asp?logid=<%=log_del("log_id")%>"><%=left(log_del("log_Title"),7)%></a></td>
            <td nowrap><%=log_del("log_Author")%></td>
            <td nowrap><%=datevalue(log_del("log_PostTime"))%></td>
            <td nowrap bgcolor="#EFEFEF"><div align="center"><a href="blogedit.asp?logid=<%=log_del("log_id")%>" >编辑</a></div></td>
            <td nowrap bgcolor="#EFEFEF"><a href="blog_del.asp?logid=<%=log_del("log_id")%>" style="color: #FF0000">删除</a></td>
            <td nowrap bgcolor="#EFEFEF"><span class="forumrow">
              <input Name=logid type=checkbox class="code_head" Value=<%=log_del("log_id")%>>
            </span></td>
          </tr>
  <% 
  log_del.movenext
  PageCount1=PageCount1+1
    loop
  %>
          <tr bgcolor="#EFEFEF">
            <td colspan="7" nowrap><div align="right"><span class="forumrow"><span class="style4"> </span>
			<%=coun_Num  %><input type=hidden value=DEL name=operation>
                <input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">
        选中所有<%=fen
  
%>
        <input name="submit2" type=submit onClick="return blog_DEL()" value=删除>
            </span></div></td>
          </tr>
          <% end if%>
        </table>
    </form>    </td>
  </tr>
  
</table>
<%ElseIF Request.QueryString("action")="setting" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 一般设置</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" align="center" height="48"><%IF Request.QueryString("type")="EnableSite" Then
		Application.Lock()
		Application(CookieName & "_SiteEnable") = 1
		Application(CookieName & "_SiteDisbleWhy") = ""
		Application.UnLock()
		Response.Write("<a href=""admincp.asp?action=setting"">开启站点成功，请点击返回</a>")
	ElseIF Request.QueryString("type")="DisableSite" Then
		Set Conn=Nothing