📄 admincp.asp

📁 一套非常实用的博客源代码,功能全,界面简单易用.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 语言过滤</td>
  </tr><%If Request.QueryString("type")="EditWF" Then%>
  <tr>
    <td align="center" bgcolor="#FFFFFF" height="48"><%
	Dim Edit_WFID,Edit_WFString,Edit_WFReplace
	Edit_WFID=Request.Form("wf_ID")
	Edit_WFString=Request.Form("wf_String")
	Edit_WFReplace=Request.Form("wf_Replace")
	znwl.Execute("UPDATE blog_WordFilter SET wf_String='"&CheckStr(Edit_WFString)&"',wf_Replace='"&CheckStr(Edit_WFReplace)&"' WHERE wf_ID="&Edit_WFID&"")
	SQLQueryNums=SQLQueryNums+1
	If Request.Form("wf_Dele")="True" Then
		znwl.Execute("DELETE * FROM blog_WordFilter WHERE wf_ID = "&Edit_WFID)
		SQLQueryNums=SQLQueryNums+1
	End If
	Application.Lock()
	Application(CookieName&"_blog_WordFilter")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=wordfilter"">操作成功，请点击返回</a>")
ElseIf Request.QueryString("type")="AddWF" Then
	Dim new_WFString,new_WFReplace
	new_WFString=CheckStr(Request.Form("new_WFString"))
	new_WFReplace=CheckStr(Request.Form("new_WFReplace"))%><tr>
    <td align="center" bgcolor="#FFFFFF" height="48">
  	<%If new_WFString<>Empty And new_WFReplace<>Empty Then
		If znwl.Execute("SELECT COUNT(wf_ID) FROM blog_WordFilter WHERE wf_String='"&new_WFString&"'")(0)=0 Then
			znwl.Execute("INSERT INTO blog_WordFilter(wf_String,wf_Replace) VALUES ('"&new_WFString&"','"&new_WFReplace&"')")
			SQLQueryNums=SQLQueryNums+1
			Application.Lock()
			Application(CookieName&"_blog_WordFilter")=""
			Application.UnLock()
		End If
	End If
	Response.Write("<a href=""admincp.asp?action=wordfilter"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%>
  <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 WFRS
  Set WFRS=Server.CreateObject("Adodb.Recordset")
  SQL="SELECT * FROM blog_WordFilter ORDER BY wf_ID DESC"
  WFRS.Open SQL,znwl,1,1
  If Not(WFRS.Eof And WFRS.Bof) Then
  	IF CheckStr(Request.QueryString("Page"))<>Empty Then
				Curpage=Cint(CheckStr(Request.QueryString("Page")))
				IF Curpage<0 Then Curpage=1
			Else
				Curpage=1
			End IF
  	Url_Add="?action=wordfilter&"
	WFRS.PageSize=15
	WFRS.AbsolutePage=CurPage
	MultiPages="<span class=""smalltxt"">"&MultiPage(WFRS.RecordCount,15,CurPage,Url_Add)&"</span>"
  	Response.Write("<tr bgcolor=""#FFFFFF""><td colspan=""4"" nowrap>"&MultiPages&"</td></tr>")
	Do Until WFRS.Eof Or PageCount=15
		Response.Write("<form name=""edit_WordFilter"" method=""post"" action=""admincp.asp?action=wordfilter&type=EditWF""><tr bgcolor=""#FFFFFF""><td align=""center""><input name=""wf_Dele"" type=""checkbox"" id=""wf_Dele"" value=""True""></td><td><input type=""hidden"" id=""wf_ID"" name=""wf_ID"" value="""&WFRS("wf_ID")&"""><input type=""text"" size=""25"" id=""wf_String"" name=""wf_String"" value="""&WFRS("wf_String")&"""></td><td><input type=""text"" size=""25"" id=""wf_Replace"" name=""wf_Replace"" value="""&WFRS("wf_Replace")&"""></td><td><input type=""submit"" name=""Submit"" value="" 编 辑 ""></td></tr></form>")
		WFRS.Movenext
		PageCount=PageCount+1
	Loop
	End If
	WFRS.Close
	Set WFRS=Nothing
	Response.Write("<form name=""add_WordFilter"" method=""post"" action=""admincp.asp?action=wordfilter&type=AddWF""><tr bgcolor=""#FFFFFF""><td nowrap><b>添加</b>：</td><td><input type=""text"" size=""25"" id=""new_WFString"" name=""new_WFString""></td><td><input type=""text"" size=""25"" id=""new_WFReplace"" name=""new_WFReplace""></td><td><input type=""submit"" name=""Submit"" value="" 添加 ""></td></tr></form>")%></table></td>
  </tr><%End If%>
</table>

<%ElseIF Request.QueryString("action")="smilies" 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")="EditSmilies" Then%>
  <tr>
    <td align="center" bgcolor="#FFFFFF" height="48"><%
	Dim Edit_SmiliesID,Edit_SmiliesText,Edit_SmiliesImage,Edit_SmiliesEvery,Edit_SmiliesNums
	Edit_SmiliesNums=0
	Edit_SmiliesID=Split(Request.Form("smilies_ID"),",")
	Edit_SmiliesText=Split(Request.Form("smilies_Text"),",")
	Edit_SmiliesImage=Split(Request.Form("smilies_Image"),",")
	For Each Edit_SmiliesEvery  IN Edit_SmiliesID
		znwl.Execute("UPDATE blog_Smilies SET sm_Text='"&CheckStr(Edit_SmiliesText(Edit_SmiliesNums))&"',sm_Image='"&CheckStr(Edit_SmiliesImage(Edit_SmiliesNums))&"' WHERE sm_ID="&Edit_SmiliesEvery&"")
		SQLQueryNums=SQLQueryNums+1
		Edit_SmiliesNums=Edit_SmiliesNums+1
	Next
	IF Request.Form("smilies_Dele")<>Empty Then
		znwl.Execute("DELETE * FROM blog_Smilies WHERE sm_ID IN ("&Request.Form("smilies_Dele")&")")
		SQLQueryNums=SQLQueryNums+1
	End IF
	Dim new_SmiliesText,new_SmiliesImage
	new_SmiliesText=CheckStr(Request.Form("new_SmiliesText"))
	new_SmiliesImage=CheckStr(Request.Form("new_SmiliesImage"))
	IF new_SmiliesText<>Empty AND new_SmiliesImage<>Empty Then
		znwl.Execute("INSERT INTO blog_Smilies(sm_Text,sm_Image) VALUES ('"&new_SmiliesText&"','"&new_SmiliesImage&"')")
		SQLQueryNums=SQLQueryNums+1
	End IF
	Application.Lock()
	Application(CookieName&"_blog_Smilies")=""
	Application.UnLock()
	Response.Write("<a href=""admincp.asp?action=smilies"">操作成功，请点击返回</a>")%></td></tr>
  <%Else%><form name="edit_Smilies" method="post" action="admincp.asp?action=smilies&type=EditSmilies">
  <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_SmiliesNums,Adm_SmiliesNumI
	Adm_SmiliesNums=Ubound(Arr_Smilies,2)
	For Adm_SmiliesNumI=0 To Adm_SmiliesNums
		Response.Write("<tr bgcolor=""#FFFFFF""><td align=""center""><input name=""smilies_Dele"" type=""checkbox"" id=""smilies_Dele"" value="""&Arr_Smilies(0,Adm_SmiliesNumI)&"""></td><td><input type=""hidden"" id=""smilies_ID"" name=""smilies_ID"" value="""&Arr_Smilies(0,Adm_SmiliesNumI)&"""><input type=""text"" size=""15"" id=""smilies_Text"" name=""smilies_Text"" value="""&Arr_Smilies(2,Adm_SmiliesNumI)&"""></td><td><input type=""text"" size=""25"" id=""smilies_Image"" name=""smilies_Image"" value="""&Arr_Smilies(1,Adm_SmiliesNumI)&"""></td><td><img src=""images/smilies/"&Arr_Smilies(1,Adm_SmiliesNumI)&""" border=0""></td></tr>")
	Next
	Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap><b>添加</b>：</td><td><input type=""text"" size=""15"" id=""new_SmiliesText"" name=""new_SmiliesText""></td><td><input type=""text"" size=""25"" id=""new_SmiliesImage"" name=""new_SmiliesImage""></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>
<%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"))
		znwl.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
			znwl.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
			znwl.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
			znwl.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 = znwl.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>"&HTMLEncode(fav_AdmList("fav_Name"))&"</td><td nowrap>"&fav_AdmList("fav_Author")&"</td><td><a href="""&CheckLinkStr(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="""&HTMLEncode(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%>
💿 文件大小 2688 K
👤 上传用户 ADGFS
📂 所属分类书籍源码
🏷️ 相关标签

#博客 #源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -