in1.asp

功能简介： 前台: 1.用户名注册:登 录 名：密码：确认密码：性别：查询权限： 地址： 联系电话： 移动电话： E - mail： 工作单位 2.系统优点管理,公告新闻管理,联系我们管理

<%
	if session("username")=empty then
		response.Write("<script>alert('请先登陆!');document.location.href='enter.asp';</script>")
	end if

%>
 <!--#include file="conn.asp"-->
 <LINK 
href="images/25175css_pro.css" type=text/css rel=stylesheet> 
 
 <table cellspacing=0 cellpadding=2 width="100%" 
                                align=center border=1>
                                    <tbody>
                                      <tr  bgcolor="#BBDCF7" >
									  
									  <%
										dim sss,sql11,zt1,zt2,zt18,zt17,zt16,zt15,zt14,zt13,zt12,zt11,zt10,zt9,zt8,zt7,zt6,zt5,zt4,zt3
										zt1=1
										zt2=1
										zt3=1
										zt4=1
										zt5=1
										zt6=1
										zt7=1
										zt8=1
										zt9=1
										zt10=1
										zt11=1
										zt12=1
										zt13=1
										zt14=1
										zt15=1
										zt16=1
										zt17=1
										zt18=1
										
										
										if request("city1")<>"" then
										 sss=request("city1")
								 		end if
										if request("city2")<>"" then
										 sss=request("city2")
								 		end if
										if session("provinceid")<>"" then
										 sss=session("provinceid")
								 		end if
										if session("cityid")<>"" then
										 sss=session("cityid")
								 		end if
										
										
										set rs2=server.createobject("adodb.recordset")
			sql11="select * from status where provinceid='"&sss&"'"
			rs2.open sql11,conn,1,1
			if not rs2.eof then
			
			
				do while not rs2.eof					
								
								if rs2("title")="cl_bh" then
									zt1=0
								end if
								if rs2("title")="cl_title" then
									zt2=0
								end if
								if rs2("title")="cl_xh" then
									zt3=0
								end if
								if rs2("title")="cl_dw" then
									zt4=0
								end if
								if rs2("title")="cl_zhj" then
									zt5=0
								end if
								if rs2("title")="cl_ajg" then
									zt6=0
								end if
								if rs2("title")="cl_bjg" then
									zt7=0
								end if
								if rs2("title")="cl_cjg" then
									zt8=0
								end if
								if rs2("title")="cl_djg" then
									zt9=0
								end if
								if rs2("title")="cl_ejg" then
									zt10=0
								end if
								if rs2("title")="cl_fjg" then
									zt11=0
								end if
								if rs2("title")="cl_cd" then
									zt12=0
								end if
								if rs2("title")="cl_dj" then
									zt13=0
								end if
								if rs2("title")="cl_pp" then
									zt14=0
								end if
								if rs2("title")="cl_yj" then
									zt15=0
								end if
								if rs2("title")="cl_bz1" then
									zt16=0
								end if
								if rs2("title")="cl_bz2" then
									zt17=0
								end if
								if rs2("title")="cl_bz3" then
									zt18=0
								end if
								
								
									
				  rs2.movenext
		     loop				
			end if
			rs2.close
		set rs2=nothing
										
																	  
											  %>
									  
									  
									  
                                        <td width="4%"  height=23  align="center">序号</td>
                                       <%
									   
									   if zt1=1 then
									   %> 
										<td height=23  align="center" width="7%" >代码</td>
										<%
									   end if
									   if zt2=1 then
									   %> 
                                        <td height=23  align="center" width="12%" >材料名称</td>
										<%
									   end if
									   if zt3=1 then
									   %> 
                                        <td height=23  align="center" width="12%" >型号规格</td>
										<%
									   end if
									   if zt4=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >单位</td>
										<%
									   end if
									   if zt5=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >信息价</td>
										<%
									   end if
									   if zt6=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >供应价</td>
										<%
									   end if
									   if zt7=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >到工地价</td>
										<%
									   end if
									   if zt8=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >C价格</td>
										<%
									   end if
									   if zt9=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >D价格</td>
										<%
									   end if
									   if zt10=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >E价格</td>
										<%
									   end if
									   if zt11=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >F价格</td>
										<%
									   end if
									   if zt12=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >产地</td>
										<%
									   end if
									   if zt13=1 then
									   %> 
                                        <td height=23  align="center" width="4%" >等级</td>
										<%
									   end if
									   if zt14=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >品牌</td>
										<%
									   end if
									   if zt15=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >厂商</td>
										<%
									   end if
									   if zt16=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >地区</td>
										<%
									   end if
									   if zt17=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >供货单位及电话</td>
										<%
									   end if
									   if zt18=1 then
									   %> 
                                        <td height=23  align="center" width="5%" >备注3</td>
										<%
									   end if
									   
									   %> 
                                        
                                      </tr>
                                      <%
								  dim pgsize,pgnum,pgcount,datacount,district,intpage,url,sql
								  set rs=server.createobject("adodb.recordset")
								
								  url="in1.asp"
								  pgsize=15
								  pgnum=1
								  pgcount=0
								  datacount=0
								  district=0
						
								 
								 if(request("page")<>"") then
								 	sql=session("sql")
										rs.open sql,conn,1,1
								 	datacount=rs.recordcount
									rs.pagesize=15
            					 	pgcount=rs.Pagecount
            					 	pgnum=session("pgnum")          
           							intpage=request("page")								
									
									select case intpage
										case 1
										
										pgnum=1
									
										case 2
										pgnum=pgnum-1
										
										case 3