ad_to.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
dim ad_web,ad_url,ad_text
ad_web=request("ad_web")
ad_url=request("ad_url")
ad_text=request("ad_text")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ad" 
rs.open sql,conn,1,3

rs.AddNew
rs("ad_web")=ad_web
rs("ad_url")=ad_url
rs("ad_text")=ad_text
rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing

Response.write "添加成功！！"
Response.write"<a href=ad.asp>返回</a>"
%>