📄 edit.asp
字号:
<!--#Include file="../../Common/Inc_DatConn.asp"-->
<!--#Include file="../Common/Inc_Config.asp"-->
<!--#Include file="../../Common/Inc_Function.asp"-->
<!--#Include file="../Common/Inc_Function.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
strml="../"
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 网站后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Common/Site.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" src="images/js.js"></SCRIPT>
</head>
<body leftMargin="0" topMargin="2">
<!--#Include file="../Common/inc_Top.asp"-->
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="105" valign="top" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)" class="bottom"><br>
<!--#Include file="../Common/Inc_Button.asp"-->
</td>
<td valign="top" style="border-right: 1px solid rgb(0,0,0)" align="center"><br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="88%">
<TR>
<TD width="100%" valign="top">
<%
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 "<font color=red>更改成功！"
End If
If Err <> 0 Then
Response.Write "<font color=red size=2>错误:"&Err.Description
Response.End
End If
%>
<br>
<div align="center">
<table width="500" border="0" cellpadding="3" cellspacing="1" bgcolor="#9BB375">
<form name=form action=edit.asp?id=<%=id%> method=post onsubmit="return chkinput()"><tr align="center" bgcolor="c0c0c0">
<td colspan="2" class="bottom">修 改 广 告</td>
</tr>
<tr>
<td width="100" height="25" align="right" bgcolor="#E6F8C9">广告 ID：</td>
<td width="400" bgcolor="#E6F8C9"><INPUT name=ADID type="text" class="input1" value="<%=rs("ADID")%>" size=10 maxlength=20> 不能重名</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">广告类型：</td>
<td bgcolor="#E6F8C9"><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>
</select></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9" id="adsrc_text">广告地址：</td>
<td bgcolor="#E6F8C9">
<%If rs("ADType")= 6 Then
Response.Write ("<textarea rows=3 name=ADSrc cols=27 class=input2>"&server.HTMLencode(rs("ADSrc"))&"</textarea>")
else%>
<INPUT name="ADSrc" type="text" class="input1" value="<%=rs("ADSrc")%>" size=30>
<%end if%>
*<a href="#" onclick=openhelp("ext") title="点击查看帮助">图片或FLASH地址？</a></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">广告规格：</td>
<td bgcolor="#E6F8C9"><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></td>
</tr>
<tr style="visibility:hide;">
<td height="25" align="right" bgcolor="#E6F8C9">链接地址：</td>
<td bgcolor="#E6F8C9"><INPUT name=ADLink type="text" class="input1" value="<%=rs("ADLink")%>" size=30 maxlength=150></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">提示文字：</td>
<td bgcolor="#E6F8C9"><INPUT name=ADAlt type="text" class="input1" value="<%=rs("ADAlt")%>" size=30 maxlength=50></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">投放限制：</td>
<td bgcolor="#E6F8C9"><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=8 maxlength=19> <a href="#" onclick=openhelp("stop") title="点击查看帮助">显示·点击·日期？</a></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">重新统计：</td>
<td bgcolor="#E6F8C9"><input type="checkbox" name="ADRESET" value="YES"> 重置显示和点击次数</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E6F8C9">简单注释：</td>
<td bgcolor="#E6F8C9"><INPUT name=ADNote type="text" class="input1" value="<%=rs("ADNote")%>" size=30 maxlength=100> 备注不显示在广告中</td>
</tr>
<tr class="bottom">
<td height="25" colspan="2" align="center">
<INPUT name="ChangeAD" type="submit" class="button" value="确 定"> </td>
</tr></form>
</table>
</div>
<%
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
%>
</TD>
</TR>
<TR>
<TD height=1 width="100%"></TD>
</TR>
</TABLE>
</td>
</tr>
<!--#Include file="../Common/Inc_Bottom.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -