📄 ordinaryfriendlinkadd.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P070501") then Call ReturnError1()
%>
<html>
<head>
<link rel="stylesheet" href="../../../CSS/FS_css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接管理</title>
</head>
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<body topmargin="2" leftmargin="2">
<form action="" method = "post" name ="FriendLinkForm">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="保存" onClick="document.FriendLinkForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> <input type="hidden" name="action" value="add"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="dddddd">
<tr bgcolor="#FFFFFF">
<td width="14%">
<div align="right">名 称</div></td>
<td>
<input name="Name" type="text" id="Name" style="width:92%" value="<%=Request("Name")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="right">类 型</div></td>
<td>
<input name="Type" type="radio" id="TypeFL" onclick="ChoosePic();" value="0" <% if Request("Type")="0" then response.Write("checked") end if%>>
文字
<input name="Type" type="radio" id="TypeFLP" onclick="ChoosePic();" value="1" <% if Request("Type")="1" or Request("Type")="" then Response.Write("checked") end if%>>
图片</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="right">显示内容</div></td>
<td>
<input name="Content" type="text" id="Content" size="35" value="<%=Request("Content")%>">
<input id="PicChoose" type="button" name="PicChoose" value="选择图片" onClick="OpenWindowAndSetValue('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',550,290,window,document.FriendLinkForm.Content);"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="right">应用页面</div></td>
<td>
<input name="AddressIndex" type="checkbox" id="AddressIndex" value="1" <%if Request("AddressIndex") = "1" then Response.Write("checked") end if%>>
首页
<input name="AddressClass" type="checkbox" id="AddressClass" value="2" <%if Request("AddressClass") = "1" then Response.Write("checked") end if%>>
栏目
<input name="AddressNews" type="checkbox" id="AddressNews" value="3" <%if Request("AddressNews") = "1" then Response.Write("checked") end if%>>
新闻
<input name="AddressSpecial" type="checkbox" id="AddressSpecial" value="4" <%if Request("AddressSpecial") = "1" then Response.Write("checked") end if%>>
专题</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="right">链接地址</div></td>
<td>
<input name="UrlT" type="text" id="Url2" style="width:92%" value="<%if Request("UrlT")<>"" then Response.Write(Request("UrlT")) else Response.Write("http://") end if%>"></td>
</tr>
</table>
</form>
</body>
</html>
<script>
function ChoosePic()
{
if (document.FriendLinkForm.TypeFL.checked==true)
{
document.FriendLinkForm.PicChoose.disabled=true;
}
else
{
document.FriendLinkForm.PicChoose.disabled=false;
}
}
</script>
<%
if request.form("action") = "add" then
Dim FLAddObj,FLAddSql,FLAddress,FLName,FLContent,FLUrl,FLAddressIndex,FLAddressClass,FLAddressNews,FLAddressSpecial
if NoCSSHackAdmin(request.Form("Name"),"名称")<>"" then
FLName = Replace(replace(Request.form("Name"),"'",""),"""","")
else
response.write("<script>alert(""请填写友情链接名称"");location=""javascript:history.back(-1)"";</script>")
response.end
end if
if request.form("Content")<>"" then
FLContent = Replace(replace(Request.form("Content"),"'",""),"""","")
else
response.write("<script>alert(""请填写友情链接内容"");location=""javascript:history.back(-1)"";</script>")
response.end
end if
if request.form("UrlT")<> "" then
FLUrl = Replace(replace(Request.form("UrlT"),"'",""),"""","")
else
response.write("<script>alert(""请填写友情链接地址"");location=""javascript:history.back(-1)"";</script>")
response.end
end if
if Request.Form("AddressIndex")="" and Request.Form("AddressClass")="" and Request.Form("AddressNews")="" and Request.Form("AddressSpecial")="" then
FLAddress = 0
else
FLAddress = Cint(Request.Form("AddressIndex")&Request.Form("AddressClass")& Request.Form("AddressNews")&Request.Form("AddressSpecial"))
end if
Set FLAddObj=server.createobject(G_FS_RS)
FLAddSql="select * from FS_FriendLink"
FLAddObj.open FLAddSql,Conn,3,3
FLAddObj.addnew
FLAddObj("Name") = Cstr(FLName)
FLAddObj("Content") = Cstr(FLContent)
FLAddObj("Url") = Cstr(FLUrl)
FLAddObj("Type") = Replace(replace(Request.form("Type"),"'",""),"""","")
FLAddObj("Address") = FLAddress
FLAddObj("AddTime") = Now()
FLAddObj.update
FLAddObj.Close
Set FLAddObj = Nothing
Response.Redirect("OrdinaryFriendLink.asp")
response.end
end if
Set Conn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -