linkto.asp

三鸟个人网站源码。

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
dim l_page,different,l_web,l_url,l_pic,l_readme
l_page=request("l_page")
different=request("different")
l_web=request("l_web")
l_url=request("l_url")
l_pic=request("l_pic")
l_readme=request("l_readme")

if l_pic="" then
l_pic="NOLOGO"
end if

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

rs.AddNew
rs("l_page")=l_page
rs("different")=different
rs("l_web")=l_web
rs("l_url")=l_url
rs("l_pic")=l_pic
rs("l_readme")=l_readme

rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing

Response.write "添加友情连接成功！！"
Response.write"<a href=add_link.asp>返回</a>"
%>