<%
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%>
<% Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM gogo where typeID=6"
Rs.Open Sql,conn,1,1
If Not rs.eof Then
Dim PageSize,i
PageSize=10
Dim Count,page,pagecount,gopage,parent
gopage="adminads.asp?sid="&sid&"&"
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%>."><%=ubb(Rs("name"))%> 点击：<%=Rs("tid")%>
<%
rs.moveNext
Next
if page-pagecount<0 then response.write "下页"
if page>1 then response.write "上页"
if pagecount>1 then response.write " "&page&"/"&pagecount&"页>>"
Else
%>
(没有广告)
<%end if%> --------- [今日会员点击] [添加广告] [点击清零] [广告中心] [后台管理]
<%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%>
<%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
%>
<%
end if
end sub%>
<%sub add
if Request.QueryString("add")="true" then
Name=Request.form("Name")
url=Request.form("url")
cent=Request.form("cent")
if cent="" or isnumeric(cent)=False then cent=0
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("cent")=cent
rs("typeID")=6
rs.update
rs.close
set rs=nothing%>
<%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")
cent=Request.form("cent")
if cent="" or isnumeric(cent)=False then cent=0
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("cent")=cent
rs.update
rs.close
set rs=nothing%>
<%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%>