<%@LANGUAGE="VBSCRIPT"%> <% request_BigClassName=trim(Request.QueryString("bigclassname")) request_BigClassNametitle=trim(Request.QueryString("bigclassnametitle")) on error resume next if request_BigClassName="政务公开" then request_BigClassName1="政务公开" end if if request_BigClassName="质量动态" then request_BigClassName2="质量动态" end if if request_BigClassName="劳动法" then request_BigClassName0="劳动法" end if if request_BigClassName="供求信息" then request_BigClassName3="供求信息" end if if request_BigClassName="展会信息" then request_BigClassName4="展会信息" end if if request_BigClassName="网上报价" then request_BigClassName5="网上报价" end if if request_BigClassName="资源中心" then request_BigClassName6="资源中心" end if if request_BigClassName="业界信息" then request_BigClassName7="业界信息" end if if request_BigClassName="行业动态" then request_BigClassName8="行业动态" end if if request_BigClassName="产业新闻" then request_BigClassName9="产业新闻" end if if request_BigClassName="科技园地" then request_BigClassName10="科技园地" end if %> <% set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = odbc rs1.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName1 &"'" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 3 rs1.Open() rs1_numRows = 0 %> <% set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = odbc rs2.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName2 &"'" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 3 rs2.Open() rs2_numRows = 0 %> <% set rs0 = Server.CreateObject("ADODB.Recordset") rs0.ActiveConnection = odbc rs0.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName0 &"'" rs0.CursorType = 0 rs0.CursorLocation = 2 rs0.LockType = 3 rs0.Open() rs0_numRows = 0 %> <% set rs3 = Server.CreateObject("ADODB.Recordset") rs3.ActiveConnection = odbc rs3.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName3 &"'" rs3.CursorType = 0 rs3.CursorLocation = 2 rs3.LockType = 3 rs3.Open() rs3_numRows = 0 %> <% set rs4 = Server.CreateObject("ADODB.Recordset") rs4.ActiveConnection = odbc rs4.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName4 &"'" rs4.CursorType = 0 rs4.CursorLocation = 2 rs4.LockType = 3 rs4.Open() rs4_numRows = 0 %> <% set rs5 = Server.CreateObject("ADODB.Recordset") rs5.ActiveConnection = odbc rs5.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName5 &"'" rs5.CursorType = 0 rs5.CursorLocation = 2 rs5.LockType = 3 rs5.Open() rs5_numRows = 0 %> <% set rs6 = Server.CreateObject("ADODB.Recordset") rs6.ActiveConnection = odbc rs6.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName6 &"'" rs6.CursorType = 0 rs6.CursorLocation = 2 rs6.LockType = 3 rs6.Open() rs6_numRows = 0 %> <% set rs7 = Server.CreateObject("ADODB.Recordset") rs7.ActiveConnection = odbc rs7.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName7 &"'" rs7.CursorType = 0 rs7.CursorLocation = 2 rs7.LockType = 3 rs7.Open() rs7_numRows = 0 %> <% set rs8 = Server.CreateObject("ADODB.Recordset") rs8.ActiveConnection = odbc rs8.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName8 &"'" rs8.CursorType = 0 rs8.CursorLocation = 2 rs8.LockType = 3 rs8.Open() rs8_numRows = 0 %> <% set rs9 = Server.CreateObject("ADODB.Recordset") rs9.ActiveConnection = odbc rs9.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName9 &"'" rs9.CursorType = 0 rs9.CursorLocation = 2 rs9.LockType = 3 rs9.Open() rs9_numRows = 0 %> <% set rs10 = Server.CreateObject("ADODB.Recordset") rs10.ActiveConnection = odbc rs10.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassName10 &"'" rs10.CursorType = 0 rs10.CursorLocation = 2 rs10.LockType = 3 rs10.Open() rs10_numRows = 0 %> <% set rslist = Server.CreateObject("ADODB.Recordset") rslist.ActiveConnection = odbc rslist.Source = "SELECT * FROM news WHERE bigclassname='"& request_BigClassName &"' ORDER BY updatetime desc" rslist.CursorType = 0 rslist.CursorLocation = 2 rslist.LockType = 3 rslist.Open() rslist_numRows = 0 %> <% set rs11 = Server.CreateObject("ADODB.Recordset") rs11.ActiveConnection = odbc rs11.Source = "SELECT * FROM smallclass WHERE BigClassName='" & request_BigClassNametitle &"'" rs11.CursorType = 0 rs11.CursorLocation = 2 rs11.LockType = 3 rs11.Open() rs11_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rs1_numRows = rs1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rs2_numRows = rs2_numRows + Repeat2__numRows %> <% Dim Repeat0__numRows Repeat0__numRows = -1 Dim Repeat0__index Repeat0__index = 0 rs0_numRows = rs0_numRows + Repeat0__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rs3_numRows = rs3_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 rs4_numRows = rs4_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 rs5_numRows = rs5_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Repeat6__numRows = -1 Dim Repeat6__index Repeat6__index = 0 rs6_numRows = rs6_numRows + Repeat6__numRows %> <% Dim Repeat7__numRows Repeat7__numRows = -1 Dim Repeat7__index Repeat7__index = 0 rs7_numRows = rs7_numRows + Repeat7__numRows %> <% Dim Repeat8__numRows Repeat8__numRows = -1 Dim Repeat8__index Repeat8__index = 0 rs8_numRows = rs8_numRows + Repeat8__numRows %> <% Dim Repeat9__numRows Repeat9__numRows = -1 Dim Repeat9__index Repeat9__index = 0 rs9_numRows = rs9_numRows + Repeat9__numRows %> <% Dim Repeat10__numRows Repeat10__numRows = -1 Dim Repeat10__index Repeat10__index = 0 rs10_numRows = rs10_numRows + Repeat10__numRows %> <% Repeat12__numRows = 15 Repeat12__index = 0 rslist_numRows = rslist_numRows + Repeat12__numRows %> <% Repeat11__numRows = -1 Repeat11__index = 0 rs11_numRows = rs11_numRows + Repeat11__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rslist_total = rslist.RecordCount ' set the number of rows displayed on this page If (rslist_numRows < 0) Then rslist_numRows = rslist_total Elseif (rslist_numRows = 0) Then rslist_numRows = 1 End If ' set the first and last displayed record rslist_first = 1 rslist_last = rslist_first + rslist_numRows - 1 ' if we have the correct record count, check the other stats If (rslist_total <> -1) Then If (rslist_first > rslist_total) Then rslist_first = rslist_total If (rslist_last > rslist_total) Then rslist_last = rslist_total If (rslist_numRows > rslist_total) Then rslist_numRows = rslist_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rslist_total = -1) Then ' count the total records by iterating through the recordset rslist_total=0 While (Not rslist.EOF) rslist_total = rslist_total + 1 rslist.MoveNext Wend ' reset the cursor to the beginning If (rslist.CursorType > 0) Then rslist.MoveFirst Else rslist.Requery End If ' set the number of rows displayed on this page If (rslist_numRows < 0 Or rslist_numRows > rslist_total) Then rslist_numRows = rslist_total End If ' set the first and last displayed record rslist_first = 1 rslist_last = rslist_first + rslist_numRows - 1 If (rslist_first > rslist_total) Then rslist_first = rslist_total If (rslist_last > rslist_total) Then rslist_last = rslist_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = rslist MM_rsCount = rslist_total MM_size = rslist_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record rslist_first = MM_offset + 1 rslist_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (rslist_first > MM_rsCount) Then rslist_first = MM_rsCount If (rslist_last > MM_rsCount) Then rslist_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %>
 
 
首 页 | 管理机构 | 办事程序 | 政策法规 | 技术标准 | 企业名录 | 印刷物资 | 印刷协会 | 印刷科教 | 印界精英 | 商务信息
 
 所处位置:首页 >> <%=request_BigClassName%>

政务公开
<% While ((Repeat1__numRows <> 0) AND (NOT rs1.EOF)) %>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs1.MoveNext() Wend %>
质量动态
<% While ((Repeat2__numRows <> 0) AND (NOT rs2.EOF)) %>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs2.MoveNext() Wend %>
供求信息
<% While ((Repeat3__numRows <> 0) AND (NOT rs3.EOF)) %>
 
<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs3.MoveNext() Wend %>
展会信息
<% While ((Repeat4__numRows <> 0) AND (NOT rs4.EOF)) %>
 
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rs4.MoveNext() Wend %>
网上报价
<% While ((Repeat5__numRows <> 0) AND (NOT rs5.EOF)) %>
 
<% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 rs5.MoveNext() Wend %>
资源中心
<% While ((Repeat6__numRows <> 0) AND (NOT rs6.EOF)) %>
 
<% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 rs6.MoveNext() Wend %>
业界信息
<% While ((Repeat7__numRows <> 0) AND (NOT rs7.EOF)) %>
 
<% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 rs7.MoveNext() Wend %>
行业动态
<% While ((Repeat8__numRows <> 0) AND (NOT rs8.EOF)) %>
 
<% Repeat8__index=Repeat8__index+1 Repeat8__numRows=Repeat8__numRows-1 rs8.MoveNext() Wend %>
产业新闻
<% While ((Repeat9__numRows <> 0) AND (NOT rs9.EOF)) %>
 
