<%#@~^qgMAAA==@#@&@#@&E连接数据库@#@&@#@&@#@&UnY,mGx Px~U+D7nDcZDCO+}4N+^YcEzf6f~ ZKxUn1YkGUr#@#@&1G xdDD{JNMk7nD{ jpdPjnM\+MNik+D7n.'^W1lstGdDi;k9x!ZF%z^yFqTpwAN{Ck0nO%FGlkNyXi9lOl(ldn{LX^"N(!!8E~@#@&/Y~mGU 'd+M-+MR^.lYnG(LnmDcrl[KN(RmKx nmDkGxr#@#@&1Wx Wa+x,^Gx /DD~@#@&dY~Dkx/D-nMRm.nmYnW(%mOvJmNW94c.+1W.Nk+OE*@#@&knY,D/8xd+M\D m.nmYnW(%+1YcEmNW[8cDnmK.9/nDJ*@#@&M/cGwx~Jk+sn1YPDGw,FPC~WDK:,y%t%mk+OEaE~1WUUBF~q@#@&kWPMdc+G6PmxN,Dk 4K0~Y4+U@#@&D+k2W /+cA.kD+,J@!/^.bwOP^CxTECL'LC-m/^Db2D@*C^+MY`E安装表出错，请与管理员联系"Ebir@#@&D/2G /+cADbY+,E%l7lkm.k2O=hrx9GhcmsGk+`bI@!zdmMraY@*r@#@&D+kwKU/Rnx9@#@&n^/+@#@&h4xmhn'M/vJA+8Um:nJ*@#@&6ksnUl\nKmY4'MdvJWbV?l7+hCY4Jb@#@&wr^kl\2lDt'MdcJak1/C\n2mY4J*@#@&S+8hmxlLn lh+{.k`ES+(:l lTnxm:nJ*@#@&^KwXMro4Y'MdcJS+(mGwzE*@#@&;$xDk`EA4;5E*@#@&l9[M+dk'M/`rh8l9N.+k/Eb@#@&0ma'M/`rAn46lXJb@#@&^K:4kDd'M/cE1Vk^Vr#@#@&U9Pr6@#@&D/cm^G/@#@&@#@&B释放@#@&kE4,^VK/+1GUxv#@#@&^WUUcmsWkn@#@&/nO,mWUU{xGY4r o@#@&+ NPkE(@#@&zxwBAA==^#~@%>
<%#@~^igUAAA==@#@&@#@&;W /Y,l^sWS:[*{Y.;PPE是否启用加密码功能当为OD!+时启用P,~~@#@&k Nn6W8{Y.E~PE默认是否允许发布，不用管理员申批@#@&W!xmOrKx~:H[mYnvDk;V*@#@&./$VxDwsC1+`Md;^~JEESJr#@#@&./5s{Dnw^Cm`.d$V~EIr~EJ*@#@&Dd$V{D+aVm^+vDd;^~EC NJBEJ*@#@&Md5V{Dwsl^nvDd;^SJ6n^r~JEb@#@&./$s{DnaVmm+vDk5VBJrxk+.Or~Jrb@#@&D/$sxDw^l^+c.k;s~r;w9lOnr~JEb@#@&./$s{DnaVmm+vDk5VBJ[+^+Onr~Jrb@#@&D/$sxDw^l^+c.k;s~r^W!xOEBJJb@#@&Dd;^xM+2^l1+`M/$s~reE~rJb@#@&D/$s'M+w^C^+vDk;s~EYr~EJ*@#@&M/5s{D+2smmn`Md$VSrm4DJBJrb@#@&Dd;^'.naVl1n`M/;^SE:bNr~EJb@#@&Dd;^xDwsC1+`.d$VSJD.!x^mYJ~rJ*@#@&M/5V{Dn2^lmcDk;VBE^tmDr~EJb@#@&Dd;^xDwsC1+`.d$VSJ9n1VCM+r~Jr#@#@&Dk;s'M+2smm+v./$V~rhC/D+MJSJEb@#@&hX9CY'.d$V@#@&n N~0!U1YrKx@#@&B定义会员表@#@&!d+MYC4^+xE.LtNmYm4VmCNsk J@#@&^404ro1slk/r[{JFqS8 SF2S8cE@#@&E释放OO O@#@&0!x^YbWU~1VWknmKxxvb@#@&k+DP./xUKY4k L@#@&mGU RmsGk+@#@&knDP^Kx 'xKY4rxT@#@&+ N~W!xmDrW @#@&Sn8w!4(4d/nU9'f@#@&A+(w;8(4/hCbxx*@#@&@#@&v检测是否为数字@#@&6Ex1YbGx,kdq YnLD`aCDm#P@#@&r0,kkx;:n.bmcwm.l*'WC^/+~O4+UPbdbxOoD'6l^d+,@#@&k6PrdgjV^cwmDl*~Otx,@#@&kd( Yno.'6lsdP@#@&nXkOP6; mObW P@#@&+ [Pb0~@#@&/O.{m/D.`alDmb~@#@&k6PODrhv/OD*xJrPO4xP@#@&b/(xDnT+.{0mV/P@#@&+XkOP6EU^DkW ~@#@&+x9~r0,@#@&VxVnUv/OD*~@#@&0G.,k'q~DW~V,@#@&kW,:bN`kYMSkBFb@*r,E~KDPsrNv/YMSr~8#@!JTJ~O4+UP@#@&kkqUOo+.x6ls/~@#@&nXkDP0!x1OkKx~@#@&+U[,k0,@#@& +6D~@#@&b/&xO+LnM'OD!nP@#@&nU9P0;U1YrW @#@&/;(P6DWsm4V`6DG:D6Ob@#@&k6~0MW:DaO'rsmVd+E~Dtnx@#@&D/2G /+ .NrD^DPEJk N+XRmdwr@#@&+ N~r6@#@&UN,/E(@#@&W5ABAA==^#~@%>
<%
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(13)
result=result+" "
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(32)
'result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>
<%classid=mydate(request("classid"))
smallclassid=mydate(request("smallclassid"))
forthclassid=mydate(request("forthclassid"))
keyword=trim(mydate(request("keyword")))
jx=trim(mydate(request("jx")))
purl="index"
if smallclassid<>"" then call fromchk(isInteger(smallclassid))
if forthclassid<>"" then call fromchk(isInteger(forthclassid))
if classid<>"" then
call fromchk(isInteger(classid))
if classid<4 then response.redirect "../index.html"
end if
pagenum=25
page=request("page")
if page="" then page=1
if classid<>"" then
rs.open "select class from zjhj_table_menu_class where id="&classid&"",conn,1,1
if rs.eof and rs.bof then
response.write ""
response.end
else
'bigclass=rs("class")
'bigclass=" "&bigclass&" >> "
end if
rs.close
else
bigclass=""
end if
if smallclassid="" then smallclassid=10000
rs.open "select smallclass,thirdclass,allowsearch,hot,showdate from zjhj_table_menu_smallclass where id="&smallclassid&"",conn,1,1
if rs.eof and rs.bof then
response.write ""
response.end
else
smallclass=rs("smallclass")
hthirdclassid=rs("thirdclass")
allowsearch=rs("allowsearch")
showdate=rs("showdate")
plist=rs("hot")
end if
rs.close
'取出第一个三级栏目
if forthclassid="" then
'检测是否有三级栏目
rs.open "select id,smallclass,list from oa_date_smallclass where classid="&hthirdclassid&" order by -ss,id",conn,1,1
if rs.eof and rs.bof then
tsmallclass=""
forthclass=smallclass
sql="select title,template,current_y,frombm,content,createdate from zjhj_table_title where smallclassid="&smallclassid&" and fb=1 order by -id"
'plist=false
else
cid=rs("id")
forthclass=rs("smallclass")
plist=rs("list")
tsmallclass=" >> "&rs("smallclass")
sql="select title,template,current_y,frombm,content,createdate from zjhj_table_title where smallclassid="&smallclassid&" and fb=1 and thirdclass="&cid&" order by -id"
end if
rs.close
'当forthclassid不为空时
else
rs.open "select smallclass,list from oa_date_smallclass where id="&forthclassid&"",conn,1,1
if rs.eof and rs.bof then
forthclass=smallclass
tsmallclass=""
plist=false
sql="select title,template,current_y,frombm,content,createdate from zjhj_table_title where smallclassid="&smallclassid&" and fb=1 order by -id"
else
forthclass=rs("smallclass")
plist=rs("list")
tsmallclass=" >> "&rs("smallclass")
sql="select title,template,current_y,frombm,content,createdate from zjhj_table_title where smallclassid="&smallclassid&" and fb=1 and thirdclass="&forthclassid&" order by -id"
end if
rs.close
end if
'定义图片
if classid="" then
setpic="msg"&smallclassid
else
setpic="msg"&classid
end if
%>
暨阳廉政网
