adlinka.asp

中国山药网源码 演示地址:http://www.shanyaowang.com/business 后台地址:admin/admin.asp 密码:369369 密码修改地址:admin/adse

<%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"%>