⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 add.asp

📁 安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!
💻 ASP
字号:
🔍 
<%Admin="ad"%>
<!--#include file="../check.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#Include File="conn.asp"-->
<%
'****************************************************
' Hxcms_JS广告插件V1.0      Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='../admin.asp';</script>")
  response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>HxAD System</title>
<LINK href="../inc/admin.css" type=text/css rel=stylesheet>
<SCRIPT LANGUAGE="JavaScript" src="images/js.js"></SCRIPT>
</head>
<body>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr> 
  <td class=Hxcmsss>广告系统</td>
</tr>
<tr class=Hxcmsqs align="center"> 
  <td><img src="images/dot.gif" align="absmiddle">
  <a href="add.asp">添加广告</a> <img src="images/dot.gif" align="absmiddle">
  <a href="index.asp">广告列表</a> <img src="images/dot.gif" align="absmiddle">
  <a href="index.asp?action=stop">过期广告</a> <img src="images/dot.gif" align="absmiddle">
  <a href="code.asp">广告代码</a></td>
</tr>
</table>
<br>
<%
Dim rs,sql
if Request.Form("AddAD")<> "" then

'加入数据
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [ad] where ADID='"&DangerEncode(Request.Form("ADID"))&"'"
rs.Open sql,conn,1,3
If not rs.eof Then
	Response.Write ("<script>alert(' 操作错误! \n\n 广告ID重复,请使用其他ID !');history.back();</script>")
	Response.end
End iF
rs.AddNew 
rs("ADID")=DangerEncode(Request.Form("ADID"))
rs("ADType")=TRIM(Request.Form("ADType"))
rs("ADSrc")=DangerEncode(Request.Form("ADSrc"))
rs("ADHeight")=TRIM(Request.Form("ADHeight"))
rs("ADWidth")=TRIM(Request.Form("ADWidth"))
rs("ADLink")=DangerEncode(Request.Form("ADLink"))
rs("ADAlt")=DangerEncode(Request.Form("ADAlt"))
rs("ADStopViews")=TRIM(Request.Form("ADStopViews"))
rs("ADStopHits")=TRIM(Request.Form("ADStopHits"))
'rs("ADStopDate")=TRIM(Request.Form("ADStopDate"))
rs("ADNote")=TRIM(Request.Form("ADNote"))
rs.Update
rs.Close

set rs=nothing
conn.Close
set conn=nothing
Response.Write "<P align=center><font color=red>加入成功！<font></p>"
end if

Rem 过滤可能出错误的符号
Function DangerEncode(fString)
If not isnull(fString) Then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "")
	fString = replace(fString, "'", """")
    fString = Trim(fString)
    DangerEncode = fString
End If
End Function
%>      
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse"><form name=form action=add.asp  method=post onsubmit="return chkinput()">
<tr class=Hxcmsqs align="center">
  <td height="30" colspan="2">添 加 新 广 告</td>
</tr>
<tr class=Hxcmsds>
  <td width="30%" align="right">广告&nbsp; ID：</td>         
  <td width="70%"><INPUT name=ADID type="text" class="input1" size="10" maxlength="20"> 不能重名</td>
</tr>
<tr class=Hxcmsds>
  <td align="right">广告类型：</td>
  <td><select size="1" name="ADType" class="input1" onChange="ChangeType(this.options[this.selectedIndex].value)">
                <option selected value="1">普通显示</option>
                <option value="2">满屏浮动显示</option>
                <option value="3">上下浮动显示-右</option>
                <option value="4">上下浮动显示-左</option>
                <option value="5">全屏幕渐隐消失</option>
                <option value="6">普通网页对话框 </option>
                <option value="7">可移动透明对话框 </option>
                <option value="8">打开新窗口</option>
                <option value="9">弹出新窗口</option>
		<option value="10">对联式广告</option>
                <option value="11">HTML式广告代码</option></select></td>
</tr>
<tr class=Hxcmsds>
  <td align="right" id="adsrc_text">图片地址或：<a onclick="openhelp(&quot;ext&quot;)" href="#">图片或FLASH地址？</a></td>
  <td height="17"><p><textarea rows="5" name="ADSrc" cols="63"></textarea><LI>HTML式广告代码请直接填写内容,多行含有变量的JAVASCRIPT不适合此程序！！</LI><LI>图片、图片GIF动画或FLASH直接填地址就可以了！</LI></td>
</tr>
<tr class=Hxcmsds>
  <td align="right">广告规格：</td>
  <td height="17"><INPUT name=ADWidth type="text" class="input1" onkeypress="return Num();" value="468" size=8 maxlength=4>
              ×     <INPUT name=ADHeight type="text" class="input1" onkeypress="return Num();" value="60" size=8 maxlength=4>(若为“HTML式广告代码”，随便填写一个数字即可！）</td>
</tr>
<tr class=Hxcmsds>
  <td align="right">链接地址：</td>
  <td height="17"><INPUT name=ADLink type="text" class="input1" size=35 maxlength=100></td>
</tr>
<tr class=Hxcmsds>
  <td align="right">提示文字：</td>
  <td height="17"><INPUT name=ADAlt type="text" class="input1" size=35 maxlength=50></td>
</tr>
<tr class=Hxcmsds>
   <td align="right">投放限制：</td>
   <td height="18">
            <INPUT name=ADStopViews type="text" class="input1" onkeypress="return Num();" value="0" size=8 maxlength=10>
            ·     
            <INPUT name=ADStopHits type="text" class="input1" onkeypress="return Num();" value="0" size=8 maxlength=10>
            ·     
            <INPUT name=ADStopDate type="text" class="input1" value="<%=year(date())%>-<%=month(date())+1%>-<%=day(date())%>" size=10 maxlength=19> <a href="#" onclick=openhelp("stop")>显示·点击·日期？</a></td>     
</tr>
<tr class=Hxcmsds>
   <td align="right">简单注释：</td>
   <td height="17"><textarea rows="2" name="ADNote" cols="59"></textarea>
   <LI>此注释备注不显示在广告中</LI></td>
</tr>
<tr class=Hxcmsqs>
   <td height="25" colspan="2" align="center"><INPUT name="AddAD" type="submit" class="input1" value="确 定"></td>
</tr></form>
</table>
</body>
</html>

⌨️ 快捷键说明

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