admin_blog_cat.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

	<%Response.Write("<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1"" class=""Hxcmsds""><form name=""add_Keys"" method=""post"" action=""admin_blog_cat.asp?action=Keys&type=addKeys""><tr class=Hxcmsqs><td>关键字：<input type=""text"" size=""10"" id=""new_KeysText"" name=""new_KeysText"" class=""button""></td><td>链接：<input type=""text"" size=""38"" id=""new_KeysURL"" name=""new_KeysURL"" class=""button""></td><td>图片：<input type=""text"" size=""15"" id=""new_KeysImage"" name=""new_KeysImage"" class=""button""></td><td><input type=""Submit"" name=""Submit"" value=""添 加"" class=""button""></td></tr></form></table>")%></td>
  </tr><%End IF%>
</table>
<%ElseIF Request.QueryString("action")="Emot" Then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
   <tr class=Hxcmsss> 
      <td colspan="6">BLOG表情图管理</td>
   </tr>
  <%IF Request.QueryString("type")="EditEmot" Then%>
  <tr class=Hxcmsds>
    <td align="center" height="48"><%
	Dim Edit_emotID,Edit_emotText,Edit_emotImage,Edit_emotEvery,Edit_emotNums
	Edit_emotNums=0
	Edit_emotID=Split(Request.Form("emot_ID"),",")
	Edit_emotText=Split(Request.Form("emot_Text"),",")
	Edit_emotImage=Split(Request.Form("emot_Image"),",")
	For Each Edit_emotEvery IN Edit_emotID
		Conn.Execute("UPDATE b_emot SET sm_Text='"&CheckStr(Edit_emotText(Edit_emotNums))&"',sm_Image='"&CheckStr(Edit_emotImage(Edit_emotNums))&"' WHERE sm_ID="&Edit_emotEvery&"")
		Edit_emotNums=Edit_emotNums+1
	Next
	IF Request.Form("emot_Dele")<>Empty Then
		Conn.Execute("DELETE * FROM b_emot WHERE sm_ID IN ("&Request.Form("emot_Dele")&")")
	End IF
	Dim new_emotText,new_emotImage
	new_emotText=CheckStr(Request.Form("new_emotText"))
	new_emotImage=CheckStr(Request.Form("new_emotImage"))
	IF new_emotText<>Empty AND new_emotImage<>Empty Then
		Conn.Execute("INSERT INTO b_emot(sm_Text,sm_Image) VALUES ('"&new_emotText&"','"&new_emotImage&"')")
	End IF
	Response.Write("<a href=""admin_blog_cat.asp?action=Emot"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%><form name="edit_emot" method="post" action="admin_blog_cat.asp?action=Emot&type=EditEmot">
  <tr class=Hxcmsds>
    <td align="center" valign="top"><table width="96%" border="0" cellpadding="4" cellspacing="1" bgcolor="#336699">
  <tr class=Hxcmsqs align="center">
    <td width="15%">删除时选中</td>
    <td width="20%">表情代码</td>
    <td width="20%">图片名称</td>
    <td width="45%">表情图片</td>
    </tr><%Dim Adm_EmotNums,Adm_EmotNumI
	Adm_EmotNums=Ubound(Arr_Emot,2)
	For Adm_EmotNumI=0 To Adm_EmotNums
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center""><input name=""emot_Dele"" type=""checkbox"" id=""emot_Dele"" value="""&Arr_Emot(0,Adm_EmotNumI)&"""></td><td><input type=""hidden"" id=""emot_ID"" name=""emot_ID"" value="""&Arr_Emot(0,Adm_EmotNumI)&"""><input type=""text"" size=""15"" id=""emot_Text"" name=""emot_Text"" value="""&Arr_Emot(2,Adm_EmotNumI)&""" class=""button""></td><td><input type=""text"" size=""25"" id=""emot_Image"" name=""emot_Image"" value="""&Arr_Emot(1,Adm_EmotNumI)&""" class=""button""></td><td><img src=""img/blog/emot/"&Arr_Emot(1,Adm_EmotNumI)&""" border=0""></td></tr>")
	Next
	Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap><b>添加新表情</b>：</td><td><input type=""text"" size=""15"" id=""new_emotText"" name=""new_emotText"" class=""button""></td><td><input type=""text"" size=""25"" id=""new_emotImage"" name=""new_emotImage"" class=""button""></td><td></td></tr>")%></table></td>
  </tr><tr class=Hxcmsqs>
    <td align="center">
      <input type="Submit" name="Submit" value="确定编辑" class="button">
    </td>
  </tr>
  <tr class=Hxcmsds>
    <td>注：正常编辑添加时，请直接修改或添加后点“确定编辑”提交即可，前面的“选中删除”不可选中！！</td>
  </tr>
</form>
<%End IF%>
</table>
<%ElseIF Request.QueryString("action")="attachment" Then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
   <tr class=Hxcmsss> 
      <td>BLOG 附件管理</td>
   </tr>
  <tr class=Hxcmsds>
    <td><%IF Request.QueryString("type")="DeleFile" Then
		IF Request.QueryString("filename")=Empty Then
			Response.Write("<a href=""admin_blog_cat.asp?action=attachment"">没有选择要删除的文件，请点击返回</a>")
		Else
			IF DeleteFiles(Server.MapPath("upblog/"&Request.QueryString("filename")))=1 Then
				Response.Write("<a href=""admin_blog_cat.asp?action=attachment"">文件删除成功，请点击返回</a>")
			Else
				Response.Write("<a href=""admin_blog_cat.asp?action=attachment"">文件删除失败，请点击返回</a>")
			End IF
		End IF
	Else
		Dim AttachmentFolder
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		IF Err<>0 Then
			Err.Clear
			Response.Write("服务器关闭FSO，无法查看附件")
		Else
			If Request.QueryString("FolderName")=Empty Then
				Set AttachmentFolder=FSO.GetFolder(Server.MapPath("upblog"))
				Dim AttachmentFolderList
				Set AttachmentFolderList=AttachmentFolder.SubFolders
				Dim AttachmentFolderName,AttachmentFolderEvery
				For Each AttachmentFolderEvery IN AttachmentFolderList
					AttachmentFolderName=AttachmentFolderEvery.Name
					Response.Write("<a href=""admin_blog_cat.asp?action=attachment&foldername="&AttachmentFolderName&""">浏览文件夹："&AttachmentFolderName&" 中的附件</a><br><img name=""HideImage"" src="""" width=""2"" height=""5"" alt="""" style=""background-color: #FFFFFF""><br>")
				Next
				Set AttachmentFolderList=Nothing
			Else
				Set AttachmentFolder=FSO.GetFolder(Server.MapPath("upblog/"&Request.QueryString("FolderName")))
				Dim AttachmentFileList
				Set AttachmentFileList=AttachmentFolder.Files
				Dim AttachmentFileName,AttachmentFileEvery
				For Each AttachmentFileEvery IN AttachmentFileList
					AttachmentFileName=AttachmentFileEvery.Name
					Response.Write("浏览附件： <a href=""upblog/"&Request.QueryString("FolderName")&"/"&AttachmentFileName&""" target=""_blank"">"&AttachmentFileName&"</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href=""admin_blog_cat.asp?action=attachment&type=DeleFile&filename="&Request.QueryString("FolderName")&"/"&AttachmentFileName&"""><b>删除文件</b></a><br><img name=""HideImage"" src="""" width=""2"" height=""5"" alt="""" style=""background-color: #FFFFFF""><br>")
				Next
				Set AttachmentFileList=Nothing
			End If
			Set AttachmentFolder=Nothing
		End If
		Set FSO=Nothing
	End IF%></td>
  </tr>
   <tr class=Hxcmsqs align="center"> 
      <td><input onclick='history.back(-1)' type=button value="返 回" class="button"></td>
   </tr>
</table>
<%End IF
Function DeleteFiles(FilePath)
    Dim FSO
    Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	IF Err<>0 Then
		Err.Clear
		Response.Write("服务器关闭FSO，无法删除文件")
	Else
		If FSO.FileExists(FilePath) Then
			FSO.DeleteFile FilePath,True
			DeleteFiles = 1
		Else
			DeleteFiles = 0
		End If
	End If
    Set FSO = Nothing
End Function
'****************************************************
' Hxcms Ver7.6       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>