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

📄 edit.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 colspan="2" class=Hxcmsss>广告系统</td>
  </tr>
  <tr class=Hxcmsqs align="center"> 
    <td colspan="2"><img src="images/dot.gif" align="absmiddle">
    <a href="add.asp">添加广告</a>
    <a href="index.asp">广告列表</a>
    <a href="index.asp?action=stop">过期广告</a>
    <a href="code.asp">广告代码</a></td>
  </tr>
</table>
<%
On Error Resume Next
Dim rs,sql,id
If Request.QueryString("id")<> "" Then
id=Request.QueryString("id")
'=============打开/更新广告数据
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select ADID,ADType,ADSrc,ADHeight,ADWidth,ADLink,ADAlt,ADStopViews,ADStopHits,ADStopDate,ADNote,ADViews,ADHits from [ad] where id=" & id
rs.Open sql,conn,1,3
'=============是否更新
If Request.Form("ChangeAD") <> "" Then
	rs("ADID")=DangerEncode(Request.Form("ADID"))
	rs("ADType")=DangerEncode(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")=DangerEncode(Request.Form("ADNote"))
	If Request.Form("ADRESET")="YES" Then
		rs("ADViews")=0
		rs("ADHits")=0
	End If
	rs.Update
	Response.Write "<P align=center><font color=red>更改成功！<font></p>"
End If
If Err <> 0 Then
	Response.Write "<P align=center><font color=red size=2>错误:"&Err.Description
	Response.End
End If
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse"><form name=form action=edit.asp?id=<%=id%>  method=post onsubmit="return chkinput()">
  <tr align="center" class=Hxcmsqs>
   <td colspan="2" height="25">修 改 广 告</td>  
  </tr>
  <tr class=Hxcmsds>
    <td width="30%" height="23" align="right"><font size="4" color="#FF00FF">*</font>广告 &nbsp;ID：</td>        
    <td width="70%" height="23">表名：<INPUT name=ADID type="text" class="input1" value="<%=rs("ADID")%>" size=10 maxlength=20> JS文件名：<b>js/<%=rs("ADID")%>.js </b>&nbsp; <a href="createjs.asp?id=<%=rs("ADID")%>" target="_self">生成JS</a>&nbsp;&nbsp;</td>                               
  </tr>
  <tr class=Hxcmsds>
    <td height="26" align="right"><font size="4" color="#FF00FF">*</font>广告类型：</td>
    <td height="26"><select name="ADType" size="1" class="input1" onChange="ChangeType(this.options[this.selectedIndex].value)">
  <option <%If rs("ADType")=1 Then Response.Write"selected"%> value="1">普通显示</option>
  <option <%If rs("ADType")=2 Then Response.Write"selected"%> value="2">满屏浮动显示</option>
  <option <%If rs("ADType")=3 Then Response.Write"selected"%> value="3">上下浮动显示 
  - 右</option>
  <option <%If rs("ADType")=4 Then Response.Write"selected"%> value="4">上下浮动显示 
  - 左</option>
  <option <%If rs("ADType")=5 Then Response.Write"selected"%> value="5">全屏幕渐隐消失</option>
  <option <%If rs("ADType")=6 Then Response.Write"selected"%> value="6">普通网页对话框 </option>
  <option <%If rs("ADType")=7 Then Response.Write"selected"%> value="7">可移动透明对话框 </option>
  <option <%If rs("ADType")=8 Then Response.Write"selected"%> value="8">打开新窗口</option>
  <option <%If rs("ADType")=9 Then Response.Write"selected"%> value="9">弹出新窗口</option>
  <option <%If rs("ADType")=10 Then Response.Write"selected"%> value="10">对联式广告</option>
  <option <%If rs("ADType")=11 Then Response.Write"selected"%>  value="11">HTML式广告代码</option>
</select></td>                                                         
  </tr>
  <tr class=Hxcmsds>
    <td align="right" id="adsrc_text"><font size="4" color="#FF00FF">*</font>广告内容或地址：<a onclick="openhelp(&quot;ext&quot;)" href="#"><br>
      图片或FLASH地址？</a></td>
	<td valign="top">
	<%If rs("ADType")= 6 Then
    	Response.Write ("<textarea rows=3 name=ADSrc cols=27 class=input2>"&server.HTMLencode(rs("ADSrc"))&"</textarea>")
	else%>                                                     
    <textarea rows="5"  name="ADSrc" cols="60"><%=rs("ADSrc")%></textarea><%end if%><LI>HTML式广告代码请直接填写内容,多行含有变量的JAVASCRIPT不适合此程序！！</LI><LI>图片、GIF动画或FLASH直接填地址就可以了！</LI>
    </td>   
  </tr>
  <tr class=Hxcmsds>
    <td height="23" align="right">广告大小规格：</td>
    <td height="23"><INPUT name=ADWidth type="text" class="input1" onkeypress="return Num();" value="<%=rs("ADWidth")%>" size=8 maxlength=4>  
      × <INPUT name=ADHeight type="text" class="input1" onkeypress="return Num();" value="<%=rs("ADHeight")%>" size=8 maxlength=4>(若为“HTML式广告代码”，随便填写一个数字即可！</td>                                              
  </tr>
  <tr style="visibility:hide;" class=Hxcmsds>
    <td height="23" align="right">链接地址：</td>
    <td height="23" width="476"><INPUT name=ADLink type="text" class="input1" value="<%=rs("ADLink")%>" size=35 maxlength=150></td>                      
  </tr>
  <tr class=Hxcmsds>
    <td height="23" align="right">提示文字：</td>
    <td height="23" width="476"><INPUT name=ADAlt type="text" class="input1" value="<%=rs("ADAlt")%>" size=35 maxlength=50></td>                      
  </tr>
  <tr class=Hxcmsds>
    <td height="23" align="right">投放限制：</td>
    <td height="23" width="476"><INPUT name=ADStopViews type="text" class="input1" onkeypress="return Num();" value="<%=rs("ADStopViews")%>" size=8 maxlength=10>
      ·<INPUT name=ADStopHits type="text" class="input1" onkeypress="return Num();" value="<%=rs("ADStopHits")%>" size=8 maxlength=10>                          
      ·<INPUT name=ADStopDate type="text" class="input1" value="<%=rs("ADStopDate")%>" size=10 maxlength=19> <a href="#" onclick=openhelp("stop") title="点击查看帮助">&nbsp;&nbsp;显示·点击·日期？</a></td>                                
  </tr>
  <tr class=Hxcmsds>
    <td height="19" align="right">重新统计：</td>
    <td height="19" width="476"><input type="checkbox" name="ADRESET" value="YES"> 重置显示和点击次数</td>     </tr>
  <tr class=Hxcmsds>
    <td height="23" align="right">简单注释：</td>
    <td height="23" width="476"><textarea rows="2" name="ADNote" cols="59"><%=rs("ADNote")%></textarea><LI>注释备注不显示在广告中</LI></td>                     
  </tr>
  <tr class=Hxcmsqs>
    <td height="23" colspan="2" align="center"><INPUT name="ChangeAD" type="submit" class="input1" value="确 定"> </td>
  </tr></form>
</table>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
  <tr class=Hxcmsds>
    <td height="1" align="center">
      动态调用效果：[代码：<input style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" onfocus="this.select()" value="<script src=ad/ad.asp?adid=<%=rs("ADID")%>></script> " size="43">&nbsp; 
]</td>
  </tr>
  <tr class=Hxcmsds>
    <td height="23" align="center">
 <script src=ad.asp?adid=<%=rs("ADID")%>></script> </td>
  </tr>
  <tr class=Hxcmsds>
    <td height="1" align="center">
      JS静态效果： [代码：<input style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" onfocus="this.select()" value="<script src=JS/<%=rs("ADID")%>.js></script>  " size="43">&nbsp;]</td>
  </tr>
  <tr class=Hxcmsds>
    <td height="23" align="center">
 <script src=JS/<%=rs("ADID")%>.js></script> </td>
  </tr>
</table>
<%
Response.Write "<Script language=javascript>ChangeType('"&rs("ADType")&"')</Script>"
	rs.Close
	set rs=nothing
	conn.Close
	set conn=nothing
Else
	Response.Write "没有指明要编辑的ID。"
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
'****************************************************
' 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.
'****************************************************
%>
</body>
</html>

⌨️ 快捷键说明

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