






<!--<%
Dim rsr__MMColParam
rsr__MMColParam = "1"
if (Request.QueryString("n_id") <> "") then rsr__MMColParam = Request.QueryString("n_id")
%>
<%
set rsr = Server.CreateObject("ADODB.Recordset")
rsr.ActiveConnection = MM_news_STRING
rsr.Source = "SELECT r_id, n_id FROM review WHERE n_id = '" + Replace(rsr__MMColParam, "'", "''") + "'"
rsr.CursorType = 0
rsr.CursorLocation = 2
rsr.LockType = 3
rsr.Open()
rsr_numRows = 0
%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_news_STRING
Command1.CommandText = "UPDATE news  SET n_hit =n_hit+1 WHERE n_id =" + Replace(Command1__MMColParam, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>-->

<!--<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsb_numRows = rsb_numRows + Repeat1__numRows
%>
-->

<!--<%
Dim Repeat3__numRows
Repeat3__numRows = 10
Dim Repeat3__index
Repeat3__index = 0
rsc_numRows = rsc_numRows + Repeat3__numRows
%>
-->
<!--<%
Dim Repeat4__numRows
Repeat4__numRows = 10
Dim Repeat4__index
Repeat4__index = 0
rsh_numRows = rsh_numRows + Repeat4__numRows
%>
-->
<!--<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
rsr_total = rsr.RecordCount

' set the number of rows displayed on this page
If (rsr_numRows < 0) Then
  rsr_numRows = rsr_total
Elseif (rsr_numRows = 0) Then
  rsr_numRows = 1
End If

' set the first and last displayed record
rsr_first = 1
rsr_last  = rsr_first + rsr_numRows - 1

' if we have the correct record count, check the other stats
If (rsr_total <> -1) Then
  If (rsr_first > rsr_total) Then rsr_first = rsr_total
  If (rsr_last > rsr_total) Then rsr_last = rsr_total
  If (rsr_numRows > rsr_total) Then rsr_numRows = rsr_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsr_total = -1) Then

  ' count the total records by iterating through the recordset
  rsr_total=0
  While (Not rsr.EOF)
    rsr_total = rsr_total + 1
    rsr.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsr.CursorType > 0) Then
    rsr.MoveFirst
  Else
    rsr.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsr_numRows < 0 Or rsr_numRows > rsr_total) Then
    rsr_numRows = rsr_total
  End If

  ' set the first and last displayed record
  rsr_first = 1
  rsr_last = rsr_first + rsr_numRows - 1
  If (rsr_first > rsr_total) Then rsr_first = rsr_total
  If (rsr_last > rsr_total) Then rsr_last = rsr_total

End If
%>
<%
' *** 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
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>	
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
  dim strRet
  strRet = Server.HTMLEncode(str)
  strRet = replace(strRet, vbcrlf,"")
  strRet = replace(strRet, vbtab,"")
  If (LEN(strRet) > nNamedFormat) Then
    strRet = LEFT(strRet, nNamedFormat)			
    If (properly = 1) Then					
      Dim TempArray								
      TempArray = split(strRet, " ")	
      Dim n
      strRet = ""
      for n = 0 to Ubound(TempArray) - 1
        strRet = strRet & " " & TempArray(n)
      next
    End If
    If (pointed = 1) Then
      strRet = strRet & points
    End If
  End If
  DoTrimProperly = strRet
End Function
</SCRIPT>
-->
<html>
<head>
<title>陈坤资讯中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="pipi.css" type="text/css">
</head>
<body bgcolor="#000000" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<body bgcolor="#000000" leftmargin="0" topmargin="0">
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="780" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> <div align="right"><b> 
              <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="780" height="102">
                <param name="movie" value="../top1.swf">
                <param name="quality" value="high">
                <embed src="../top1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="102"></embed></object>
              </b>
              <table width="780" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="211" valign="top" background="../images/content_topleft.gif"><div align="right"><img src="../images/mychenkun.gif" width="200" height="80"></div></td>
                  <td width="458" valign="top" background="../images/content_middle.gif"> 
                    <div align="center"> </div></td>
                  <td width="211" background="../images/content_topright.gif">&nbsp;</td>
                </tr>
              </table>
              <b> </b></div></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="780" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"><font color="#000000"><font color="#FFFFFF">|</font>
                    <A HREF="list_b.php?n_id=4" class="b">
                陈坤影视资讯            </A> 
            </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
                    <A HREF="list_b.php?n_id=5" class="b">
                陈坤音乐资讯            </A> 
            </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
                    <A HREF="list_b.php?n_id=7" class="b">
                陈坤生活资讯            </A> 
            </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
                    <A HREF="list_b.php?n_id=11" class="b">
                陈坤其它资讯            </A> 
            </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
                    <A HREF="list_b.php?n_id=15" class="b">
                CHEN KUN NEWS IN English            </A> 
            </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
        <!--      <% 
While ((Repeat1__numRows <> 0) AND (NOT rsb.EOF)) 
%>
      <A HREF="list_b.php?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "n_id=" & rsn.Fields.Item("n_id").Value %>" class="b"><%=(rsb.Fields.Item("b_type").Value)%></A> </MM:DECORATION></MM_REPEATEDREGION></font><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1><font color="#FFFFFF">|</font></MM:DECORATION></MM_REPEATEDREGION><font color="#FFFFFF"><MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsb"><MM:DECORATION OUTLINE="%D6%D8%B8%B4" OUTLINEID=1> 
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsb.MoveNext()
Wend
%>
-->
     (<a title="點擊以繁體中文方式浏覽" name="StranLink" href="#"><font color="#FF0000">繁體中文</font></a>)    </font> </td>
  </tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" height="60">
  <tr> 
    <td width="25%"> 
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <form name="form1" method="get" action="search.php">
            <td> 
              <div align="center">
                <select name="xxx" size="1">
                  <option value="n_title" selected>标题</option>
                  <option value="n_author">作者</option>
                  <option value="n_content">内容</option>
                </select>
                <input type="text" name="sss" size="10">
                <input type="submit" name="Submit" value="搜">
              </div>
            </td>
          </form>
        </tr>
      </table>
    </td>
    <td width="75%"> 
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="30"> 
            <div align="center">
                <b class="big">
                    <!--<%=(rsn.Fields.Item("n_title").Value)%>-->
                    孙俪晋升大家闺秀 陈坤跳脱偶像定位                </b>
            </div>
          </td>
        </tr>
        <tr> 
          <td> 
            <div align="center">日期:
                <font color="#FF0000">
                    <!--<%=(rsn.Fields.Item("n_data").Value)%>-->
                    PHP has encountered an Access Violation at 7C94BB52