ine.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<%
session("oicq")=rs("oicq")
session("email")=rs("email")
Set rs2=Server.CreateObject("ADODB.recordset")
msq2="select * from 最新动态 where user='"&id&"'"
set rs2=cn1.execute(msq2)
if rs2.eof then
rs2.close
set rs2=nothing
Set rs2=Server.CreateObject("ADODB.recordset")
msq2="select * from 最新动态 where user='admin'"
set rs2=cn1.execute(msq2)
end if
Set rs3=Server.CreateObject("ADODB.recordset")
msq3="select * from 强烈推荐 where user='"&id&"'"
set rs3=cn1.execute(msq3)
if rs3.eof then
rs3.close
set rs3=nothing
Set rs3=Server.CreateObject("ADODB.recordset")
msq3="select * from 强烈推荐 where user='admin'"
set rs3=cn1.execute(msq3)
end if
Set rs4=Server.CreateObject("ADODB.recordset")
msq4="select * from 图标链接 where user='"&id&"'"
set rs4=cn1.execute(msq4)
if rs4.eof then
rs4.close
set rs4=nothing
Set rs4=Server.CreateObject("ADODB.recordset")
msq4="select * from 图标链接 where user='admin'"
set rs4=cn1.execute(msq4)
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
Set rs6=Server.CreateObject("ADODB.recordset")
msq6="select * from 在线游戏 where user='"&id&"'"
set rs6=cn1.execute(msq6)
if rs6.eof then
rs6.close
set rs6=nothing
Set rs6=Server.CreateObject("ADODB.recordset")
msq6="select * from 在线游戏 where user='admin'"
set rs6=cn1.execute(msq6)
end if
Set rs7=Server.CreateObject("ADODB.recordset")
msq7="select * from 在线电影 where user='"&id&"'"
set rs7=cn1.execute(msq7)
if rs7.eof then
rs7.close
set rs7=nothing
Set rs7=Server.CreateObject("ADODB.recordset")
msq7="select * from 在线电影 where user='admin'"
set rs7=cn1.execute(msq7)
end if
Set rs8=Server.CreateObject("ADODB.recordset")
msq8="select * from 在线音乐 where user='"&id&"'"
set rs8=cn1.execute(msq8)
if rs8.eof then
rs8.close
set rs8=nothing
Set rs8=Server.CreateObject("ADODB.recordset")
msq8="select * from 在线音乐 where user='admin'"
set rs8=cn1.execute(msq8)
end if
Set rs9=Server.CreateObject("ADODB.recordset")
msq9="select * from 黄金下载 where user='"&id&"'"
set rs9=cn1.execute(msq9)
if rs9.eof then
rs9.close
set rs9=nothing
Set rs9=Server.CreateObject("ADODB.recordset")
msq9="select * from 黄金下载 where user='admin'"
set rs9=cn1.execute(msq9)
end if
Set rs10=Server.CreateObject("ADODB.recordset")
msq10="select * from 免费资源 where user='"&id&"'"
set rs10=cn1.execute(msq10)
if rs10.eof then
rs10.close
set rs10=nothing
Set rs10=Server.CreateObject("ADODB.recordset")
msq10="select * from 免费资源 where user='admin'"
set rs10=cn1.execute(msq10)
end if
Set rs11=Server.CreateObject("ADODB.recordset")
msq11="select * from 酷站推荐 where user='"&id&"'"
set rs11=cn1.execute(msq11)
if rs11.eof then
rs11.close
set rs11=nothing
Set rs11=Server.CreateObject("ADODB.recordset")
msq11="select * from 酷站推荐 where user='admin'"
set rs11=cn1.execute(msq11)
end if
%>