?? admin_ad.asp
字號:
<!--#include file="Include/xbqq_Setup.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include file="Include/Admin_Function.asp"-->
<% Set rs = Server.CreateObject("ADODB.Recordset") %>
<html>
<title>管理網站</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function GaobeiSys_AdCheck(){
if (document.Advertise.AD_Title.value==""){
alert("廣告標題不能為空！");
return false;
}
return true;
}
//-->
</script>
<link href="other/Admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center"><a href="Admin_AD.asp?action=Add">添加廣告</a>
| <a href="Admin_AD.asp">管理廣告</a><br>
（<font color="#FF0000">廣告支持圖片和Flash格式</font>）</td>
</tr>
</table>
<br>
<% if request("action")="Add" then %>
<form action="http://www.kuhang.cn" method="post" name="Advertise" id="Advertise">
<table width="455" height="220" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td height="24" colspan=2 align=center bgcolor="#F6F6F6">添 加 廣 告</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="24" align="center">廣告標題:</td>
<td width="81%"> <input name="AD_Title" type="text" id="AD_Title" size="50"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告圖片:</td>
<td><input name="AD_Pic" size="34">(<font color="#FF0000">支持JPG/GIF/BMP/SWF</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">上傳廣告:</td>
<td><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=AD_Pic"></iframe></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告寬度:</td>
<td><input name="AD_width" type="text" id="AD_width" size="10">(<font color="#FF0000">*必須填寫*</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告高度:</td>
<td><input name="AD_height" type="text" id="AD_height" size="10">(<font color="#FF0000">*必須填寫*</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告鏈接:</td>
<td><input name="AD_Http" type="text" id="AD_Http" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="114" height="23"> <div align="center">新窗打開:</div></td>
<td width="365" height="23"><input name="blank" type="checkbox" id="blank" style="border:0px" value="True">
<font color="#808080">鏈接是否在新窗口打開</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="93">
<div align="center">廣告說明:</div></td>
<td> <textarea name="AD_Note" cols="50" rows="5" id="AD_Note"></textarea>
</td>
</tr>
<tr bgcolor="#F6F6F6">
<td height="24" colspan=2 align=center> <input type="submit" name="Add" value="添加" onClick="return GaobeiSys_AdCheck">
<input type="reset" name="Reset" value="清除"></td>
</tr>
</table>
</form>
<% end if %>
<%if request("action")="Edit" then
AD_ID=request.querystring("AD_ID")
If AD_ID ="" Then response.redirect"Admin_AD.asp" : End If
rs.Open "Select * From Advertise where AD_ID="&AD_ID, conn,3,3
%>
<form action="Admin_AD.asp?Action=Modify" method="POST" name="Advertise" id="Advertise" >
<table width="482" height="207" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
<tr bgcolor="#F6F6F6">
<td height="24" colspan=2 align=center>修 改 廣 告</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="114" height="23"> <div align="center">廣告標題:</div></td>
<td width="365" height="23"> <input name="AD_Title" type="text" id="AD_Title" value="<%=rs("AD_Title")%>" size="50">
<input name=AD_ID type=hidden id="AD_ID" value="<%=rs("AD_ID")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告圖片:</td>
<td>
<input name="AD_Pic" type="text" id="AD_Pic" value="<%=rs("AD_Pic")%>" size="36">(<font color="#FF0000">支持JPG/GIF/BMP/SWF</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">上傳圖片:</td>
<td><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=AD_Pic"></iframe></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告鏈接:</td>
<td><input name="AD_Http" type="text" id="AD_Http" value="<%=rs("AD_Http")%>" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="114" height="23"> <div align="center">新窗打開:</div></td>
<td width="365" height="23"><input name="blank" type="checkbox" id="blank" style="border:0px" value="True" <% if Rs("blank")=True then%>checked<%end if%>>
<font color="#808080">鏈接是否在新窗口打開</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告寬度:</td>
<td><input name="AD_width" type="text" id="AD_width" value="<%=rs("AD_width")%>" size="10">(<font color="#FF0000">*必須填寫*</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center">廣告高度:</td>
<td><input name="AD_height" type="text" id="AD_height" value="<%=rs("AD_height")%>" size="10">(<font color="#FF0000">*必須填寫*</font>)</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="81"> <div align="center">廣告說明:</div></td>
<td> <textarea name="AD_Note" cols="50" rows="5" id="AD_Note"><%=rs("AD_Note")%></textarea>
</td>
</tr>
<tr bgcolor="#F6F6F6">
<td height="24" colspan=2 align=center> <input type="submit" name="Submit" value="修改" onClick="return GaobeiSys_AdCheck">
<input type="reset" name="reset" value="清除"></td>
</tr>
</table>
</form>
<% end if %>
<%
if request("action") = "" then
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
rs.Open "Select * From Advertise Order By AD_ID DESC", conn, 1,1
if rs.eof and rs.bof then
Response.Write("<p align='center'>暫時沒有任何記錄！</p>")
else
RS.PageSize=20 '設置每頁記錄數
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize'設置最大記錄數
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10<=CurPage
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#999999" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td width="50" height="20" bgcolor="#F6F6F6"><div align="center"> ID</div></td>
<td width="258" height="20" bgcolor="#F6F6F6"><div align="center"> 標 題</div></td>
<td width="100" height="20" bgcolor="#F6F6F6"><div align="center"> 寬 度</div></td>
<td width="100" height="20" bgcolor="#F6F6F6"><div align="center"> 高 度</div></td>
<td width="128" height="20" align="center" bgcolor="#F6F6F6">加 入 時 間</td>
<td width="128" height="20" align="center" bgcolor="#F6F6F6">調 用 代 碼</td>
<td width="130" height="23" align="center" bgcolor="#F6F6F6">操 作</td>
</tr>
<%I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I<RS.PageSize)
p=p+1%>
<tr bgcolor="#FFFFFF">
<td height="19" align=center bordercolorlight="#C0C0C0"> <%=rs("AD_ID")%></td>
<td height="19" align=left bordercolorlight="#C0C0C0"> <img src="Images/Gaobei_doc.gif"> <%=left(rs("AD_Title"),28)%></td>
<td height="19" align=center bordercolorlight="#C0C0C0"> <%=rs("AD_width")%></td>
<td height="19" align=center bordercolorlight="#C0C0C0"> <%=rs("AD_height")%></td>
<td align="center"><%=rs("AD_AddTime")%></td>
<td align="center"> <input type="text" onfocus=this.select() onmouseover=this.focus() size="25" value="<% Call xbqq_AD(<%=rs("AD_ID")%>) %>" readonly style="BORDER-RIGHT: medium none; BORDER-TOP: medium none;BORDER-LEFT:medium none;BORDER-bottom:medium none"></td>
<td height="23" align=middle bordercolorlight="#c0c0c0" bgcolor="#FFFFFF"><div align="center"><a href="Admin_AD.asp?Action=Edit&AD_ID=<%=rs("AD_ID")%>">修改</a>
| <a href="Admin_AD.asp?Action=Del&AD_ID=<%=rs("AD_ID")%>">刪除</a></div></td>
</tr>
<%
I=I+1
RS.MoveNext
Loop
%>
<tr bgcolor="#FFFFFF">
<td height="23" colspan=7 align="center" bordercolorlight="#C0C0C0">頁次： <font color="#CC0000"><%=CurPage%></font>/<%=TotalPages%> 頁數： <a href="Admin_AD.asp?CurPage=<%=StartPageNum-1%>"><<</a>
<% For I=StartPageNum to EndPageNum
if I<>CurPage then %> <a href="Admin_AD.asp?CurPage=<%=I%>"><%=I%></a> <% else %> <%=I%> <% end if %> <% Next %> <% if EndPageNum<RS.Pagecount then %> <a href="Admin_AD.asp?CurPage=<%=EndPageNum+1%>">下頁</a>
<%end if%>
|<a href="Admin_AD.asp">刷 新</a></td>
</tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs=nothing
end if
%>
<%
function strFilter(str)
str=Replace(str,"'","''")
str=replace(str,"|","/")
str=Replace(str,"' ","'")
strFilter=str
end function
%>
<%
if request("Action")="Save" then
AD_Title=strFilter(request("AD_Title"))
AD_Pic=strFilter(request("AD_Pic"))
AD_Http=strFilter(request("AD_Http"))
AD_width=strFilter(request("AD_width"))
AD_height=strFilter(request("AD_height"))
AD_Note=strFilter(request("AD_Note"))
If AD_Title="" Then
Response.Write "<script>alert(""請輸廣告標題!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
If AD_width="" Then
Response.Write "<script>alert(""請輸廣告寬度!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
If AD_height="" Then
Response.Write "<script>alert(""請輸廣告高度!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
sql="select * from Advertise "
rs.open sql,conn,3,2
rs.addnew
rs("AD_Title")=AD_Title
rs("AD_Pic")=AD_Pic
rs("AD_Http")=AD_Http
rs("AD_width")=AD_width
rs("AD_height")=AD_height
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
rs("AD_Note")=AD_Note
rs("AD_AddTime")=Date()
rs("AD_AddAdmin")=Session(GaobeiManageUser)
rs.update
rs.close
response.redirect "Admin_AD.asp"
end if
%>
<%
if request("Action")="Modify" then
AD_ID=request.form("AD_ID")
AD_Title=strFilter(request("AD_Title"))
AD_Pic=strFilter(request("AD_Pic"))
AD_Http=strFilter(request("AD_Http"))
AD_width=strFilter(request("AD_width"))
AD_height=strFilter(request("AD_height"))
AD_Note=strFilter(request("AD_Note"))
If AD_Title="" Then
Response.Write "<script>alert(""請輸廣告標題!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
If AD_width="" Then
Response.Write "<script>alert(""請輸廣告寬度!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
If AD_height="" Then
Response.Write "<script>alert(""請輸廣告高度!"");location.href=""javascript:history.back()"";</script>"
Response.end()
end if
rs.open "select * from Advertise where AD_ID="&AD_ID,conn,3,2
rs("AD_Title")=AD_Title
rs("AD_Pic")=AD_Pic
rs("AD_Http")=AD_Http
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
rs("AD_width")=AD_width
rs("AD_height")=AD_height
rs("AD_Note")=AD_Note
rs("AD_AddTime")=Date()
rs("AD_AddAdmin")=Session(GaobeiManageUser)
rs.update
rs.close
response.Redirect("Admin_AD.asp")
end if
%>
<%
if request("Action")="Del" then
AD_ID=Request.QueryString("AD_ID")
delsql="delete from Advertise where AD_ID="&AD_ID
conn.execute(delsql)
conn.close
response.redirect"Admin_AD.asp"
end if
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -