carbeauty2.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<!--网站头文件-->
<!--#include file="byshop_conn.asp"-->
<!--#include file="webhead.asp"-->
<%girlid=lcase(trim(request("girlid")))  
					  if IsNumeric(request.QueryString("girlid"))=False or request.QueryString("girlid")="" then
		response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end	
		end if

					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from xcmn where girlid="&girlid&"",conn,1,3
						if rs.bof and rs.eof then
						response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
						response.write"javascript:history.go(-1)</SCRIPT>"
						response.end
						else
					    rs("viewcount")=rs("viewcount")+1
		                 rs.update
						end if
					titlename=rs("girlname")
						girlname=rs("girlname")
						pinlunid=rs("girlid")
						adddate=rs("adddate")
						viewcount=rs("viewcount")+1
					  %>
					  <title><%=rs("girlname")%>-<%=webname%></title>
					  <%rs.close%>
				
<div align="center">
<table border="0" width="779" id="table30" cellspacing="0" cellpadding="0">
	<tr>
		<td><span lang="zh-cn">您的位置</span>:<span lang="zh-cn"><a href="default.asp">网站首页</a> </span>
		&gt;<span lang="zh-cn"> <a href="carbeauty.asp">香车美女</a> </span>&gt; <%=girlname%></td>
	</tr>
</table>
<table border="0" width="779" id="table27" cellspacing="0" cellpadding="0">
	<tr>
			<td width="175" valign="top">
		<!--网站左面-->
		  <div align="center">
		<table width="100%" border="0" cellspacing="0" cellpadding="0"  id="table1">
        <tr> 
          <td align="center" valign="top">
          <!--二手车收索--><!--#include file="in_search.asp"-->
  <!--香车美女--><table border="0" width="100%" id="table46" cellspacing="0" cellpadding="0">
			<tr>
				<td>　</td>
			</tr>
		</table><!--#include file="in_carbeauty1.asp"-->
       </td>
        </tr>
      </table>
    	</div>
		　</td>
		<td valign="top" width="8">　</td>
		<td valign="top"  align="right" >
		<!--品牌汽车--><div align="center">
	
</div> <%set rs=server.createobject("adodb.recordset")
	
		rs.open "select * from xcmn2 where girlid="&girlid&"",conn,1,1
			if rs.bof and rs.eof then
						response.write"<SCRIPT language=JavaScript>alert('参数错误！');"
						response.write"javascript:history.go(-1)</SCRIPT>"
						response.end
						end if
				if rs.recordcount=0 then 

		else
	  		rs.PageSize =1 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

					   %>

<div align= "right">
  
<table cellspacing=0 cellpadding=0 border=1 width="580" bordercolor="#BDDBE9" style="border-collapse: collapse" id="table28">
       
        <tr> 
          <td valign=top width="585"> 
          <table border="0" width="100%" id="table29" cellspacing="1">
			<tr>
				<td  width="98%">
				<p align="center"><b><%=girlname%></b></td>
			</tr>
			<tr>
				<td height="25" width="98%">
				<p align="right">
				添加日期：<%=year(adddate)&"-"&month(adddate)&"-"&day(adddate)%>&nbsp;&nbsp;浏览次数：<%=viewcount%></td>
			</tr>
			<tr>
				<td height="25" width="98%">

				　<%=rs("girlcontent")%></td>
			</tr>
			<tr>
				<td height="25" width="98%">
				<p align="center"><%call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%>　</td>
			</tr>
			<tr>
				<td>
			
<div align=center>
	  	<%
                
		Set rs2= Server.CreateObject("ADODB.Recordset")
		  	rs2.open "select girlname,girlid,adddate from xcmn order by adddate desc",conn,1,1
		rs2.open sql1,conn,1,1
		do while not rs1.eof
		if rs2("girlid") =rs("girlid") then 
		exit do
		end if
		rs2.movenext
		loop
                      %>
           <%rs2.moveprevious
           previousgirlid=rs("girlid")
           
           %>
					  
<%if rs2.bof then
response.write "<img border='0' src='images/Cprevious.gif' width='13' height='9'>上一篇：没有上一篇了"
else
%>
	<img border="0" src="images/Cprevious.gif" width="13" height="9">上一篇：<a href="carbeauty2.asp?girlid=<%=rs2("girlid")%>"><%=rs2("girlname")%></a>&nbsp;&nbsp; 
                      <%
                      end if
                      rs2.movenext
                      rs2.movenext
                      if rs2.eof then
                      response.write "<img border='0' src='images/Cnext.gif' width='13' height='9'>下一篇：没有下一篇了"
                      else
                      %><img border="0" src="images/Cnext.gif" width="13" height="9">下一篇：<a href="carbeauty2.asp?girlid=<%=rs2("girlid")%>"><%=rs2("girlname")%></a>&nbsp;
                    <%end if%>
                    
                    <a href="javascript:history.back(-1)">返回上一页</a></div>
                    <%rs2.close
                    set rs2=nothing%></td>
			</tr>
			<tr><td><%
					classid=3
					%>　<!--#include file=pinlun.asp--></td></tr>
			</table>
			</td>
        </tr>
     
     </tr>
			
        	</table>
<br>
<%
   end if
	
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=center>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
     response.write "第 "
     for z=1 to pagecount
        if  page=z then
        response.write "<font color='#FF0000'>"&z&"</font>&nbsp;"
        else
        response.write "<A HREF=" & action & "?" & temp & "Page=" &z&">"&z&"</a>&nbsp;"
        end if
        next
    response.write "页<br></td></tr><tr><td>"
   
    if page<=1 then
        Response.Write ("[最前页] " & vbCrLf)        
        Response.Write ("[上一页] " & vbCrLf)
    else        
        Response.Write("[<A HREF=" & action & "?" & temp & "Page=1>最前页</A>] " & vbCrLf)
        Response.Write("[<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A>] " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("[下一页] " & vbCrLf)
        Response.Write ("[最后页] " & vbCrLf)            
    else
        Response.Write("[<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A>] " & vbCrLf)
        Response.Write("[<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">最后页</A>] " & vbCrLf)            
    end if
   

    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub

	rs.close
		set rs=nothing
				
				%>

			</td>
        	
	
		<%
		
		rs.close
			set rs=nothing
			%>
		

	</tr>
</table>
		</div><br>

<!--#include file="webfoot.asp"-->