📄 linkaddsave.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New LinkAddSave
KSCls.Execute()
Set KSCls = Nothing
Class LinkAddSave
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 "<link href=""../Inc/ModeWindow.css"" rel=""stylesheet"">"
Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
Response.Write "<title>保存新建友情链接</title>"
Response.Write "</head>"
Dim LinkID, FolderID, SiteName, WebMaster, Email, PassWord, ConPassWord, Locked, Url, LinkType, Logo, Hits, Recommend, Descript, TrueIP, AddDate
Dim TempObj, LinkRS, LinkSql
LinkID = KSCMS.G("LinkID")
SiteName = KSCMS.ReplaceBadChar(KSCMS.G("SiteName"))
WebMaster = KSCMS.ReplaceBadChar(KSCMS.G("Webmaster"))
Email = KSCMS.G("Email")
FolderID = KSCMS.G("FolderID")
PassWord = KSCMS.G("PassWord")
ConPassWord = KSCMS.G("ConPassWord")
If Trim(PassWord) <> Trim(ConPassWord) Then
Call KSCMS.AlertHistory("网站密码不一致!!!", -1)
Set KSCMS = Nothing
Exit Sub
End If
PassWord = KSCMS.MD5(KSCMS.ReplaceBadChar(PassWord), 16)
Locked = KSCMS.G("Locked")
Url = KSCMS.G("Url")
LinkType = KSCMS.G("LinkType")
Logo = KSCMS.G("Logo")
Hits = KSCMS.ReplaceBadChar(KSCMS.G("Hits"))
Recommend = KSCMS.G("Recommend")
AddDate = KSCMS.G("AddDate")
Descript = KSCMS.ReplaceBadChar(KSCMS.G("Description"))
If SiteName <> "" Then
If Len(SiteName) >= 200 Then
Call KSCMS.AlertHistory("网站名称不能超过100个字符!", -1)
Set KSCMS = Nothing
Exit Sub
End If
Else
Call KSCMS.AlertHistory("请输入网站名称!", -1)
Set KSCMS = Nothing
Exit Sub
End If
If Request("Action") = "AddLink" Then
Set TempObj = Conn.Execute("Select SiteName from [KS_Link] where SiteName='" & SiteName & "'")
If Not TempObj.EOF Then
Call KSCMS.Alert("数据库中已存在该友情链接的站点名称!", "LinkAdd.asp")
Set KSCMS = Nothing
Response.End
End If
Set LinkRS = Server.CreateObject("adodb.recordset")
LinkSql = "select * from [KS_Link] Where (LinkID IS NULL)"
LinkRS.Open LinkSql, Conn, 1, 3
LinkRS.AddNew
LinkRS("SiteName") = SiteName
LinkRS("WebMaster") = WebMaster
LinkRS("Email") = Email
LinkRS("FolderID") = FolderID
LinkRS("PassWord") = PassWord
LinkRS("Locked") = Locked
LinkRS("Url") = Url
LinkRS("LinkType") = LinkType
LinkRS("Logo") = Logo
LinkRS("Hits") = Hits
LinkRS("Recommend") = Recommend
LinkRS("Description") = Descript
LinkRS("AddDate") = AddDate
LinkRS("Verific") = 1
LinkRS.Update
LinkRS.Close
Set LinkRS = Nothing
Response.Write ("<script>if (confirm('添加友情链接成功,继续添加吗?')) {location.href='LinkAdd.asp?FolderID=" & FolderID & "';} else { window.close();}</script>")
ElseIf Request("Action") = "EditLink" Then
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
LinkRS("FolderID") = FolderID
LinkRS("Locked") = Locked
LinkRS("Url") = Url
LinkRS("LinkType") = LinkType
LinkRS("Logo") = Logo
LinkRS("Hits") = Hits
LinkRS("Recommend") = Recommend
LinkRS("Description") = Descript
LinkRS.Update
LinkRS.Close
Set LinkRS = Nothing
Response.Write ("<script>alert('修改友情链接成功!');window.close();</script>")
End If
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -