ID无效！")
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="Select * from class where active=0 and classid="&id
rs1.open sql1,conn,1,1
if rs1.eof then
Call Error(" 栏目不存在！")
end if
classname=rs1("class")
paycent=rs1("cent")
payID=rs1("payID")
opera=rs1("opera")
prentmm=rs1("prentmm")
vipin=rs1("vipin")
rs1.close
set rs1=nothing
Response.Write" "
if opera=2 then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then
Call Error("请用手机访问！")
end if
end if
if clng(vipin)>0 then
if myid=0 then
Response.write "请您先登陆..."& chr(13)
Response.write "
"
response.write"
"
response.write"
"
Response.write "
是的"
Response.write "