📄 friendlinkdel.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 2006 SP1 无组件精简版
'最后更新：2006年3月25日
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294,504438432
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序策划：林文仲
'程序开发：科汛开发组
'E-Mail  : kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'技术论坛：http://bbs.kesion.com
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New FriendLinkDel
KSCls.Execute()
Set KSCls = Nothing

Class FriendLinkDel
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Public Sub Execute()
			Dim LinkID, RSCheck, SiteName, WebMaster, Email, OriPassWord, Url, LinkType, Logo, Descript, Action, FolderID
			
			Action = Replace(Replace(Request("Action"), """", ""), "'", "")
			LinkID = Replace(Replace(Request("LinkID"), """", ""), "'", "")
			
			If LinkID = "" Or Not IsNumeric(LinkID) Then
			 Set KSCMS = Nothing
			 Response.Write ("<script>alert('参数传递出错!');history.back();</script>")
			End If
			If Action = "Del" Then
			 OriPassWord = KSCMS.MD5(KSCMS.ReplaceBadChar(Request.Form("OriPassWord")), 16)
			 If OriPassWord = "" Then
				  Call KSCMS.AlertHistory("修改友情链接信息密码输入原设密码!", -1)
				  Set KSCMS = Nothing
			End If
			Set RSCheck = Server.CreateObject("Adodb.Recordset")
			   RSCheck.Open " Select LinkID From KS_Link Where PassWord='" & OriPassWord & "'", Conn, 1, 1
			   If RSCheck.EOF And RSCheck.BOF Then
				  RSCheck.Close
				  Set RSCheck = Nothing
				  Call KSCMS.AlertHistory("对不起,你输入的原设密码有误!", -1)
				  Set KSCMS = Nothing
				  Response.End
			  End If
			  Conn.Execute ("Delete From KS_Link Where LinkID=" & LinkID)
			  RSCheck.Close
			  Set RSCheck = Nothing
			  Conn.Close
			  Set Conn = Nothing
			  Response.Write ("<script>alert('友情链接删除成功!');location.href='Index.asp';</script>")
			End If
			   Dim RSObj
			  Set RSObj = Conn.Execute("Select * From KS_Link Where LinkID=" & LinkID)
			  If Not RSObj.EOF Then
				 SiteName = Trim(RSObj("SiteName"))
				 WebMaster = Trim(RSObj("WebMaster"))
				 Email = Trim(RSObj("Email"))
				 Url = Trim(RSObj("Url"))
				 Logo = Trim(RSObj("Logo"))
				 LinkType = Trim(RSObj("LinkType"))
				 Descript = Trim(RSObj("Description"))
				 FolderID = RSObj("FolderID")
			  End If
			   RSObj.Close
			   Set RSObj = Nothing
			Response.Write ("<html>") & vbCrLf
			Response.Write ("<head>") & vbCrLf
			Response.Write ("<title>删除友情链接</title>") & vbCrLf
			Response.Write ("<meta http-equiv=""Content-Language"" content=""zh-cn"">") & vbCrLf
			Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">") & vbCrLf
			Response.Write ("<link href=""/Skin/Style.css"" rel=""stylesheet"" type=""text/css"">") & vbCrLf
			Response.Write ("</head>") & vbCrLf
			Response.Write ("<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">") & vbCrLf
			Response.Write ("<br>") & vbCrLf
			Response.Write ("  <table width=""770"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">") & vbCrLf
			Response.Write ("    <tr>") & vbCrLf
				  
			Response.Write ("    <td align=""center""><br>") & vbCrLf
			Response.Write ("        <table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""table_border"">")
			Response.Write ("          <tr class=""link_table_title""> ") & vbCrLf
			Response.Write ("          <td>删除友情链接</td>") & vbCrLf
			Response.Write ("          </tr>") & vbCrLf
			Response.Write ("          <tr><td>") & vbCrLf
			
			Response.Write "  <form action=""FriendLinkDel.asp"" name=""LinkForm"" method=""post"">" & vbCrLf
			Response.Write "   <input name=""Action"" type=""hidden"" id=""Action"" value=""Del"">" & vbCrLf
			Response.Write "   <input name=""LinkID"" type=""hidden"" value=""" & LinkID & """>" & vbCrLf
			Response.Write "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			Response.Write "    <tr>" & vbCrLf
			Response.Write "      <td>" & vbCrLf
			Response.Write "        <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
			Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td width=""20%"" height=""25"" align=""center"">" & vbCrLf
			Response.Write "              <div align=""center"">网站名称</div></td>" & vbCrLf
			Response.Write "            <td width=""542"" height=""25"">" & vbCrLf
			Response.Write SiteName & "</td>" & vbCrLf
			Response.Write "          </tr>" & vbCrLf
			Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td height=""25"" align=""center"">所属类别</td>" & vbCrLf
			Response.Write "            <td height=""25"">" & vbCrLf
						   
						Dim GRS
						Set GRS = Conn.Execute("Select FolderName From KS_LinkFolder Where FolderID=" & FolderID)
					   
			 Response.Write GRS("FolderName") & "         </td>" & vbCrLf
						  GRS.Close
						 Set GRS = Nothing
			 Response.Write "         </tr>"
			 Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td height=""25"" align=""center"">" & vbCrLf
			Response.Write "              <div align=""center"">网站站长</div></td>" & vbCrLf
			Response.Write "            <td height=""25"">" & vbCrLf
			Response.Write WebMaster & "</td>"
			Response.Write "          </tr>" & vbCrLf
			Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td height=""25"" align=""center"">" & vbCrLf
			Response.Write "              <div align=""center"">站长信箱</div></td>" & vbCrLf
			Response.Write "            <td height=""25"">" & vbCrLf
			Response.Write Email & "</td>" & vbCrLf
			Response.Write "          </tr>" & vbCrLf
			Response.Write "          <tr>"
			Response.Write "            <td height=""25"" align=""center"">网站地址</td>" & vbCrLf
			Response.Write "            <td height=""25"">" & Url & "</td>"
			Response.Write "          </tr>" & vbCrLf
			Response.Write "          <tr>"
			Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td height=""25"" align=""center"">"
			Response.Write "              <div align=""center"">网站简介</div></td>" & vbCrLf
			Response.Write "            <td height=""25"">" & vbCrLf
			Response.Write Descript & "</td>"
			Response.Write "          </tr>" & vbCrLf
			Response.Write "          <tr>" & vbCrLf
			Response.Write "            <td height=""25"" align=""center"">" & vbCrLf
			Response.Write "              <div align=""center"">原设密码</div></td>" & vbCrLf
			Response.Write "            <td height=""25"">" & vbCrLf
			Response.Write "              <input name=""OriPassWord"" type=""password"" size=""42"" > <font color=""red"">* 必须输入</font> </td>"
			Response.Write "          </tr>" & vbCrLf
			Response.Write "        </table>" & vbCrLf
			Response.Write "       </td>"
			Response.Write "    </tr>" & vbCrLf
			Response.Write "    </table>" & vbCrLf
			Response.Write "  <table width=""100%"" height=""38"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			Response.Write "    <tr>" & vbCrLf
			Response.Write "      <td height=""40"" align=""center"">" & vbCrLf
			Response.Write "        <input type=""button"" name=""Submit"" Onclick=""CheckForm()"" value="" 确 定 "">" & vbCrLf
			Response.Write "        <input type=""reset"" name=""Submit2""  value="" 重 填 "">" & vbCrLf
			Response.Write "      </td>" & vbCrLf
			Response.Write "    </tr>" & vbCrLf
			Response.Write "  </table>" & vbCrLf
			Response.Write "  </form>" & vbCrLf
			Response.Write "<Script Language=""javascript"">" & vbCrLf
			Response.Write "<!--" & vbCrLf
			Response.Write "function CheckForm()" & vbCrLf
			Response.Write "{ var form=document.LinkForm;" & vbCrLf
			Response.Write "if (form.OriPassWord.value=='')"
			Response.Write "    {"
			Response.Write "     alert(""请输入网站的原设密码!"");" & vbCrLf
			Response.Write "     form.OriPassWord.focus();" & vbCrLf
			Response.Write "     return false;"
			Response.Write "    }" & vbCrLf
			Response.Write " if (confirm('确定删除该站点信息吗?'))"
			Response.Write "  {  form.submit();" & vbCrLf
			Response.Write "    return true;}" & vbCrLf
			Response.Write "else" & vbCrLf
			Response.Write " {location.href='Index.asp'}"
			Response.Write "}" & vbCrLf
			Response.Write "//-->" & vbCrLf
			Response.Write "</Script>"
			Response.Write ("</td></tr></table>") & vbCrLf
			Response.Write ("        <br>") & vbCrLf
			Response.Write ("      </td>") & vbCrLf
			Response.Write ("    </tr>") & vbCrLf
			Response.Write ("  </table>") & vbCrLf
			Response.Write ("</form>") & vbCrLf
			Response.Write ("</body>") & vbCrLf
			Response.Write ("</html>") & vbCrLf
			End Sub
End Class
%>
⌨️ 快捷键说明

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