📄 --adrot.asp

📁 OA最新破解2008版全新破解希望大家用着舒服
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag"),"62")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end 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 %> 
<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>

<table width="65%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" bordercolorlight="#DEDEDE" bordercolordark="#DEDEDE" style="border-collapse: collapse">
  <tr> 
<td height="1"> 
<% 
dim page
page=request("page")
PageSize = 3
dim rs,strSQL,news
strSQL ="SELECT * FROM Ad ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.eof then
response.write "<font color='#ffffff' class='3dfont'>还没有任何广告</font>"
else
%>
</td>
</tr></table>
<tr> 
  <table width="515" border="0" align="center" cellpadding="3" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
    <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>&nbsp;</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>]&nbsp;<%end if%>&nbsp;<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 width="515" height="73" border="1" align="center" cellpadding="0" cellspacing="1" bordercolor="#111111" bordercolorlight=#999999 bordercolordark=#999999 style="border-collapse: collapse">
    <tr bgcolor="#E1E1E1"> 
<td colspan=2 height="23" width="510"> 
<div align="right">[<a href="Adrot.asp?del=<%=rs("id")%>">删除该广告</a>]&nbsp;&nbsp;&nbsp;&nbsp; 
</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+1
loop 
end if%>


</body>
⌨️ 快捷键说明

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