📄 admin_go.asp

📁 燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% 
'============================================================
' 更新: 2007-12-10
' 主页: http://wap.twapp.cn
' 电邮: xivn@163.com
' Q Q : QQ:531233814
' 版权: 燃点真情All Rights Reserved.
'============================================================ 
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!-- #include file="conn.asp" -->
<!-- #include file="Admin.asp" -->
<?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'/>
</head>
<%

	IF  (Request.QueryString("Action")="view") Then
		call view
	elseIF  (Request.QueryString("Action")="del") Then
		call del
	elseIF  (Request.QueryString("Action")="edit") Then
		call edit
	elseIF  (Request.QueryString("Action")="save") Then
		call save
	elseIF  (Request.QueryString("Action")="add") Then
		call add
	else
		call login
	End IF%>


<%sub login%>
<card id="login" title="广告管理"><p>
<img src="/IMG/6.gif" alt='广告管理'/><br/>
<%=Request.ServerVariables("SERVER_NAME")%><br/>
		<% Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "SELECT * FROM gogo"
		Rs.Open Sql,conn,1,3

If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10							
	Dim Count,page,pagecount,gopage,parent			
	gopage="admin_go.asp?sid="&sid&"&amp;"
	Count=rs.recordcount
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount	
	rs.move(pagesize*(page-1))				
	For i=1 To PageSize       						
	If rs.eof Then Exit For				
%><%=i+(page-1)*PageSize%>.<a href="admin_go.asp?sid=<%=sid%>&amp;Action=view&amp;id=<%=Rs("id")%>"><%=Rs("name")%></a><br/>点击：<%=Rs("tid")%><br/>
<%     
	rs.moveNext								
	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">>></a>"
Else
%>
	(没有广告)

<%end if%><br/>---------<br/>
<a href="admin_go.asp?sid=<%=sid%>&amp;Action=add">[添加广告]</a><br/>
<a href="index.asp?sid=<%=sid%>">[后台管理]</a></p></card>
<%end sub%>
<%sub del
id=Request("id")
if not isnumeric(id) then id=""
if id<>"" then
	IF  (Request.QueryString("del")="true") Then
			Set Rs2 = Server.CreateObject("Adodb.Recordset")
			Sql2 = "select * FROM gogo WHERE id=" & id
			Rs2.Open Sql2,conn,1,3
			if not (rs2.eof and rs2.bof) then
			rs2.Delete
			end if
			rs2.Close
			Set rs2 = Nothing%>
			<card id="revert" title="删除广告">
			<p>
			删除广告成功!<br/>
			<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
			</p>
			</card>
	<%else%>
		<card id="revert" title="删除广告">
		<p>
		注意：确定要删除该广告吗？<br/>
		<a href="admin_go.asp?Action=del&amp;id=<%=id%>&amp;del=true&amp;sid=<%=sid%>">[删除]</a> <a href="admin_go.asp?Action=login&amp;id=<%=id%>&amp;sid=<%=sid%>">[取消]</a><br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p>
		</card>
	<%End IF

else%>
		<card id="revert" title="删除广告">
		<p>
		请不要非法传递参数!<br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p>
		</card>
<%end if

end sub%>

<%sub view
id=Request("id")
if not isnumeric(id) then id=""
if id<>"" then

		Set Rs2 = Server.CreateObject("Adodb.Recordset")
		Sql2 = "select * FROM gogo WHERE id=" & id
		Rs2.Open Sql2,conn,1,1
		if not (rs2.eof and rs2.bof) then
%>
		<card id="revert" title="查看广告">
		<p>
		广告名称:<%=rs2("name")%><br/>
                点击次数:<%=rs2("tid")%><br/>
		广告地址:<%=ubb(rs2("url"))%><br/><br/>
		<a href="admin_go.asp?Action=edit&amp;id=<%=Rs2("id")%>&amp;sid=<%=sid%>">[修改]</a> <a href="admin_go.asp?Action=del&amp;id=<%=Rs2("id")%>&amp;sid=<%=sid%>">[删除]</a><br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p>
		</card>
<%

		end if
		rs2.Close
		Set rs2 = Nothing

