?? admin_wapadvertise.asp
字號:
?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card title="管理網站信息_<%=WebName & ChannelName%>">
<p align="left">
<%
dim Action:Action=Request.QueryString("Action")
dim ok:ok=Wap.checkstr(Request("ok"),12)
If Session(WapCacheName)<>AdminName&AdminPass Then
Response.write "請重新<a href=""Admin_WapLogin.asp"">登錄！</a><br/>"
Else
select case Action
case "edit"
call edit
case "edit1"
call edit1
case "saveedit"
call saveedit
case "showlist"
call showlist
case "ShowLog"
call ShowLog
case "del"
call dellink
case else
call ListSite
end select
Response.write "<a href=""Admin_WapManage.asp"">管理首頁</a>"
End If
%>
<%
sub ListSite
dim MaxPageSize:MaxPageSize=5 '每頁顯示的記錄數
'分頁信息
dim PageNo
PageNo=Request.QueryString("PageNo")
if PageNo="" or not Isnumeric(PageNo) then
PageNo=1
else
PageNo=int(PageNo)
end if
%>
<a href="Admin_WapAdvertise.asp?Action=showlist">增加WAP廣告</a><br/><br/>
<%
sql="select * from Advertise order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn,1,1
if not rs.eof then
rs.PageSize = MaxPageSize
rs.AbsolutePage = PageNo
dim i
i=0
%>
<%Do While Not rs.EOF and i<MaxPageSize%>
<%=rs("id")%>.
<%if rs("act")=0 then
Response.write "[暫停]"&rs("sitename")&" "
ElseIf rs("act")=1 then
Response.write ""&rs("siteName")&" "
ElseIf rs("act")=2 then
Response.write "[過期]"&rs("sitename")&" "
end if%>
<%if rs("xslei")="txt" then Response.write "文本"%>
<%if rs("xslei")="gif" then Response.write "圖片"%>
<br/>
<a href="?Action=showlist&id=<%=rs("id")%>&PageNo=<%=cstr(PageNo)%>">修改</a>
<%
if rs("act")=1 then
Response.write "<a href=""Admin_WapAdvertise.asp?id="&rs("id")&"&action=edit1&PageNo="&cstr(PageNo)&""">暫停</a>"
else
Response.write "<a href=""Admin_WapAdvertise.asp?id="&rs("id")&"&action=edit&PageNo="&cstr(PageNo)&""">激活</a>"
end if
%>
<a href="Admin_WapAdvertise.asp?Action=del&id=<%=rs("id")%>&PageNo=<%=cstr(PageNo)%>">刪除</a><br/>
顯示:<%=rs("show") %>
點擊:<%=rs("click")%><br/>
<%
i=i+1
rs.MoveNext
Loop
else
%>
沒有網站廣告<br/>
<%
end if
rs.close
set rs=nothing
%>
<%Wap.WapShowPageInfo "Advertise","id","",PageNo,MaxPageSize,""%><br/>
<%
end sub
sub dellink
dim id
id=Request("id")
Wap.execute("delete from Advertise where id="&id&"")
Response.write "廣告ID名為"&ID&"的廣告刪除成功！<br/>"
Response.write "<a href=""Admin_WapAdvertise.asp"">廣告管理</a><br/>"
end sub
sub showlist
dim rs
id=Request("id")
if id<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from Advertise where id="&id&""
rs.open sql,Conn,1,1
if not rs.eof then
sitename=rs("sitename")
url=rs("url")
intro=rs("intro")
xslei=rs("xslei")
gif_url=rs("gif_url")
classs=rs("class")
lasttime=rs("lasttime")
strtitle="修改廣告ID"&id
end if
else
id="0"
sitename=""
url="http://"
intro=""
xslei="txt"
gif_url="http://"
strtitle="添加廣告"
end if
%>
<%=strtitle%><br/>
廣告名稱：<input name="sitename" type="text" value="<%=sitename%>" /><br/>
鏈接URL：<input name="url" type="text" value="<%=url%>" /><br/>
網站簡介：<input name="intro" type="text" value="<%=intro%>" /><br/>
廣告類型：<select name="xslei" size="1">
<option value="txt">純文本</option>
<option value="gif">GIF圖片</option>
</select><br/>
圖片URL：<input name="gif_url" type="text" value="<%=gif_url%>" /><br/>
<anchor>確 定<go href="Admin_WapAdvertise.asp?Action=saveedit" method="post">
<postfield name="id" value="<%=id%>"/>
<postfield name="sitename" value="$(sitename)"/>
<postfield name="url" value="$(url)"/>
<postfield name="intro" value="$(intro)"/>
<postfield name="xslei" value="$(xslei)"/>
<postfield name="gif_url" value="$(gif_url)"/>
</go></anchor><br/>
<%end sub%>
<%
sub saveedit
id=Request("id")
sitename=Request("sitename")
url=Request("url")
intro=Request("intro")
xslei=Request("xslei")
gif_url=Request("gif_url")
getclass=0
gettime=now()
If id="0" Then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Advertise",Conn,1,2
rs.AddNew
Else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Advertise where id="&id&"",Conn,1,2
End If
rs("sitename")=sitename
rs("url")=url
rs("intro")=intro
rs("xslei")=xslei
rs("gif_url")=gif_url
rs("act")=1
rs("class") = getclass
rs("shows") = getshows
rs("time")=Now()
rs("lasttime")=gettime
rs("regtime")=Now()
rs.Update
rs.close
set rs=nothing
If id="0" Then
Response.write "廣告增加成功<br/>"
Response.write "<a href=""Admin_WapAdvertise.asp"">廣告管理</a><br/>"
Else
Response.write "廣告修改成功<br/>"
Response.write "<a href=""Admin_WapAdvertise.asp"">廣告管理</a><br/>"
End If
end sub
sub edit
dim rs
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Advertise where id="&id&"",Conn,1,2
rs("act")="1"
rs.Update
response.write "廣告ID"&ID&"暫停操作成功！<br/>"
response.write "<a href=""Admin_WapAdvertise.asp?action=ListSite&PageNo="&Request("PageNo")&""">廣告管理</a><br/>"
rs.close:set rs=nothing
end sub
sub edit1
dim rs
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Advertise where id="&id&"",Conn,1,2
if not rs.eof then
rs("act")="0"
rs.Update
response.write "廣告ID"&ID&"激活操作成功！<br/>"
response.write "<a href=""Admin_WapAdvertise.asp?action=ListSite&PageNo="&Request("PageNo")&""">廣告管理</a><br/>"
rs.close:set rs=nothing
end if
end sub
%>
<%set Wap=nothing%>
</p>
</card>
</wml>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -