📄 admincp.asp
字号:
<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>
<%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
Conn.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
Conn.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
Conn.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"))
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>"&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%>
</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
FreeApplicationMemory
Application.Lock()
Application(CookieName & "_SiteEnable") = 0
Application(CookieName & "_SiteDisbleWhy")="站点维护中，请稍候再来..."
Application.UnLock()
Response.Write("<br><a href=""admincp.asp?action=setting"">关闭站点成功</a>")
Else
If Application(CookieName & "_SiteEnable") = 0 AND Application(CookieName & "_SiteDisbleWhy")<>"" Then
Response.Write("<b>站点已关闭</b> | <a href=""admincp.asp?action=setting&type=EnableSite"">点击开启站点</a>")
Else
Response.Write("<b>站点已开启</b> | <a href=""admincp.asp?action=setting&type=DisableSite"">点击关闭站点</a>")
End If
End If%></td>
</tr>
</table><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>
<%If Request.QueryString("type")="baseInfo" Then
Dim edit_blogName,edit_blogURL,edit_blogPerpage
edit_blogName=CheckStr(Request.Form("blog_Name"))
edit_blogURL=CheckStr(Request.Form("blog_URL"))
edit_blogPerpage=CheckStr(Request.Form("blog_PerPage"))
If edit_blogName<>Empty OR edit_blogURL<>Empty OR IsInteger(edit_blogPerpage)=True Then
Conn.ExeCute("UPDATE blog_Info SET blog_Name='"&edit_blogName&"',blog_URL='"&edit_blogURL&"',blog_PerPage="&edit_blogPerpage&"")
SQLQueryNums=SQLQueryNums+1
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admincp.asp?action=setting"">基本信息修改成功，请点击返回</a></td>")
Else
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admincp.asp?action=setting"">基本信息修改失败，请点击返回</a></td>")
End If
Else
Response.Write("<form name=""blogInfo"" action=""admincp.asp?action=setting&type=baseInfo"" method=""post""><td bgcolor=""#FFFFFF"" align=""center"" height=""48"">BLOG 名称：<input name=""blog_Name"" value="""&siteName&""" type=""text""> BLOG 地址：<input name=""blog_URL"" value="""&siteURL&""" type=""text"" size=""25""> 每页日志：<input name=""blog_PerPage"" size=""2"" type=""text"" value="""&blogPerPage&"""> <input type=""submit"" value="" 确定 ""></td></form>")
End If%>
</tr>
</table><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")="memPosts" Then
Dim PostNums_MemList
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -