北京市农作物种质资源信息网

<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("../zcfb.mdb") objConn.Open set objRS=server.createobject("ADODB.recordset") strSQL="select top 6 名称,时间,pic,id from [政策法规] where 栏目 like '%资源调查%' and 位置='同意' ORDER BY 时间 DESC" objRS.open strSQL,objConn,1,1 '读取数据表的所有记录并依照时间递减顺序排列 ' strSQL = "SELECT*FROM 政策法规 Where 栏目 like '%资源调查%' and 位置='同意' ORDER BY 时间 DESC" ' Set objRS = GetSQLRecordset(strSQL, "zcfb.mdb", "政策法规") %> 北京市农作物种质资源信息网 <% username= Trim(Request.Cookies("username")) 'if Session("seed")<>"seed" then if username="" then Response.Redirect "../zhifa/admin_1.asp" response.end End if userid=Request.Cookies("userid") '管理员ID GIS 和 OA 程序用 jibie=Request.Cookies("jibie") quxian=Request.Cookies("quxian") id=Request.Cookies("id") uid=Request.Cookies("uid") userid=Request.Cookies("userid") jibie1=InStr(jibie,"1") '系统管理员 jibie2=InStr(jibie,"2") '区管理员 jibie3=InStr(jibie,"3") '执法员 jibie4=InStr(jibie,"a") '企业信息 jibie5=InStr(jibie,"b") '品种信息 jibie6=InStr(jibie,"c") '投诉举报 jibie7=InStr(jibie,"d") '案件处理 jibie8=InStr(jibie,"e") '市场检查 jibie9=InStr(jibie,"F") '信用管理 xin jibie10=InStr(jibie,"G") '种子站 xin jibie11=InStr(jibie,"h") '培训信息 jibie12=InStr(jibie,"i") '宣传信息 jibie13=InStr(jibie,"j") '新闻系统 jibie14=InStr(jibie,"k") '浏览 suoyouren jibie15=InStr(jibie,"L") '内部通知1 jibie16=InStr(jibie,"M") ''内部通知2 jibie17=InStr(jibie,"N") '协会会员 jibie18=InStr(jibie,"C") '全部投诉浏览 jibie19=InStr(jibie,"D") '全部案件浏览 jibie20=InStr(jibie,"o") '市站投诉浏览 jibie21=InStr(jibie,"p") '市站案件浏览 jibie22=InStr(jibie,"w") '浏览办公室通知 jibie23=InStr(jibie,"s") '执法公开信息发布权 jibie24=InStr(jibie,"Y") 'gis访问权 %>

北京种业信息网后台管理系统

<%if jibie1<>0 or jibie5<>0 then%> <%end if%> <% if gy="ok" then %> <%end if%> <%if jibie1<>0 or jibie17<>0 then%> <%end if%> <%if quxian="北京市" then%> <%end if%> <%if username="gy8851" then%> <%if jibie24<>"" or jibie2<>"" then%> <%end if%> <%end if%>