%on error resume next%>
<%
function getUserLevel()
connstr="Driver={sql server};uid=sa;pwd=qbs_20050106;database=cnforums;server=168.160.52.20"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set adoRS = server.CreateObject("ADODB.RECORDSET")
strSQL = "select forums_users.username,member_level.levelflag,member_level.vipflag from forums_users inner join member_level"
strSQL = strSQL & " on (forums_users.username = member_level.loginname)"
strSQL = strSQL & " where len(username)>0 and username='" & request.cookies("CnForumsGlobalUsername") & "' and password ='" & request.cookies("CnForumsGlobalPassword") & "'"
'response.write strSQL & "
"
adoRS.Open strSQL,conn,1,1
if adoRS.EOF = true then
flag = 0
else
flag = 1
level = adoRS("levelflag")
end if
adoRS.close
conn.close
if flag = 0 then
getUserLevel = 0
else
getUserLevel = level
end if
end function
function verifyLevel(thisuserlevel,requestlevel)
'response.write thisuserlevel & ""
'response.write requestlevel & ""
'response.end
if trim(requestlevel) <> "" then
if trim(thisuserlevel) < trim(requestlevel) then
Response.Write ""
end if
end if
end function
%>
电解磨床 - 电加工机床类 - 机床产业网
<% verifyLevel getUserLevel,"" %>