<% Repeat9__index=Repeat9__index+1 Repeat9__numRows=Repeat9__numRows-1 rs9.MoveNext() Wend %>
科技园地
<% While ((Repeat10__numRows <> 0) AND (NOT rs10.EOF)) %>
 
<% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 rs10.MoveNext() Wend %>

 

拓展市场 为印刷企业搭建网上平台
陕西印刷网站开通
--- 印刷行业自己的网站

　 《陕西印刷网》由陕西省新闻出版局和陕西省经济信息中心共同建设的专业性网络，是陕西经济信息网http://www.sei.se.cn的主要栏目之一，也是陕西省政府信息化建设工作的一部分。该网将面向社会提供国家关于印刷方面的政策法规信息；国内外印刷市场信息以及最新印刷科技信息；行业动态及印刷物资、业务招标、寻求合作信息；网上报价系统以最新的市场物资价格作为数据基础，直接为企业经营服务。囊括我省所有大中型印刷企业的大型管理数据库，不但为树立我省印刷业大省的代表形象，也为各企业迎接WTO和西部开发拓展知名度、谋求更大发展营造了广泛的舆论氛围，更为强化特种行业管理、开展社会监督奠定了扎实和稳定的信息基础。
　　《陕西印刷网》自建设以来，得到了有关领导和广大印刷企业的大力支持和积极配合，大型数据库的开发和实施仅仅用了两个月时间，创造了该项工作进展的高速度。试运行后不到一个月，点击率已达2000/日、人次，《陕西印刷网》的作用将随着知名度的不断提高而产生巨大的社会效益。
　　网站地址：陕西省政府信息楼101室
　　联系电话：（029）7297054 7297048
　　传 真：（029）7291787
　　机房电话：（029）7297041
　　电子信箱：wxun@sein.sxgb.sn.cn



--------建议使用IE5，800x600，16bit以上浏览--------
陕西省新闻出版局 陕西省经济信息中心 版权所有 技术支持：陕西省信息总公司网讯信息部
电话:029-7297054 7297041 传真：029-7291787
2002 Copyright by Shaanxi printing, All rights reserved
<% rs1.Close() %> <% rs2.Close() %> <% rs3.Close() %> <% rs4.Close() %> <% rs5.Close() %> <% rs6.Close() %> <% rs7.Close() %> <% rs8.Close() %> <% rs9.Close() %> <% rs10.Close() %> <% rslist.Close() %> <% rs11.Close() %>