apply.asp

asp交友程序1.0版 ,本程序使用的核心为蓝芒asp交友程序

<%
Option Explicit
dim conn,DBPath
dim rs_apply,rs_lar
dim user_id,netname,sql

'叛断Session变量是否超时
if isempty(session("user_id")) then
   response.redirect "timeout.htm"
end if

'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("friend.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
if session("user_id")=1 then
	response.redirect "notreg.htm"
	response.end
end if

user_id=request("user_id")
netname=request("netname")

set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where (for_id=" & session("user_id") & " and user_id=" & user_id & ") or (user_id=" & session("user_id") & " and for_id=" & user_id & ")"
rs_apply.open sql,conn,3,2
if not(rs_apply.eof and rs_apply.bof) then
	response.redirect "read.asp?user_id=" & user_id
	response.end
end if
rs_apply.close
set rs_apply=nothing

set rs_lar   =server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & cstr(session("user_id"))
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then
	response.redirect "notreg.htm"
	response.end
end if

set rs_apply=server.createobject("adodb.recordset")
rs_apply.open "apply",conn,3,2
rs_apply.addnew
rs_apply("for_id")=user_id
rs_apply("user_id")=session("user_id")
rs_apply("user_name")=rs_lar("name")
rs_apply("user_netname")=rs_lar("netname")
rs_apply("user_sex")=rs_lar("sex")
rs_apply("user_age")=rs_lar("age")
rs_apply("user_home")=rs_lar("home")
rs_apply("apply_date")=date
rs_apply.update
rs_apply.close
rs_lar.close
set rs_lar=server.createobject("adodb.recordset")
sql="select renqi from larchives where user_id =" & user_id
rs_lar.open sql,conn,3,2
rs_lar("renqi")=rs_lar("renqi")+1
rs_lar.update
rs_lar.close
set rs_lar=nothing
set conn=nothing
response.redirect "read.asp?user_id=" & user_id
%>