📄 admin_wapadvertise.asp

📁 玛雅自助导航系统玛雅自助导航系统玛雅自助导航系统
💻 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&amp;id=<%=rs("id")%>&amp;PageNo=<%=cstr(PageNo)%>">修改</a>
<%
if rs("act")=1 then 
   Response.write "<a href=""Admin_WapAdvertise.asp?id="&rs("id")&"&amp;action=edit1&amp;PageNo="&cstr(PageNo)&""">暂停</a>"           
else   
   Response.write "<a href=""Admin_WapAdvertise.asp?id="&rs("id")&"&amp;action=edit&amp;PageNo="&cstr(PageNo)&""">激活</a>"
end if
%>
<a href="Admin_WapAdvertise.asp?Action=del&amp;id=<%=rs("id")%>&amp;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&amp;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&amp;PageNo="&Request("PageNo")&""">广告管理</a><br/>"
rs.close:set rs=nothing
end if
end sub

%>

<%set Wap=nothing%>
</p>
</card>
</wml>
💿 文件大小 137 K
👤 上传用户 lz0324
📂 所属分类网络
🏷️ 相关标签

#导航系统
⌨️ 快捷键说明

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