adminsysggao.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp" -->

<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim GGaoID
ggaoid=request("ggaoid")
if Not isNum(ggaoid) then
   Call AlertInfo("参数传递有误，请不要尝试破解本程序！2","help.asp",1)
end if

Function withspace(para)
  if para="" then
     withspace="　"
  else
     withspace=para
  end if
End Function

sql="select * from bbrsysggao where ggaoid="&ggaoid
set rs=server.createobject("ADODB.recordset")
rs.open sql,conn,1,3
if rs.eof then
   response.write"<br><br><center>没有找到此广告信息</center>"
   response.end
end if
if request.form("ggact")="action" then
<BR><BR>
<center>宝贝儿拍卖系统V7.0免费版本此功能已被限制，如需购买请联系：<a href="http://www.cnbbr.com" target="_blank">http://www.cnbbr.com</a></center>
else
  response.write"<table cellpadding=0 cellspacing=0 width=96% align=center border=0>" & vbcrlf
  response.write"<tr>" & vbcrlf
  response.write"<td width=100% align=center>" & vbcrlf
  response.write"<table cellpadding=0 cellspacing=1 width=100% align=center border=0 class=tablebg>" & vbcrlf

  response.write"<form name=form1 method=post action=""adminsysggao.asp"">"
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=100% align=center class=titletd colspan=2><span class=fblack>广告信息修改</span></td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告ID</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;<input name=ggaoid type=hidden value="& ggaoid &">"& ggaoid &"</td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告位标号</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;"

  Dim RsGGao
  sql="select * from bbrggaoconfig"
  set rsggao=conn.execute(sql)
  if rsggao.eof then
     response.write"系统无广告位置"
  else
  response.write"<select name=ggaoflag>" & vbcrlf
  Do while not rsggao.eof
     response.write"<option value="& rsggao("bbrggaoid")
     if rs("ggaoflag")=rsggao("bbrggaoid") then
	response.write" selected"
	Dim GGaoWidth,GGaoHeight
	ggaowidth=rsggao("bbrggaowidth")
	ggaoheight=rsggao("bbrggaoheight")
     end if
     response.write">"& rsggao("bbrggaoid") &"号广告位</option>" & vbcrlf
  rsggao.movenext
  Loop
  response.write"</select>" & vbcrlf
  end if
  response.write"</td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告类型</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;"
  response.write"<select name=ggaotype>" & vbcrlf
  response.write"<option value=""0"""
  if rs("ggaotype")=0 then response.write" selected"
  response.write">文字</option>" & vbcrlf
  response.write"<option value=""1"""
  if rs("ggaotype")=1 then response.write" selected"
  response.write">图片</option>" & vbcrlf
  response.write"<option value=""2"""
  if rs("ggaotype")=2 then response.write" selected"
  response.write">动画</option>" & vbcrlf
  response.write"</select>" & vbcrlf
  response.write"</td>" & vbcrlf
  response.write"</tr>" & vbcrlf


  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告宽度</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;<input name=ggaowidth type=text value="& ggaowidth &"> px</td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告高度</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;<input name=ggaoheight type=text value="& ggaoheight &"> px</td>" & vbcrlf
  response.write"</tr>" & vbcrlf


  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告地址</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;<input name=ggaourl type=text value="& rs("ggaourl") &"></td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>链接地址</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;<input name=ggaolink type=text value="& rs("ggaolink") &"></td>" & vbcrlf
  response.write"</tr>" & vbcrlf




  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=40% align=right>广告状态</td>" & vbcrlf
  response.write"<td width=60% align=left>&nbsp;&nbsp;"
  response.write"<select name=ggaostatus>" & vbcrlf
  response.write"<option value=""0"""
  if rs("ggaostatus")=0 then response.write" selected"
  response.write">未投放</option>" & vbcrlf
  response.write"<option value=""1"""
  if rs("ggaostatus")=1 then response.write" selected"
  response.write">正在投放</option>" & vbcrlf
  response.write"<option value=""2"""
  if rs("ggaostatus")=2 then response.write" selected"
  response.write">暂停投放</option>" & vbcrlf
  response.write"</select>" & vbcrlf
  response.write"</td>" & vbcrlf
  response.write"</tr>" & vbcrlf








  response.write"<tr class=td>" & vbcrlf
  response.write"<td width=100% align=center class=titletd colspan=2><span class=fblack><input name=ggact type=hidden value=""action""><input type=submit name=submit value=""确定修改""></span></td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"</form>" & vbcrlf

  response.write"</table>" & vbcrlf
  response.write"</td>" & vbcrlf
  response.write"</tr>" & vbcrlf
  response.write"</table>" & vbcrlf

end if
%>