adlinka.asp

来自「中国山药网源码 演示地址:http://www.shanyaowang.com」· ASP 代码 · 共 10 行

<%if session("loc")=0 then response.redirect "admin.asp"
if trim(request("webname"))<>"" then
set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../xinhs.mdb")  &";Driver={Microsoft Access Driver (*.mdb)};"
sz = "'" & request("webname") & "','" & request("weburl") & "'" 
com.Execute("INSERT INTO link ( tit,lin ) VALUES(" & sz & ")")
com.close
end if
response.redirect "adlink.asp"%>