edit.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id")
  
  if admin="" then
  Response.Redirect "ad_login.asp"
  Response.End
  End if
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
 Response.write "<card id='card1' title='广告信息'>"
 Response.write "<p align='left'>"
 if not rs.eof then
 Set ad= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From ad_reg where id="&id&""
ad.Open sql,conn,1,2
if Not ad.EOF Then
if ad("type")="1" then 
typ="点击广告"
else
typ="分成广告"
end if
If Left(ad("money"),1)="."Then
money="0."&ad("money")&""
    else
money=ad("money")
end if
ad.MoveFirst
%>
名称:<input name='name' value='<%=ad("name")%>'/><br/>
广告语:<input name='ad_y' value='<%=ad("ad_y")%>'/><br/>
广告说明:<input name='acc' value='<%=ad("acc")%>'/><br/>
有效时间:<input name='times' value='<%=ad("time")%>'/><br/>
广告地址:<input name='you' value='<%=ad("you")%>'/><br/>
广告价钱:<input name='money' value='<%=money%>'/><br/>
广告类型:
<select name="typex" value="1"><option value="1">点击广告</option><option value="2">分成广告</option></select><br/>
重点推荐:
<select name="types" value="1"><option value="1">是</option><option value="2">否</option></select><br/>
<anchor>确定修改<go href='edits.asp?id=<%=id%>&amp;admin=<%=admin%>' method='post'>
<postfield name='name' value='$(name)'/>
<postfield name='ad_y' value='$(ad_y)'/>
<postfield name='acc' value='$(acc)'/>
<postfield name='times' value='$(times)'/>
<postfield name='you' value='$(you)'/>
<postfield name='typex' value='$(typex)'/>
<postfield name='money' value='$(money)'/>
<postfield name='types' value='$(types)'/>
</go></anchor><br/>
<a href='admin.asp?admin=<%=admin%>'>返回管理首页</a>
<%
End if
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set ad=nothing
conn.close
set conn=nothing
%>
</p></card></wml>