accept.asp

来自「asp交友程序1.0版 ,本程序使用的核心为蓝芒asp交友程序」· ASP 代码 · 共 49 行

<%
dim id,conn,dbpath,rs_friend,sql
id=request("id")
user_id=request("user_id")

Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

set rs_apply=server.createobject("adodb.recordset")
sql="delete * from apply where id =" & id
rs_apply.open sql,conn,3,2


set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & session("user_id")
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then response.write "dasdfasd"
set rs_back=server.createobject("adodb.recordset")
rs_back.open "select * from back",conn,3,2

rs_back.addnew
rs_back("user_id")=session("user_id")
rs_back("for_id")=user_id
rs_back("name")=rs_lar("name")
rs_back("sex")=rs_lar("sex")
rs_back("netname")=rs_lar("netname")
rs_back("home")=rs_lar("home")
rs_back("result")="已接受"
rs_back("back_date")=date
rs_back.update

set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & user_id
rs_lar.open sql,conn,3,2
set rs_friend=server.createobject("adodb.recordset")
rs_friend.open "friend",conn,3,2
rs_friend.addnew
rs_friend("for_id")=session("user_id")
rs_friend("user_id")=user_id
rs_friend("netname")=rs_lar("netname")
rs_friend("sex")=rs_lar("sex")
rs_friend("home")=rs_lar("home")
rs_friend.update

rs_back.close
rs_lar.close
response.redirect "your.asp"
%>