隆众商务网－授权律师声明

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<%=Year(Now())%>年<%=Month(Now())%>月<%=Day(Now())%>日

<%if Instr(Request.ServerVariables("URL"),"info/")=0 then %>

<%end if%> <%if Instr(Request.ServerVariables("URL"),"oil") then %> <%end if%> <%if Instr(Request.ServerVariables("URL"),"plastic") then %> <%end if%> <%if Instr(Request.ServerVariables("URL"),"chemical") then %> <%end if%> <%if Instr(Request.ServerVariables("URL"),"rubber") then %> <%end if%> <%if Instr(Request.ServerVariables("URL"),"fiber") then %> <%end if%> <%if Instr(Request.ServerVariables("URL"),"chemmarket") then %> <%end if%>

<%'有数居库连接文件就执行下面的代码,否则不执行 if IsObject(conn) then %> <%end if '判断数库连接文件的结束%>

<%If isempty(session("id")) or isempty(session("name")) Then %> 用户名: 密码: 忘记密码<% else sql="select * from guestbook where id="&session("id") Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if not rs.eof then response.write "您好!"&(rs("name"))&" " if Instr(rs("power"),"1") then if rs("gzlm")=6 and rs("rzjy")=true then if rs("trial")=true then response.write " 您的权限：商务试用会员 " else response.Write " 您的权限：商务会员 " end if else if rs("trial")=true then response.write " 您的权限：试阅会员 " else response.Write " 您的权限：正式会员 " end if end if else response.write " 您的权限：免费会员 " end if datadq=DateDiff("d", Now, rs("endtime")) if datadq>=0 then Response.write " 您的权限还有 "&datadq&" 天到期 " else Response.write " 您的权限已经到期 " end if end if rs.close:Set rs = Nothing Response.write " 退出 " end if%>|搜索关键词: