<% dim rs,sql dim qs,errc,iii qs=request.servervariables("query_string") dim nothis(18) nothis(0)="net user" nothis(1)="xp_cmdshell" nothis(2)="/add" nothis(3)="exec%20master.dbo.xp_cmdshell" nothis(4)="net localgroup administrators" nothis(5)="select" nothis(6)="count" nothis(7)="asc" nothis(8)="char" nothis(9)="mid" nothis(10)="'" nothis(11)=":" nothis(12)="""" nothis(13)="insert" nothis(14)="delete" nothis(15)="drop" nothis(16)="truncate" nothis(17)="from" nothis(18)="%" errc=false for iii= 0 to ubound(nothis) if instr(qs,nothis(iii))<>0 then errc=true end if next if errc then Response.Write("对不起,非法URL地址请求!") response.end end if %> 徐州市产品质量监督检验所
      旧版网站
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where hot=3 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if %> ;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% =rs("title")%> <%=year(rs("dt"))%>-<%=month(rs("dt"))%>-<%=day(rs("dt"))%> <% rs.movenext loop rs.close set rs=nothing %>
          质检首页 | 我所信息 | 客户服务 | 企业推介  | 欢迎监督 | 请您查询
 
<% set rs=server.CreateObject("adodb.recordset") sql="select top 1 * from news where img<>''and hot=1 order by newsid desc" rs.open sql,conn,1,1 if rs.eof or rs.bof then %> <% else 'do while not (rs.eof or rs.bof) if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if %> <% 'rs.movenext ' loop end if %>
暂时没有图片
;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>">" width=220 border=1>
;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>18 then response.write left(rs("title"),18)&".." else response.write (rs("title")) end if %>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 3 * from news where hot=5 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if %> <% rs.movenext loop rs.close set rs=nothing %>
;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>18 then response.write left(rs("title"),18)&".." else response.write (rs("title")) end if %>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where bClassid=5 and classid=19 and hot<>5 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) dim mydate 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if dim olddate 'dt=rs("dt") if len(month(rs("dt")))<2 then olddate=year(rs("dt"))&"-"&"0"&month(rs("dt")) else olddate=year(rs("dt"))&"-"&month(rs("dt")) end if dim newdate 'dt=rs("dt") if len(DAY(rs("dt")))<2 then newdate=olddate&"-"&"0"&DAY(rs("dt")) else newdate=olddate&"-"&DAY(rs("dt")) end if %> <% rs.movenext loop rs.close set rs=nothing %>
;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>18 then response.write left(rs("title"),18)&".." else response.write (rs("title")) end if %> <%=newdate%>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 7 * from news where bClassid=7 and classid=22 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if %> <% rs.movenext loop rs.close set rs=nothing %>
  ;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>15 then response.write left(rs("title"),15)&".." else response.write (rs("title")) end if %>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where bClassid=11 and classid=34 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dim mydate 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if 'dim olddate 'dt=rs("dt") if len(month(rs("dt")))<2 then olddate=year(rs("dt"))&"-"&"0"&month(rs("dt")) else olddate=year(rs("dt"))&"-"&month(rs("dt")) end if 'dim newdate 'dt=rs("dt") if len(DAY(rs("dt")))<2 then newdate=olddate&"-"&"0"&DAY(rs("dt")) else newdate=olddate&"-"&DAY(rs("dt")) end if %>
  ;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>12 then response.write left(rs("title"),12)&".." else response.write (rs("title")) end if %> <%=newdate%>
<% rs.movenext loop rs.close set rs=nothing %>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where bClassid=6 and classid=20 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dim mydate 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if 'dim olddate 'dt=rs("dt") if len(month(rs("dt")))<2 then olddate=year(rs("dt"))&"-"&"0"&month(rs("dt")) else olddate=year(rs("dt"))&"-"&month(rs("dt")) end if ' dim newdate 'dt=rs("dt") if len(DAY(rs("dt")))<2 then newdate=olddate&"-"&"0"&DAY(rs("dt")) else newdate=olddate&"-"&DAY(rs("dt")) end if %>
  ;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>12 then response.write left(rs("title"),12)&".." else response.write (rs("title")) end if %> <%=newdate%>
<% rs.movenext loop rs.close set rs=nothing %>
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where bClassid=12 and classid=35 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dim mydate 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if 'dim olddate 'dt=rs("dt") if len(month(rs("dt")))<2 then olddate=year(rs("dt"))&"-"&"0"&month(rs("dt")) else olddate=year(rs("dt"))&"-"&month(rs("dt")) end if ' dim newdate 'dt=rs("dt") if len(DAY(rs("dt")))<2 then newdate=olddate&"-"&"0"&DAY(rs("dt")) else newdate=olddate&"-"&DAY(rs("dt")) end if %>
   <% if len(rs("title"))>12 then response.write left(rs("title"),12)&".." else response.write (rs("title")) end if %> <%=newdate%>
<% rs.movenext loop rs.close set rs=nothing %>
2
质监系统网站
其他网站
4
   社会评价     业务预约     免费检测     咨询投诉     行风建设     信息反馈     
3
1
   我所信息:   本所介绍       检测能力       强项介绍       联系方式       
   客户服务:   业务流程       业务预约       收费标准
   欢迎监督:   行风监督       信息反馈       咨询投诉       社会评价       
   企业推介:   CTA验证       企业推介       
   请您查询:   质量知识       法律法规       质检动态
 
 
站点地图 | 关于我们 | 版权声明 | 联系我们
徐州市产品质量监督检验所 版权所有
联系地址:江苏 徐州 湖北路 邮编:221000
建议采用IE6.0以上版本 分辨率1024X768
今日天气:
12
<% set rs=server.CreateObject("adodb.recordset") sql="select top 8 * from news where bClassid=9 order by newsid desc" rs.open sql,conn,1,1 do while not (rs.eof or rs.bof) 'dim mydate 'dt=rs("dt") if len(month(rs("dt")))<2 then mydate=year(rs("dt"))&"0"&month(rs("dt")) else mydate=year(rs("dt"))&month(rs("dt")) end if %>
  ;documents/<%=mydate%>/<%=rs("newsid")%>.shtml" target="_blank" title="<%=rs("title")%>"> <% if len(rs("title"))>13 then response.write left(rs("title"),13)&".." else response.write (rs("title")) end if %>
<% rs.movenext loop rs.close set rs=nothing %>