📄 admincp.asp
字号:
IF blog_LinksCheck("link_Image")<>Empty Then
blog_LinksCheckImage="<img src='"&CheckLinkStr(CheckLinkStr(blog_LinksCheck("link_Image")))&"' border='0' />"
Else
blog_LinksCheckImage="没有图片"
End IF
Response.Write("<tr bgcolor=""#FFFFFF""><td><a href="""&CheckLinkStr(blog_LinksCheck("link_URL"))&""" alt="""&CheckLinkStr(blog_LinksCheckImage)&""" target=""_blank"">"&HTMLEncode(blog_LinksCheck("link_Name"))&"</a></td><td><a href=""admincp.asp?action=linkscheck&type=linkcheckedit&linkID="&blog_LinksCheck("link_ID")&""">通过链接验证</a> | <a href=""admincp.asp?action=linkscheck&type=linkcheckdele&linkID="&blog_LinksCheck("link_ID")&""">删除此链接</a></td></tr>")
blog_LinksCheck.MoveNext
Loop
Response.Write("</table></div>")
End IF
Set blog_LinksCheck=Nothing
End IF%></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="links" 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"><%IF Request.QueryString("type")="linkedit" Then
IF CheckStr(Request.QueryString("linkID"))=Empty OR CheckStr(Request.Form("edit_blogLinkName"))=Empty OR CheckStr(Request.Form("edit_blogLinkURL"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">请将信息填写完整，点击返回上一页</a>")
Else
IF CheckStr(Request.Form("edit_blogLinkDele"))="True" Then
znwl.ExeCute("DELETE * FROM blog_Links WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
Else
Dim link_IsMainValue
IF CheckStr(Request.Form("edit_blogLinkMain"))="True" Then
link_IsMainValue=True
Else
link_IsMainValue=False
End IF
znwl.ExeCute("UPDATE blog_Links SET link_Name='"&CheckStr(Request.Form("edit_blogLinkName"))&"',link_Image='"&CheckStr(Request.Form("edit_blogLinkImage"))&"',link_URL='"&CheckStr(Request.Form("edit_blogLinkURL"))&"',link_Order="&CheckStr(Request.Form("edit_blogLinkOrder"))&",link_IsMain="&link_IsMainValue&" WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
End IF
Application.Lock
Application(CookieName&"_blog_Bloglinks")=""
Application.UnLock
Response.Write("<a href=""admincp.asp?action=links"">编辑友情链接成功，请点击返回</a>")
End IF
ElseIF Request.QueryString("type")="linkadd" Then
IF CheckStr(Request.Form("new_blogLinkName"))=Empty OR CheckStr(Request.Form("new_blogLinkURL"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">请将信息填写完整，点击返回上一页</a>")
Else
znwl.ExeCute("INSERT INTO blog_Links(link_Name,link_Image,link_URL,link_Order,link_IsShow) VALUES ('"&CheckStr(Request.Form("new_blogLinkName"))&"','"&CheckStr(Request.Form("new_blogLinkImage"))&"','"&CheckStr(Request.Form("new_blogLinkURL"))&"',"&CheckStr(Request.Form("new_blogLinkOrder"))&",True)")
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=links"">添加友情链接成功，请点击返回</a>")
End IF
Else
Dim blog_Links
Set blog_Links=znwl.Execute("SELECT * FROM blog_Links WHERE link_IsShow=True ORDER BY link_Order ASC")
SQLQueryNums=SQLQueryNums+1
IF blog_Links.EOF AND blog_Links.BOF Then
Response.Write("暂时没有友情链接")
Else
Response.Write("<div style=""overflow-y: scroll;overflow-x:hidden;height: 388px;""><table border=""0"" cellpadding=""3"" cellspacing=""1"" bgcolor=""#DFDFDF"" width=""98%""><tr bgcolor=""#FFFFFF""><td>删？</td><td>首？</td><td>名称</td><td>图片</td><td>链接</td><td>排序</td><td>操作</td></tr>")
Do While Not blog_Links.EOF
Dim link_IsMainChecked
IF blog_Links("link_IsMain")=True Then
link_IsMainChecked=" checked"
Else
link_IsMainChecked=""
End IF
Response.Write("<tr bgcolor=""#FFFFFF""><form name=""addlink"" action=""admincp.asp?action=links&type=linkedit&linkID="&blog_Links("link_ID")&""" method=""post""><td><input name=""edit_blogLinkDele"" type=""checkbox"" id=""edit_blogLinkDele"" value=""True""></td><td><input name=""edit_blogLinkMain"" type=""checkbox"" id=""edit_blogLinkMain"" value=""True"""&link_IsMainChecked&"></td><td><input type=""text"" size=""10"" id=""edit_blogLinkName"" name=""edit_blogLinkName"" value="""&CheckLinkStr(blog_Links("link_Name"))&"""></td><td><input type=""text"" size=""25"" id=""edit_blogLinkImage"" name=""edit_blogLinkImage"" value="""&CheckLinkStr(blog_Links("link_Image"))&"""></td><td><input type=""text"" size=""15"" id=""edit_blogLinkURL"" name=""edit_blogLinkURL"" value="""&CheckLinkStr(blog_Links("link_URL"))&"""></td><td><input type=""text"" size=""2"" id=""edit_blogLinkOrder"" name=""edit_blogLinkOrder"" value="""&CheckLinkStr(blog_Links("link_Order"))&"""></td><td><input type=""Submit"" name=""Submit"" value="" 编 辑 ""></td></form></tr>")
blog_Links.MoveNext
Loop
Response.Write("</table></div>")
End IF
Set blog_Links=Nothing
Response.Write("<hr width=""100%"" size=""1""><table><tr><form name=""addlink"" action=""admincp.asp?action=links&type=linkadd"" method=""post""><td>名称：<input type=""text"" size=""10"" id=""new_blogLinkName"" name=""new_blogLinkName""> 图片：<input type='text' size='20' id='new_blogLinkImage' name='new_blogLinkImage'> 链接：<input type=""text"" size=""16"" id=""new_blogLinkURL"" name=""new_blogLinkURL""> 排序：<input type=""text"" size=""1"" id=""new_blogLinkOrder"" name=""new_blogLinkOrder""> <input type=""Submit"" name=""Submit"" value="" 添 加 ""></td></form></tr></table>")
End IF%></td>
</tr>
</table>
<%
ElseIF Request.QueryString("action")="download" Then%>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" class="formbox">
<%IF Request.QueryString("type")="adddownload" Then%>
<tr>
<td class="siderbar_head" colspan="5">下载</td>
</tr>
<%
Dim Show_downlID,Show_downlName,Show_downlAuthor,Show_downlPostTime
Show_downlID=Split(Request.Form("sdownl_IDs"),",")
Show_downlName=Split(Request.Form("sdownl_Names"),",")
Show_downlAuthor=Split(Request.Form("sdownl_Authors"),",")
Show_downlPostTime=Split(Request.Form("sdownl_PostTimes"),",")
IF Request.Form("downl_Dele")<>Empty Then
znwl.Execute("DELETE * FROM blog_Download WHERE downl_ID IN ("&CheckStr(Request.Form("downl_Dele"))&")")
znwl.ExeCute("UPDATE blog_Info SET blog_downloadNums=blog_downloadNums-1")
Dim downlNums
set downlNums=znwl.ExeCute("select count(*) as down_Rows FROM blog_Download")
znwl.Execute("UPDATE blog_Toolbox SET tb_Nums="&downlNums("down_Rows")&" WHERE tb_Name='Download'")
End IF
Dim new_downlCate,new_downlName,new_downlAuthor,new_downlFrom,new_downlsize,new_downlFromURL,new_downlImgPath,new_downlComment,new_downlDcomm1,new_downlDcomm1URL,new_downlDcomm2,new_downlDcomm2URL,new_downlDcomm3,new_downlDcomm3URL,new_downlDcomm4,new_downlDcomm4URL
new_downlCate=CheckStr(Request.Form("new_downlCate"))
new_downlName=CheckStr(Request.Form("new_downlName"))
new_downlAuthor=CheckStr(Request.Form("new_downlAuthor"))
new_downlFrom=CheckStr(Request.Form("new_downlFrom"))
new_downlsize=CheckStr(Request.Form("new_downlsize"))
new_downlFromURL=CheckStr(Request.Form("new_downlFromURL"))
new_downlImgPath=CheckStr(Request.Form("new_downlImgPath"))
new_downlComment=CheckStr(Request.Form("new_downlComment"))
new_downlDcomm1=CheckStr(Request.Form("new_downlDcomm1"))
new_downlDcomm1URL=CheckStr(Request.Form("new_downlDcomm1URL"))
new_downlDcomm2=CheckStr(Request.Form("new_downlDcomm2"))
new_downlDcomm2URL=CheckStr(Request.Form("new_downlDcomm2URL"))
new_downlDcomm3=CheckStr(Request.Form("new_downlDcomm3"))
new_downlDcomm3URL=CheckStr(Request.Form("new_downlDcomm3URL"))
new_downlDcomm4=CheckStr(Request.Form("new_downlDcomm4"))
new_downlDcomm4URL=CheckStr(Request.Form("new_downlDcomm4URL"))
IF new_downlName<>Empty AND new_downlFrom<>Empty AND new_downlDcomm1URL<>Empty AND new_downlDcomm1<>Empty Then
znwl.Execute("INSERT INTO blog_Download(downl_Cate,downl_Name,downl_Author,downl_From,downl_size,downl_FromURL,downl_ImgPath,downl_Comment,downl_Dcomm1,downl_Dcomm1URL,downl_Dcomm2,downl_Dcomm2URL,downl_Dcomm3,downl_Dcomm3URL,downl_Dcomm4,downl_Dcomm4URL) VALUES ("&new_downlCate&",'"&new_downlName&"','"&new_downlAuthor&"','"&new_downlFrom&"','"&new_downlsize&"','"&new_downlFromURL&"','"&new_downlImgPath&"','"&new_downlComment&"','"&new_downlDcomm1&"','"&new_downlDcomm1URL&"','"&new_downlDcomm2&"','"&new_downlDcomm2URL&"','"&new_downlDcomm3&"','"&new_downlDcomm3URL&"','"&new_downlDcomm4URL&"','"&new_downlDcomm4URL&"')")
znwl.ExeCute("UPDATE blog_Toolbox SET tb_Nums=tb_Nums+1 WHERE tb_Name='Download'")
znwl.ExeCute("UPDATE blog_Info SET blog_downloadNums=blog_downloadNums+1")
End IF
Application.Lock()
Application(CookieName&"_blog_Download")=""
Application.UnLock()
Response.Write("<tr><td class='formbox-content' colspan='4' align='center'><br>已保存更改。<br><br><a href='?action=download'>返回</a></td></tr>")
%>
<%Else%>
<form name="input" method="post" action="?action=download&type=adddownload">
<tr bgcolor="#EFEFEF">
<td width="90" height="24">删除?</td>
<td width="120">程序名称</td>
<td width="105" align="center">发布作者</td>
<td width="120" align="center">发表时间</td>
<td width="40">操作</td>
</tr>
<%Dim Adm_Download,Adm_DownloadContent
For Each Adm_Download IN Arr_Download
Adm_DownloadContent=Split(Adm_Download,"$|$")
%>
<tr class='formbox-content'>
<td align='center'> <input name='downl_Dele' type='checkbox' id='downl_Dele' value='<%=Adm_DownloadContent(0)%>'>
<input name='sdownl_IDs' type='hidden' id='sdownl_IDs' value='<%=Adm_DownloadContent(0)%>'>
</td>
<td align='left'> <input type='hidden' size='25' id='sdownl_Names' name='sdownl_Names' value='<%=Adm_DownloadContent(2)%>'>
<%=Adm_DownloadContent(2)%></td>
<td align='left'> <input name='sdownl_Authors' type='hidden' id='sdownl_Authors' value='<%=Adm_DownloadContent(3)%>'>
<%=Adm_DownloadContent(3)%> </td>
<td align="center"> <input name='sdownl_PostTimes' type='hidden' id='sdownl_PostTimes' value='<%=Adm_DownloadContent(7)%>'>
<%=Adm_DownloadContent(7)%> </td>
<td align="center"><a href="downledit.asp?downlID=<%=Adm_DownloadContent(0)%>" target="_blank">编辑</a></td>
</tr>
<%Next%>
<tr class='formbox-title'>
<td colspan="5">添加下载</td>
</tr>
<tr class='formbox-content'>
<td align="right">分类:</td>
<td colspan="3"><select name="new_downlCate">
<option value="1" selected>文档</option>
<option value="2">源码</option>
<option value="3">程序</option>
</select>
<font color="#FF0000">*</font> 文件名:
<input type='text' size='30' id='new_downlName' name='new_downlName' maxlength="50"> 大小:<input type='text' size='5' id='new_downlsize' name='new_downlsize'></td>
</tr>
<tr class='formbox-content'>
<td align="right">来自:</td>
<td><input type='text' size='20' id='new_downlFrom' name='new_downlFrom' value='原创'></td>
<td align="right">来自 URL: </td>
<td><input type='text' size='20' id='new_downlFromURL' name='new_downlFromURL' value='#'></td>
</tr>
<tr class='formbox-content'>
<td align="right">作者:</td>
<td><input type='text' size='20' id='new_downlAuthor' name='new_downlAuthor' value='<%=memName%>'></td>
<td align="right">Image URL:</td>
<td colspan="2"><input type='text' size='20' id='new_downlImgPath' name='new_downlImgPath'></td>
</tr>
<tr class='formbox-content'>
<td height="31" align="right">地址1说明:</td>
<td><input type='text' size='20' id='new_downlDcomm1' name='new_downlDcomm1'><font color="#FF0000">*</font></td>
<td align="right"><font color="#FF0000">*</font>地址1:</td>
<td colspan="2"><input type='text' size='20' maxlength="250" id='new_downlDcomm1URL' name='new_downlDcomm1URL'></td>
</tr>
<tr class='formbox-content'>
<td align="right">地址2说明:</td>
<td><input type='text' size='20' id='new_downlDcomm2' name='new_downlDcomm2'></td>
<td align="right">地址2:</td>
<td colspan="2"><input type='text' size='20' maxlength="250" id='new_downlDcomm2URL' name='new_downlDcomm2URL'></td>
</tr>
<tr class='formbox-content'>
<td align="right">地址3说明:</td>
<td><input type='text' size='20' id='new_downlDcomm3' name='new_downlDcomm3'></td>
<td align="right">地址3:</td>
<td colspan="2"><input type='text' size='20' maxlength="250" id='new_downlDcomm3URL' name='new_downlDcomm3URL'></td>
</tr>
<tr class='formbox-content'>
<td align="right">地址4说明:</td>
<td><input type='text' size='20' id='new_downlDcomm4' name='new_downlDcomm4'></td>
<td align="right">地址4:</td>
<td colspan="2"><input type='text' size='20' maxlength="250" id='new_downlDcomm4URL' name='new_downlDcomm4URL'></td>
</tr>
<tr class='formbox-content'>
<td height="53" align="right" valign="top">路径(地址):</td>
<td colspan="4" align="left" valign="middle"> <input type='text' size='80' id='downl_site' name='downl_site'>
<br>
通过上传功能添加图片和文件。然后复制地址到所需文本框。 支持文件格式:<font color="#990000">gif,jpg,bmp,png,tif,rar,zip</font></td>
</tr>
<tr class='formbox-content'>
<td align="right">上传:</td>
<td colspan="4"><iframe border="0" frameBorder="0" frameSpacing="0" height="21" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="attachment.asp"></iframe></td>
</tr>
<tr class='formbox-content'>
<td height="59" align="right" v⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -