xuanjuAsp/conn.asp

<%'数据库路径--------------------------------
set Conn=server.createobject("adodb.connection")
Conn.open"provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("Database/#database1#.mdb")
Function RemoveHTML(strHTML) 
Dim objRegExp, Match, Matches 
Set objRegExp = New Regexp 
objRegExp.IgnoreCase = True 
objRegExp.Global = True 
'取闭合的<> 
objRegExp.Pattern = "<.+?>" 
'进行匹配 
Set Matches = objRegExp.Execute(strHTML) 
' 遍历匹配集合，并替换掉匹配的项目 
For Each Match in Matches 
strHtml=Replace(strHTML,Match.Value,"") 
Next 
RemoveHTML=strHTML 
Set objRegExp = Nothing 
End Function
%>
<%'特殊字符过滤------------------------
sub passChk()
dim sql_injdata  
SQL_injdata = "and|exec|insert|select|delete|update|count|*|chr|mid|master|truncate|char|declare|or"  
SQL_inj = split(SQL_Injdata,"|")  
'防止Get方法注入 
If Request.QueryString<>"" Then  
For Each SQL_Get In Request.QueryString  
For SQL_Data=0 To Ubound(SQL_inj)  
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then  
response.Redirect("../index.asp") 
end if  
next  
Next  
End If  
'防止Post方法注入 
If Request.Form<>"" Then  
For Each Sql_Post In Request.Form  
For SQL_Data=0 To Ubound(SQL_inj)  
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then  
response.Redirect("../index.asp")
end if  
next  
next  
end if 
end sub
call passChk()
%>
<%'网站配置 
dim webtitle,webname,weburl,webemail,address,postcode,phone,copyright,webqq,qqstate,icp,weblogo,gonggao
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from webinfo",conn,1,1
webtitle=trim(rs("webtitle"))
weburl=trim(rs("weburl"))
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
keywords=rs("keywords")
description=rs("description")
address=trim(rs("address"))
postcode=trim(rs("postcode"))
phone=trim(rs("phone"))
mobilephone=rs("mobilephone")
fax=rs("fax")
dibu=trim(rs("dibu"))
tjscript=trim(rs("tjscript"))
webqq=trim(rs("webqq"))
qqstate=trim(rs("qqstate"))
qqsite=trim(rs("qqsite"))
icp=trim(rs("icp"))
rs.close
set rs=nothing%>

<%
       Sub shouye_news(top,Cla,lk,Clink)

		set rs=server.createobject("adodb.recordset")
		sql2= "select top "&top&" * from bdnews where nb_id="&Cla&" order by nws_id asc  "
		rs.open sql2,conn,1,3
		if rs.eof then
			response.Write"<br><br><br>暂无记录"
		else%>
<%
				   do while not rs.eof

				   %>

<table width="94%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20" align="left"><img src="images/3.gif" width="9" height="9" /></td>
    <td align="left"><a href="<%=lk%>?thex=<%=rs("nws_id")%>&Cla=<%=rs("nb_id")%>&small=<%=rs("ns_id")%>"><%=left(rs("nws_title"),14)&"..."%></a></td>
  </tr>
</table>
<%
				  rs.movenext
				  loop
				  %>
<%
end if
rs.close
set rs=nothing
end sub
%>
<%
Function idx_txt(big,small,Tnum)
dim Rst
Set Rs=Server.Createobject("Adodb.Recordset")
		if big="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_order asc"
		end if
		if big="" and small="" then
		sql="select * from bdnews  where nws_stop=1 order by nws_order asc"
		end if
		if big<>"" and small="" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 order by nws_order asc"
		end if
		if big<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 and ns_id="&small&" order by nws_order asc"
		end if
		rs.open sql,conn,1,3
		if rs.eof then
		else
		Rst=left(rs("nws_note"),Tnum)
		rs.close
		set rs=nothing
		end if
		idx_txt=Rst
		end Function

%>
<%
Function ab_txt(big)
dim Rst
Set Rs=Server.Createobject("Adodb.Recordset")
		sql="select * from bdnews where nb_id="&big&" order by nws_order asc"
		rs.open sql,conn,1,3
		if rs.eof then
		else
		Rst=rs("nws_cont")
		rs.close
		set rs=nothing
		end if
		ab_txt=Rst
		end Function

%>
<%
Function A_txt(big,small)
dim Rst
Set Rs=Server.Createobject("Adodb.Recordset")
		if big="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" order by nws_order asc"
		end if
		if big="" and small="" then
		sql="select * from bdnews where nws_tj=1 order by nws_order asc"
		end if
		if big<>"" and small="" then
		sql="select * from bdnews where nb_id="&big&"  order by nws_order asc"
		end if
		if big<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&big&" and ns_id="&small&" order by nws_order asc"
		end if
		rs.open sql,conn,1,3
		if rs.eof then
		else
		Rst=rs("nws_cont")
		rs.close
		set rs=nothing
		end if
		A_txt=Rst
		end Function

%>

<%
sub shouye_picgundong(top,big,lk)
                 
				set rs=conn.execute("select top "&top&" * from bdnews where nb_id="&big&" and Fileurl<>'' order by nws_id desc")
				if rs.eof then
				response.Write "无记录"
				else
				%>
<DIV id=demo style="OVERFLOW: hidden; WIDTH: 960; COLOR: #ffffff">
  <table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td id=demo1  width="958"><table width="100%" border="0" cellspacing="0" cellpadding="10">
          <tr>
            <%do while not rs.eof
		  			if len(rs("nws_title"))>8 then
			 nws_title=left(rs("nws_title"),8)&"..."
			 else
			 nws_title=rs("nws_title")
			 end if
		  %>
            <td height="140"><table width="134" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td ><table width="134" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="134" height="180" align="center" valign="middle" bgcolor="cccccc"><a href="<%=lk%>?thex=<%=rs("nws_id")%>&big=<%=rs("nb_id")%>&small=<%=rs("ns_id")%>" target="_self"><img src="<%=replace(rs("Fileurl"),"../../","")%>" alt="点击查看详情" width="124" height="171" border="0"></a></td>
                      </tr>
                    </table></td>
                </tr>
                <tr>
                  <td height="30" align="center"><%=nws_title%></td>
                </tr>
              </table></td>
            <%
			rs.movenext
			loop
			%>
          </tr>
        </table></td>
      <td width="1" id=demo2 ></td>
    </tr>
  </table>
  <SCRIPT>
var speed3=25//速度数值越大速度越慢
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed3)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed3)}
</SCRIPT>
</DIV>
<%end if%>
<%end sub%>
<%

		Function Get_Bname(big)
		if big="" then exit Function
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from nbclass where nb_id="&big&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst=rs("nb_name")
		end if
		rs.close
		set rs=nothing
		Get_Bname=Rst
		End Function
%>
<%

		Function Get_Sname(small)
		if small="" then exit Function
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from nsclass where ns_id="&small&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst=rs("ns_name")
		end if
		rs.close
		set rs=nothing
		Get_Sname=Rst
		End Function
%>
<%
Sub news(big,small,lk,Clink)
		dim CurrentPage,TotalPages
		MaxPerPage=8
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if big="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_time desc"
		end if
		if big="" and small="" then
		sql="select * from bdnews where nws_stop=1 order by nws_time desc"
		end if
		if big<>"" and small="" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 order by nws_time desc"
		end if
		if big<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 and ns_id="&small&" order by nws_time desc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>

            <div class="agent_con">
                <!--n_top-->
               
			    <ul class="sec2">
					
  <%
		do while not rs1.eof and pp<8
		%>

    <li>
                        <div class="img_date">
                            <div class="img_datam"><p class="date"><%=day(formatdatetime(rs1("nws_time"),2))%></p><p class="month"><%=year(formatdatetime(rs1("nws_time"),2))%>-<%=month(formatdatetime(rs1("nws_time"),2))%></p></div>
                        </div>
                        <div class="news_list">
                            <h3><a href="<%=lk%>?id=<%=rs1("nws_id")%>&big=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>"> <%=rs1("nws_title")%></a></h3>
                            <p><%=left(rs1("nws_note"),100)%>...</p>
                        </div>
                    </li>

 
    
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
 </ul>
                <div class="clear"></div>
            </div>

 <div class="one1">
                <div class="fy">
  <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?big=<%=big%>&small=<%=small%>">
      <tr>
        <td height="60" align="center" style="font-size:12px;"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&big="&big&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&big="&big&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&big="&big&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&big="&big&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
		response.Write("<font color='red'> | </font>"&k&"/"&n&" <font color='red'> | </font> 库中共"&totalPut&"条信息  ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=转到>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
</div>

<%
end if
end Sub
%>
<%
Sub news2(big,small,lk,Clink)
		dim CurrentPage,TotalPages
		MaxPerPage=8
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if big="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_id desc"
		end if
		if big="" and small="" then
		sql="select * from bdnews where nws_stop=1 order by nws_id desc"
		end if
		if big<>"" and small="" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 order by nws_id desc"
		end if
		if big<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 and ns_id="&small&" order by nws_id desc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>
 <ul class="sec4 rightm">
                        
					
  <%
		do while not rs1.eof and pp<8
		%>
		

						
  
            <li>
                <h4><a href="<%=lk%>?id=<%=rs1("nws_id")%>&big=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>"><%=rs1("nws_title")%></a></h4>
                <p><%=left(rs1("nws_note"),60)%></p>
            </li>

  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>

    <div class="clear"></div>
</ul>

  <div>
  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?big=<%=big%>&small=<%=small%>">
      <tr>
        <td height="60" align="center" style="font-size:12px;"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&big="&big&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&big="&big&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&big="&big&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&big="&big&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
			response.Write("<font color='red'> | </font>"&k&"/"&n&" <font color='red'> | </font> 库中共"&totalPut&"条信息  ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=转到>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
<%
end if
end Sub
%>



<%
Sub search_news(Cla,small,lk,Clink,key)
		dim CurrentPage,TotalPages
		MaxPerPage=12
		Set Rs1=Server.Createobject("Adodb.Recordset")
		sql="select * from bdnews where nws_title like '%"&key&"%' order by nws_order asc"
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		do while not rs1.eof and pp<12
		%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="xian">
  <tr>
    <td width="90%" align="left"><a href="<%=lk%>?thex=<%=rs1("nws_id")%>&Cla=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>" target="_self" class="link3">·<%=rs1("nws_title")%></a></td>
    <td width="10%" align="left">[<%=formatdatetime(rs1("nws_time"),2)%>]</td>
  </tr>
</table>
<%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <form id="form1" name="form1" method="post" action="?Cla=<%=Cla%>&small=<%=small%>">
    <tr>
      <td height="35" align="center"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&Cla="&Cla&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&Cla="&Cla&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
		response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
		response.Write("当前第"&k&"页")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=转到/>")%>
      </td>
    </tr>
  </form>
</table>
<%
end if
end Sub
%>
<%
Sub news_pic(big,small,lk,Clink)
		dim CurrentPage,TotalPages
		MaxPerPage=5
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if big="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_order asc"
		end if
		if big="" and small="" then
		sql="select * from bdnews where nws_stop=1 order by nws_order asc"
		end if
		if big<>"" and small="" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 order by nws_order asc"
		end if
		if big<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&big&" and nws_stop=1 and ns_id="&small&" order by nws_order asc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>
		
 <div class="agent_con">
              
		

  <%
		do while not rs1.eof and pp<5
		%>
    
                         
			
   <dl class="dl_42">
                    <dt><a href="<%=lk%>?id=<%=rs1("nws_id")%>&big=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>" target="_blank"><img src="<%=replace(rs1("Fileurl"),"../../","")%>"></a></dt>
                    <dd>
                        <a href="<%=lk%>?id=<%=rs1("nws_id")%>&big=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>" target="_blank"><h4><%=left(rs1("nws_title"),12)%></h4><p><%=left(rs1("nws_note"),300)%>...</p></a>
                    </dd>
                    <div class="clear"></div>
                </dl>
						

         
	
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
          </div>
             <div class="one1">
                <div class="fy">
  <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?big=<%=big%>&small=<%=small%>">
      <tr>
        <td height="60" align="center" style="font-size:12px;"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&big="&big&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&big="&big&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&big="&big&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&big="&big&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
		response.Write("<font color='red'> | </font>"&k&"/"&n&" <font color='red'> | </font> 库中共"&totalPut&"条信息  ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=转到>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
</div>
<%
end if
end Sub
%>
<%
Sub news_pic1(Cla,small,lk,Clink)
		dim CurrentPage,TotalPages
		MaxPerPage=8
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if Cla="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_id desc"
		end if
		if Cla="" and small="" then
		sql="select * from bdnews where nws_stop=1 order by nws_id desc"
		end if
		if Cla<>"" and small="" then
		sql="select * from bdnews where nb_id="&Cla&" and nws_stop=1 order by nws_id desc"
		end if
		if Cla<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&Cla&" and nws_stop=1 and ns_id="&small&" order by nws_id desc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>
		
		
	<%
		do while not rs1.eof and pp<8
		%>
		
		<a class="cfr1" href="<%=lk%>?thex=<%=rs1("nws_id")%>&cla=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>">
                    <dl>
                        <dt><img src="<%=replace(rs1("Fileurl"),"../../","")%>" alt=""/></dt>
                        <dd>
						 <h2><%=left(rs1("nws_title"),8)%></h2>
                            <img src="img/pro_icon.png" alt=""/>
                            <h5>VIEW MORE</h5>
						</dd>
                    </dl>
                </a>
		<li>
							

	
	
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
       <div class="clear"></div>
                <div class="one1">
  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?Cla=<%=Cla%>&small=<%=small%>">
      <tr>
        <td height="60" align="center" style="font-size:12px;"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&Cla="&Cla&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&Cla="&Cla&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
		response.Write("第"&k&"页")
			response.Write(" | 共"&n&"页 | 库中"&totalPut&"条信息 | ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=点击>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
<%
end if
end Sub
%>
<%
Sub news_pic2(Cla,small,lk,Clink)
		dim CurrentPage,TotalPages
		MaxPerPage=12
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if Cla="" and small<>"" then
		sql="select * from bdnews where ns_id="&small&" and nws_stop=1 order by nws_id desc"
		end if
		if Cla="" and small="" then
		sql="select * from bdnews where nws_stop=1 order by nws_id desc"
		end if
		if Cla<>"" and small="" then
		sql="select * from bdnews where nb_id="&Cla&" and nws_stop=1 order by nws_id desc"
		end if
		if Cla<>"" and small<>"" then
		sql="select * from bdnews where nb_id="&Cla&" and nws_stop=1 and ns_id="&small&" order by nws_id desc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>
		
		
		<div class="about honor honor1">
					<ul>

  <%
		do while not rs1.eof and pp<12
		%>
		
						<li>
							<a href="<%=lk%>?thex=<%=rs1("nws_id")%>&cla=<%=rs1("nb_id")%>&small=<%=rs1("ns_id")%>">
								<div class="casepic1"><img src="<%=replace(rs1("Fileurl"),"../../","")%>"></div>
								<p><%=rs1("nws_title")%></p>
							</a>
						</li>
		
  
	
	
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
<div class="clear"></div>
   
  	</ul>
				</div> 
<div class="happ">
  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?Cla=<%=Cla%>&small=<%=small%>">
      <tr>
        <td height="60" align="center" style="font-size:12px;"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&Cla="&Cla&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&Cla="&Cla&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
	response.Write("第"&k&"页")
			response.Write(" | 共"&n&"页 | 库中"&totalPut&"条信息 | ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=点击>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
<%
end if
end Sub
%>
<%
		Function N_show()
		dim Rst,Thex
		Thex=request("Thex")
		if Thex="" then exit Function
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from bdnews where nws_id="&Thex&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst=Rst&"<center>"&rs("nws_title")&"<hr size=1 color=#e2e2e2 width=500></center>"
		Rst=Rst&rs("nws_cont")
		end if
		rs.close
		set rs=nothing
		N_show=Rst
		End Function
%>

<%

		Function Get_Cname(Cla)
		if Cla="" then exit Function
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from Cbclass where cb_id="&Cla&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst=rs("cb_name")
		end if
		rs.close
		set rs=nothing
		Get_Cname=Rst
		End Function
%>
<%

		Function Get_Xname(small)
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from Csclass where cs_id="&small&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst="&nbsp;&gt;&gt;&nbsp;"&rs("cs_name")
		end if
		rs.close
		set rs=nothing
		Get_Xname=Rst
		End Function
%>
<%
		Sub thecp(Cla,small,pclink)
	
		
		dim CurrentPage,TotalPages
		MaxPerPage=12
		Set Rs1=Server.Createobject("Adodb.Recordset")
		if Cla="" and small="" then
		sql="select * from bdcp where cxp_stop=1 order by cxp_id desc"
		end if
		if Cla="" and small<>"" then
		sql="select * from bdcp where cs_id="&small&" and cxp_stop=1 order by cxp_id desc"
		end if
		if Cla<>"" and small="" then
		sql="select * from bdcp where cb_id="&Cla&" and cxp_stop=1 order by cxp_id desc"
		end if
		if Cla<>"" and small<>"" then
		sql="select * from bdcp where cb_id="&Cla&" and cxp_stop=1 and cs_id="&small&" order by cxp_id desc"
		end if
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>


	<div class="pror cptx">
						<ul>
  <%
		do while not rs1.eof and pp<12
		%>
		<li>
								<a href="<%=pclink%>?Thex=<%=rs1("cxp_id")%>&Cla=<%=rs1("cb_id")%>">
									<img src="<%=replace(rs1("Fileurl"),"../../","")%>">
									<div class="prorname">
										<h1><%=rs1("cxp_name")%></h1>
										<div class="prortx">
											<p class="prortx_pic"><img src="img/pro_icon.png"></p>
											<p class="prortx_more">VIEW MORE</p>
											<p class="prortx_nm"><%=rs1("cxp_name")%></p>
										</div>
									</div>
								</a>
							</li>

       
	
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
<div class="clear"></div>
       </ul>
   		
					</div>
 <div class="happ">
		
		 

  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?Cla=<%=Cla%>&small=<%=small%>">
      <tr>
        <td height="35" align="center"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&Cla="&Cla&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&Cla="&Cla&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
	response.Write("第"&k&"页")
			response.Write(" | 共"&n&"页 | 库中"&totalPut&"条信息 | ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=点击>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
<%
		End if
		end Sub
		%>
<%
		Sub search_cp(Cla,small,pclink,key)
	

	dim CurrentPage,TotalPages
		MaxPerPage=12
		Set Rs1=Server.Createobject("Adodb.Recordset")
		sql="select * from bdcp where cxp_name like '%"&key&"%' or cxp_cont like '%"&key&"%' order by cxp_order asc"
		rs1.open sql,conn,1,3
		if rs1.eof then
		response.Write("暂时无相关信息！")
		else
		rs1.pagesize=MaxPerPage
		If trim(Request("Page"))<>"" then
		CurrentPage= CLng(request("Page"))
		If CurrentPage> rs1.PageCount then
		CurrentPage = rs1.PageCount
		End If
		Else
		CurrentPage= 1
		End If
		totalPut=rs1.recordcount 
		if CurrentPage<>1 then
		if (currentPage-1)*MaxPerPage < totalPut then
		rs1.move(currentPage-1)*MaxPerPage
		end if
		end if
		%>


	<div class="pror cptx">
						<ul>
  <%
		do while not rs1.eof and pp<12
		%>
		<li>
								<a href="<%=pclink%>?Thex=<%=rs1("cxp_id")%>&Cla=<%=rs1("cb_id")%>">
									<img src="<%=replace(rs1("Fileurl"),"../../","")%>">
									<div class="prorname">
										<h1><%=rs1("cxp_name")%></h1>
										<div class="prortx">
											<p class="prortx_pic"><img src="img/pro_icon.png"></p>
											<p class="prortx_more">VIEW MORE</p>
											<p class="prortx_nm"><%=rs1("cxp_name")%></p>
										</div>
									</div>
								</a>
							</li>

       
	
  <%pp=pp+1
		rs1.movenext 
		loop 
		rs1.close 
		set rs1=nothing 
		%>
<div class="clear"></div>
       </ul>
   		
					</div>
 <div class="happ">
		
		 

  <table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
    <form id="form1" name="form1" method="post" action="?Cla=<%=Cla%>&small=<%=small%>">
      <tr>
        <td height="35" align="center"><%
		dim n,k
		if (totalPut mod MaxPerPage)=0 then 
		n= totalPut \ MaxPerPage
		else
		n= totalPut \ MaxPerPage + 1
		end if
		k=currentPage
		k=currentPage
		if k<>1 then
		response.write "["+"<a href=?page=1&Cla="&Cla&"&small="&small&" class='new_link'>首页</a></b>] "
		response.write "["+"<a href=?page="+cstr(k-1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>上一页</a>] "
		else
		Response.Write "[首页] [上一页]"
		end if
		if k<>n then
		response.write "["+"<a href=?page="+cstr(k+1)+"&Cla="&Cla&"&small="&small&"  class='new_link'>下一页</a>] "
		response.write "["+"<a href=?page="+cstr(n)+"&Cla="&Cla&"&small="&small&"  class='new_link'>尾页</a>] "
		else
		Response.Write "[下一页] [尾页]"
		end if
		response.Write("第"&k&"页")
			response.Write(" | 共"&n&"页 | 库中"&totalPut&"条信息 | ")
		response.Write(" <select name='page'>")
		for myi=1 to n
		response.Write("<option value='"&myi&"'>"&myi&"</option>")
		next
		response.Write("</select>")
		response.Write(" <input type=submit name=Submit3 value=点击>")%>
        </td>
      </tr>
    </form>
  </table>
</div>
<%
		End if
		end Sub
		%>
<%
		Sub shouyepro(Cla,small,pclink)
		page=Request.QueryString("page")
		If page="" Then page="1" 
		page=Cint(page)
		Set rs = Server.CreateObject("Adodb.RecordSet")
		if Cla="" and small="" then
		sql="select * from bdcp where cxp_stop=1 order by cxp_order asc"
		end if
		if Cla="" and small<>"" then
		sql="select * from bdcp where cs_id="&small&" and cxp_stop=1 order by cxp_order asc"
		end if
		if Cla<>"" and small="" then
		sql="select * from bdcp where cb_id="&Cla&" and cxp_stop=1 order by cxp_order asc"
		end if
		if Cla<>"" and small<>"" then
		sql="select * from bdcp where cb_id="&Cla&" and cxp_stop=1 and cs_id="&small&" order by cxp_order asc"
		end if
		rs.cursorlocation=3
		rs.open sql,conn,2,3 
		rs.PageSize=12
		tcount=rs.RecordCount
		tpage=rs.PageCount
		If rs.Bof And rs.Eof Then
		%>
<p>
  <Center>
    <font color=red>无相关信息！</font><br>
    <br>
  </Center>
  <%
		Else%>
<table width="720" align="center">
  <%
		rs.Move (page-1)*rs.pagesize
		For i = 1 to 2
		If rs.Eof Then Exit For
		%>
  <tr>
    <%
		For j = 1 to 4
		If rs.Eof Then Exit For
		%>
    <td  align="center" ><table  border="0" align="center" cellpadding="0" >
        <tr>
          <td  height="120" align="center" valign="middle" width="169" cellspacing="5" ><table width="162" border="0" align="center" cellpadding="0" cellspacing="5" >
              <tr>
                <td width="162" height="120" background="images/19.jpg"><a href="<%=pclink%>?Thex=<%=rs("cxp_id")%>&Cla=<%=rs("cb_id")%>" class="lightit"><img src="<%=replace(rs("Fileurl"),"../../","")%>" width="140" height="100" class="img_border_01"  border="0"></a></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td height="30" align="center" >[<%=left(rs("cxp_name"),10)%>]</td>
        </tr>
      </table></td>
    <%
		rs.MoveNext
		Next
		%>
  </tr>
  <%
		Next
		%>
</table>
<%
		End if
		end Sub
		%>

<%
		Function P_show()
		dim Rst,Thex
		Thex=request("Thex")
		if Thex="" then exit Function
		Set rs = Server.CreateObject("Adodb.RecordSet")
		sql="select * from bdcp where cxp_id="&Thex&""
		rs.open sql,conn,2,3
		if rs.eof then
		else
		Rst=Rst&"<center>"&rs("cxp_name")&"<hr size=1 color=#e2e2e2 width=500><br></center>"
		Rst=Rst&rs("cxp_cont")
		end if
		rs.close
		set rs=nothing
		P_show=Rst
		End Function
	   %>
<% sub flash_bian(Cla,url,w,h) %>
<%dim thenum
	set rsx = server.CreateObject ("adodb.recordset")
		Sql = "Select * from bdnews where nb_id="&cla&" and Fileurl<>'"&""&"' order By nws_order asc"
		rsx.open sql,conn,1,3
if not rsx.eof then
thenum=rsx.recordcount
if thenum>=6 then thenum=6
for i=1 to thenum 
'links1=links1&""&url&"?thex="&rsx("nws_ID")&"|"
'links1=links1&rsx("nws_link")&"|"
links1=links1&"|"
pics1=pics1&""&mid(rsx("Fileurl"),7)&"|"      
texts1=texts1&rsx(1)&"|"
rsx.movenext
if rsx.eof then exit for
next
rsx.close
set rsx=nothing
if instr(right(links1,1),"|")>0 then  
links1=left(links1,len(links1)-1)  
texts1=left(texts1,len(texts1)-1) 
pics1=left(pics1,len(pics1)-1)  
end if
end if%>

   <script type=text/javascript>
            var swf_width=<%= w %> 
            var swf_height=<%= h %> 
            var files='<%=pics1%>'
            var links='<%=links1%>'
            var texts=''
            document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,50,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
            document.write('<param name="movie" value="images/Flash.swf"><param name="quality" value="high">');
            document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
            document.write('<param name="FlashVars" value="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'">');
            document.write('<embed src="images/Flash.swf" wmode="opaque" FlashVars="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&menu="false"" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
            </script>
<% end sub %>
<%Sub flash_bian1(w,h)
		dim thenum
		set rsx = server.CreateObject ("adodb.recordset")
		Sql = "Select * from bdcp where cxp_tj=1 and Fileurl<>'"&""&"' order By cxp_order asc"
		rsx.open sql,conn,1,3
		if not rsx.eof then
		thenum=rsx.recordcount
		if thenum>=5 then thenum=5
		for i=1 to thenum 
		links1=links1&"Pshow.asp?thex="&rsx("cxp_ID")&"|"      
		pics1=pics1&replace(rsx("Fileurl"),"../../","")&"|"      
		texts1=texts1&rsx("cxp_name")&"|"
		rsx.movenext
		if rsx.eof then exit for
		next
		rsx.close
		set rsx=nothing
		if instr(right(links1,1),"|")>0 then  
		links1=left(links1,len(links1)-1)  
		texts1=left(texts1,len(texts1)-1) 
		pics1=left(pics1,len(pics1)-1)  
		end if
		end if%>
<script type="text/javascript">
	var swf_width=<%= w %>;
var swf_height=<%= h %>;
		var text_height=0
		var swf_height = focus_height+text_height
			
		var pics="<%=pics1%>" 
		var links="<%=links1%>"
		var texts="<%=texts1%>" 
		
		document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
		document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#FFFFFF">');
		document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
		document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
		document.write('<embed ID="focus_flash" src="images/playswf1.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#FFFFFF" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');	
		document.write('</object>');
				 </script>
<%end Sub%>
<%Sub left_cla(Cla,lk)
Set rs = Server.CreateObject("Adodb.RecordSet")
sql="select * from nsclass where nb_id="&Cla&" order by ns_order asc"
rs.open sql,conn,2,3
if rs.eof then
else
do while not rs.eof%>
<a href="<%=lk%>?small=<%=rs("ns_id")%>&Cla=<%=rs("nb_id")%>" class="black12"><%=left(rs("ns_name"),5)%></a>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%
End if
End Sub
%>