else
%>
		<card id="revert" title="查看广告">
		<p>
		请不要非法传递参数!<br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p>
		</card>
<%
end if
end sub%>


<%sub add
	if Request.QueryString("add")="true"  then
		Name=Request.form("Name")
		url=Request.form("url")
		if name<>"" and url<>"" then
			set rs=Server.CreateObject("Adodb.Recordset")
			rs.open "select * from gogo ",conn,1,3
			rs.addnew()	
				rs("Name")=Name
				rs("url")=url
			rs.update
			rs.close
			set rs=nothing%>
			<card id="login" title="[添加广告]">
			<p>
			[添加广告]成功！	<br/>	
			<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
			</p>
			</card>

		<%else%>

			<card id="login" title="[添加广告]">
			<p>
			广告名称或广告地址不能为空!<br/>
			<br/><a href="admin_go.asp?Action=add&amp;sid=<%=sid%>">返回修改</a><br/>
			<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
			</p>
			</card>

		<%end if

	else%> 

		<card id="login" title="[添加广告]">
		<p>
		广告名称:<br/>
		<input name="name" emptyok="false" maxlength="50"/><br/>
		广告地址:<br/>
		<input name="url" emptyok="false" maxlength="255"/><br/>
		<anchor>[添加广告]
			<go href="admin_go.asp?Action=add&amp;add=true&amp;sid=<%=sid%>" method="post">
				<postfield name="url" value="$(url)" />
				<postfield name="name" value="$(name)" />
				<postfield name="Method" value="pass" />
			</go>
		</anchor><br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p></card>
	<%end if

end sub%>

<%sub edit
id=TRim(Request("id"))
if not isnumeric(id) then id=""
if id<>"" then
	if Request.QueryString("add")="true"  then
		Name=Request.form("Name")
		url=Request.form("url")
		if name<>"" and url<>"" then
			set rs=Server.CreateObject("Adodb.Recordset")
			rs.open "select * from gogo where id= "&id,conn,1,3
				rs("Name")=Name
				rs("url")=url
			rs.update
			rs.close
			set rs=nothing%>
			<card id="login" title="修改广告">
			<p>
			修改广告成功！<br/>
			<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
			</p>
			</card>

		<%else%>

			<card id="login" title="修改广告">
			<p>
			广告名或广告联接不能为空!<br/>
			<br/><a href="admin_go.asp?Action=edit&amp;id=<%=id%>&amp;sid=<%=sid%>">返回修改</a><br/>
			<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
			</p>
			</card>

		<%end if

	else
		Set Rs2 = Server.CreateObject("Adodb.Recordset")
		Sql2 = "select * FROM gogo WHERE id=" & id
		Rs2.Open Sql2,conn,1,1
		if not (rs2.eof and rs2.bof) then%> 

		<card id="login" title="修改广告">
		<p>
		广告名称:<br/>
		<input name="name" emptyok="false" maxlength="50" value="<%=rs2("name")%>"/><br/>
		广告地址:<br/>
		<input name="url" emptyok="false" maxlength="255" value="<%=ubb(rs2("url"))%>"/><br/>
		<anchor>修改广告
			<go href="admin_go.asp?Action=edit&amp;add=true&amp;id=<%=id%>&amp;sid=<%=sid%>" method="post">
				<postfield name="url" value="$(url)" />
				<postfield name="name" value="$(name)" />
				<postfield name="Method" value="pass" />
			</go>
		</anchor><br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p></card>
	<%
		end if
		rs2.Close
		Set rs2 = Nothing
	end if

else
%>
		<card id="revert" title="查看广告">
		<p>
		出错了，系统没有配置<br/>
		<a href="admin_go.asp?sid=<%=sid%>">[广告管理]</a><br/>
			<a href="index.asp?sid=<%=sid%>">[后台管理]</a><br/>
		</p>
		</card>
<%


end if

end sub%>
</wml>
💿 文件大小 898 K
👤 上传用户 zergwyk
📂 所属分类手机WAP编程
🏷️ 相关标签

#WAP #xywap #http #cn
⌨️ 快捷键说明

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