📄 adrot.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"62")=0 thenresponse.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"response.write"this.location.href='../login.asp';</SCRIPT>" response.endend if%><!--#include file="../../conn/dbconn2.asp" --><title>广告管理系统</title><link rel="stylesheet" type="text/css" href="../style.css"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link rel="stylesheet" type="text/css" href="../style.css"><% if request("del")<>"" then conn.Execute("delete * from Ad where id="&request("del"))end if %> <html><body bgcolor="#FFFFFF" topmargin="0" leftmargin="0"><center><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="70%" id="AutoNumber1" cellspacing="0" height="43"><tr><td width="100%" height="43"><p align="center"><font color="#FF6600" style="font-size: 14.5pt; font-weight: 700"><br>黄金广告位管理系统</font></td></tr></table></center><div align="center"><center><table width="65%" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#DEDEDE" bordercolordark="#DEDEDE" style="border-collapse: collapse" bordercolor="#111111"><tr> <td height="1"> <% dim pagepage=request("page")PageSize = 3dim rs,strSQL,newsstrSQL ="SELECT * FROM Ad ORDER BY id DESC"Set rs = Server.CreateObject("ADODB.Recordset")rs.open strSQL,Conn,1,1rs.PageSize = PageSizetotalfilm=rs.recordcountpgnum=rs.Pagecountif page="" or clng(page)<1 then page=1if clng(page) > pgnum then page=pgnumif pgnum>0 then rs.AbsolutePage=pageif rs.eof thenresponse.write "<font color='#ffffff' class='3dfont'>还没有任何广告</font>"else%></td></tr><tr> <table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="515" id="AutoNumber2"><tr><td width="12%" valign="middle"><p align="left"><A HREF="#" onclick="window.open('adrot_add.asp','','top=50,left=120,width=500 height=250')"><img src="images/add_off.gif" align=middle border=0></A> </td><td width="30%"><font color="#800000"><b><%=rs.pagecount%></b></font>/<font color="#800000"><%=page%></font>页 共<font color="#800000"><%=totalfilm%></font>个</td><td width="58%"><p align="right"> <%if page=1 then%>[首 页][上一页]<% else %>[<a href="Adrot.asp?page=1">首 页</a>][<a href="?page=<%=page-1%>">上一页</a>]<%end if%><%if rs.pagecount-page<1 then%>[下一页][尾 页]<%else%>[<a href="?page=<%=page+1%>">下一页</a>][<a href="?page=<%=rs.pagecount%>">尾 页</a>] <%end if%> <input type='text' name='page' size=2 maxlength=10 value="<%=page%>" align=center style="height: 15; width: 22"><input type='submit' value='Goto' size=2 style="border:1px solid #7C8906; color:#82850A; background-color:#F0F0F0"></td></tr></table><%count=0 do while not (rs.eof or rs.bof) and count<rs.PageSize %><table border="1" cellspacing="1" cellpadding="0" width="515" bordercolorlight=#999999 bordercolordark=#999999 height="73" style="border-collapse: collapse" bordercolor="#111111"><tr bgcolor="#E1E1E1"> <td colspan=2 height="23" width="510"> <div align="right">[<a href="Adrot.asp?del=<%=rs("id")%>">删除该广告</a>] </div></td></tr><tr> <td width="42" height="30" align="center">说明:</td><td width="466" height="30"> <textarea name="textarea" rows="2" cols="57" style="border-style:solid; border-width:1; overflow: auto"><%=rs("alt")%></textarea></td></tr><tr> <td width="42" height="19" align="center">图片:</td><td width="466" height="19"> <input type="text" value="<%=rs("src")%>" name="src2" size=16 style="border-style: solid; border-width: 1"><input type="text" name="width2" value="<%=rs("width")%>" size=2 style="border-style: solid; border-width: 1">× <input type="text" name="height2" value="<%=rs("height")%>" size=1 style="border-style: solid; border-width: 1"><select name="select" style="border-style:solid; border-width:1; height:18px;font-size:9pt"><option value="GIF" <%if rs("type")="GIF" then response.write " selected" end if%>>GIF</option><option value="SWF" <%if rs("type")="SWF" then response.write " selected" end if%>>SWF</option></select></td></tr><tr> <td width="42" height="19" align="center">链接:</td><td width="466" height="19"> <input type="text" value="<%=rs("url")%>" name="url2" size="20" style="border-style: solid; border-width: 1"><input type="hidden" name="id2" value="<%=rs("id")%>"></td></tr><tr> <td colspan="2" height="73" width="510"> <%if rs("type")="GIF" then%><div align="center"><img src="../../adshj/<%=rs("src")%>"> <%else%><embed src="../../adshj/<%=rs("src")%>" type="application/x-shockwave-flash" width="485" height="75" > </embed> <%end if%></div></td></tr></table><%rs.movenext count=count+1loop end if%></center></div></body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -