📄 plusadd.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P080601") then Call ReturnError1()
Dim PlusName,PlusLink
PlusName = NoCSSHackAdmin(Request("Name"),"插件名称")
PlusLink = Request("Link")
if PlusLink = "" then PlusLink = "http://"
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet" type="text/css">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加插件</title>
</head>
<body leftmargin="2" topmargin="2">
<form action="" method="post" name="PlusForm">
<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.PlusForm.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 name="action" type="hidden" id="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="100" height="26">
<div align="center">插件名称</div></td>
<td>
<input name="Name" type="text" id="Name" style="width:100%" value="<% = PlusName %>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26">
<div align="center">链接地址</div></td>
<td>
<input name="Link" type="text" id="Link" style="width:100%" value="<% = PlusLink %>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26">
<div align="center">打开方式</div></td>
<td>
<input name="OpenType" type="radio" value="1" <%If Request("OpenType")<>"0" then Response.Write("checked") end if%>>
新窗口
<input type="radio" name="OpenType" value="0" <%If Request("OpenType")="0" then Response.Write("checked") end if%>>
原窗口</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26">
<div align="center">是否显示</div></td>
<td>
<input name="ShowTF" type="radio" value="1" <%If Request("ShowTF")<>"0" then Response.Write("checked") end if%>>
显 示
<input type="radio" name="ShowTF" value="0" <%If Request("ShowTF")="0" then Response.Write("checked") end if%>>
隐 藏</td>
</tr>
</table>
</form>
</body>
</html>
<%
if Request.Form("action") = "add" then
Dim PlusAddObj,PlusAddSql
if Request.Form("Name") = "" or isnull(Request.Form("Name")) then
Response.Write("<script>alert(""请输入插件名称"");</script>")
Response.End
end if
if Request.Form("Link") = "" or isnull(Request.Form("Link")) then
Response.Write("<script>alert(""请输入插件链接地址"");</script>")
Response.End
end if
Set PlusAddObj = Server.CreateObject(G_FS_RS)
PlusAddSql = "Select * from FS_Plus where 1=0"
PlusAddObj.Open PlusAddSql,Conn,3,3
PlusAddObj.AddNew
PlusAddObj("Name") = Replace(Replace(Request.Form("Name"),"""",""),"'","")
PlusAddObj("Link") = Request.Form("Link")
if Request.Form("OpenType") = "1" then
PlusAddObj("OpenType") = "1"
else
PlusAddObj("OpenType") = "0"
end if
if Request.Form("ShowTF") = "1" then
PlusAddObj("ShowTF") = "1"
else
PlusAddObj("ShowTF") = "0"
end if
PlusAddObj("AddTime") = Now()
PlusAddObj.Update
PlusAddObj.Close
Set PlusAddObj = Nothing
Response.Redirect("PlusList.asp")
Response.End
end if
Conn.Close
Set Conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -