📄 ads_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/admin.css">
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<%
select case request("option")
case ""
main
case "del"
chk_admin_login(3)
id=request("id")
del
case "add"
chk_admin_login(1)
add
case "addok"
chk_admin_login(1)
addok
case "edit"
chk_admin_login(2)
sql="select * from [ads] where id="&cint(request("id"))
rs.open sql,conn,1,1
edit
case "editok"
chk_admin_login(2)
editok
end select
sub main
%>
<a href="?option=add">添加广告</a>
<TABLE width="95%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="ads" action="?option=del" method="post" onSubmit="return Confirm()">
  <TR class="a1" height=25> 
    <TD width="7%" align="center">&nbsp;</TD>
    <TD width="31%" align="center">广告说明</TD>
    <TD width="25%" align="center">广告调用代码</TD>
    <TD width="23%" align="center">添加日期</TD>
    <TD width="14%" align="center">操作</TD>
  </TR>
<%
sql="select * from [ads] order by id desc"
rs.open sql,conn,1,3
j=0
do while not rs.eof
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
%>
  <TR class="<%=a%>">
    <TD align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></TD>
    <TD align="center"><%=rs("intro")%></td>
    <TD align="center"><input name="adcode<%=rs("id")%>" type="text" id="adcode" onClick="window.clipboardData.setData('text',ads.adcode<%=rs("id")%>.value);alert('已经复制到剪贴板');this.select()" value='<script src="ads.asp?id=<%=rs("id")%>"></script>' size="40"></td>
    <TD align="center"><%=rs("date")%></td>
    <TD align="center"><a href="?option=edit&id=<%=rs("id")%>">修改</a></td>
  </TR>
    <%
	j=j+1
	rs.movenext
loop
rs.close %>
  <TR align="center" class="a4"> 
    <TD colspan="5"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
              全选
      <input type="submit" name="Submit2" value=" 删 除 "></TD>
    </TR>
</form>
</TABLE>
<%
end sub
sub add
%>
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="coolform" method="post" action="?option=addok" onSubmit="return CheckForm2(this);">
    <input name="content" type="hidden">
    <tr align="center">
      <td height="25" colspan="2" class="a1">添加广告</td>
    </tr>
    <tr class="a4">
      <td width="11%">简要说明:</td>
      <td width="89%">
        <input type=text name="intro" size="40">
        <font color="ff6600">(可不填)</font></td>
    </tr>
    <tr class="a3">
      <td width="11%">广告代码:</td>
      <td width="89%" height="250"><SCRIPT src="inc/post.js"></SCRIPT></td>
    </tr>
    <tr class="a4">
      <td colspan="2" align="center">
        <input name="EditSubmit" type="submit" id="EditSubmit3" value=" 添 加 ">
        　
        <input name="button" type="button" onClick="history.go(-1)" value=" 取 消 ">
      </td>
    </tr>
  </form>
</table>
<%
end sub
sub edit
%>
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="coolform" method="post" action="?option=editok" onSubmit="return CheckForm2(this);">
  <input name="id" type="hidden" value="<%=request("id")%>">
  <input name="content" type="hidden" value='<%=rs("content")%>'>
    <tr align="center">
      <td height="25" colspan="2" class="a1">修改广告</td>
    </tr>
    <tr class="a3"> 
      <td width="11%">简要说明:</td>
      <td width="89%"> <input type=text name="intro" size="40" value="<%=rs("intro")%>"> 
      <font color="ff6600">(可不填)</font></td>
    </tr>
    <tr class="a3">
      <td>广告代码:</td>
      <td height="250"><SCRIPT src="inc/post.js"></SCRIPT>
      </td>
    </tr>
    <tr> 
      <td colspan="2" align="center">
        <input name="EditSubmit" type="submit" id="EditSubmit" value=" 修 改 ">
        <input name="reset" type="reset" value=" 取 消 " onClick="javascript:history.back()"></td>
    </tr>
  </form>
</table>
<%end sub%>
</body>
</html>
<%
sub Del
	if ID="" then
		Response.Write "<br><li>请指定要删除的广告</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [ads] where id in (" & ID & ")"
	else
		sql="delete from [ads] where id=" & Clng(ID)
	end if
	Conn.Execute sql   
	response.redirect "ads_admin.asp"
end sub
sub addok
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from ads"
rs.open sql,conn,1,3
rs.addnew
rs("intro")=Request.Form("intro")
rs("content")=Request("content")
rs.update
rs.close
response.redirect "ads_admin.asp"
end sub
sub editok
sql="select * from [ads] where id="&cint(request("id"))
rs.open sql,conn,1,3
rs("intro")=request.Form("intro")
rs("content")=Request("content")
rs.update
rs.close
response.write"<script>alert('修改成功！');location.href='ads_admin.asp'</script>"
end sub
%>
⌨️ 快捷键说明

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