admin.asp

来自「软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,」· ASP 代码 · 共 40 行

<!--#include file="conn1.asp"-->
<!--#include file="admin1.asp"-->

<%
id=request("id")
bbs=session("bbs")
oicq=session("oicq")
email=session("email")
Set rsl=Server.CreateObject("ADODB.recordset")
msql="select * from 定制站标 where user='"&id&"'"
set rsl=cn1.execute(msql)
if rsl.eof then
rsl.close
set rsl=nothing
Set rsl=Server.CreateObject("ADODB.recordset")
msql="select * from 定制站标 where user='admin'"
set rsl=cn1.execute(msql)
end if
Set rs1=Server.CreateObject("ADODB.recordset")
msq1="select * from 站长信息 where user='"&id&"'"
set rs1=cn1.execute(msq1)
if rs1.eof then
rs1.close
set rs1=nothing
Set rs1=Server.CreateObject("ADODB.recordset")
msq1="select * from 站长信息 where user='admin'"
set rs1=cn1.execute(msq1)
end if
Set rs5=Server.CreateObject("ADODB.recordset")
msq5="select * from 文学作品 where user='"&id&"'"
set rs5=cn1.execute(msq5)
if rs5.eof then
rs5.close
set rs5=nothing
Set rs5=Server.CreateObject("ADODB.recordset")
msq5="select * from 文学作品 where user='admin'"
set rs5=cn1.execute(msq5)
end if

%>