📄 friendlinkmodifysave.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 FriendLinkModifySave
KSCls.Execute()
Set KSCls = Nothing
Class FriendLinkModifySave
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()
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<title>保存申请友情链接</title>"
Response.Write "</head>"
Dim LinkID, FolderID, SiteName, WebMaster, Email, OriPassWord, PassWord, ConPassWord, Locked, Url, LinkType, Logo, Hits, Recommend, Descript, TrueIP
Dim TempObj, LinkRS, LinkSql, RSCheck
LinkID = Replace(Replace(Request.Form("LinkID"), """", ""), "'", "")
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
SiteName = KSCMS.ReplaceBadChar(Request.Form("SiteName"))
WebMaster = KSCMS.ReplaceBadChar(Request.Form("Webmaster"))
Email = KSCMS.ReplaceBadChar(Request.Form("Email"))
FolderID = Replace(Replace(Request.Form("FolderID"), """", ""), "'", "")
PassWord = Request.Form("PassWord")
ConPassWord = Request.Form("ConPassWord")
If Trim(PassWord) <> Trim(ConPassWord) Then
Call KSCMS.AlertHistory("网站密码不一致!!!", -1)
Set KSCMS = Nothing
Response.End
End If
PassWord = KSCMS.MD5(KSCMS.ReplaceBadChar(PassWord), 16)
Url = Replace(Replace(Request.Form("Url"), """", ""), "'", "")
LinkType = Replace(Replace(Request.Form("LinkType"), """", ""), "'", "")
Logo = Replace(Replace(Request.Form("Logo"), """", ""), "'", "")
Descript = KSCMS.ReplaceBadChar(Request.Form("Description"))
If SiteName <> "" Then
If Len(SiteName) >= 200 Then
Call KSCMS.AlertHistory("网站名称不能超过100个字符!", -1)
Set KSCMS = Nothing
Response.End
End If
Else
Call KSCMS.AlertHistory("请输入网站名称!", -1)
Set KSCMS = Nothing
Response.End
End If
Set TempObj = Conn.Execute("Select SiteName from [KS_Link] where LinkID<>" & LinkID & " And SiteName='" & SiteName & "'")
If Not TempObj.EOF Then
Call KSCMS.Alert("数据库中已存在该友情链接的站点名称!", "LinkAdd.asp?LinkID=" & LinkID & "&Action=EditLink")
Set KSCMS = Nothing
Response.End
End If
Set LinkRS = Server.CreateObject("adodb.recordset")
LinkSql = "select * from [KS_Link] Where LinkID=" & LinkID
LinkRS.Open LinkSql, Conn, 1, 3
LinkRS("SiteName") = SiteName
LinkRS("WebMaster") = WebMaster
LinkRS("Email") = Email
If PassWord <> "" Then
LinkRS("PassWord") = PassWord
End If
LinkRS("FolderID") = FolderID
LinkRS("Url") = Url
LinkRS("LinkType") = LinkType
LinkRS("Logo") = Logo
LinkRS("Description") = Descript
LinkRS.Update
LinkRS.Close
Set LinkRS = Nothing
Response.Write ("<script>alert('修改友情链接成功!');location.href='Index.asp';</script>")
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -