adminaddclassadmin.asp

这是一个校友录管理系统

<!--#include file="conn.asp"-->
<!--#include file="inc/sessionadmin1.asp"-->
<%
ID=Request("ID")
SQL="Select * From [user] Where ID=" & Int(ID)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF Not RS.EOF Then
SQL="Select * From class Where ID=" & Int(RS("class"))
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
RS("admin")=Int(ID)
RS.Update
End IF
Response.Redirect "adminstuinfo.asp"
%>