
<%
   'dim conn   
   'dim connstr   

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=127.0.0.1; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr

  connstr="DBQ="+server.mappath("../data/yzmb.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
%>
<%
function chkcookie(fString)
fString = replace(fString, "'", "")
fString = replace(fString, " ", "")
chkcookie = fString
end function

%>

<%'用户IP限制
function LockIP(sip)
	dim str1,str2,str3,str4
	dim num
	LockIP=false
	if isnumeric(left(sip,2)) then
		str1=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str2=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str3=left(sip,instr(sip,".")-1)
		str4=mid(sip,instr(sip,".")+1)
		if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
	
		else
			num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
			sql="select count(*) from 9j455noip where ip1 <="&num&" and ip2 >="&num&""
			set rs_ip=conn.execute(sql)
			if rs_ip(0)>0 then 
				lockip=true
			end if
			set rs_ip=nothing
		end if
	end if
end function%>
<%if LockIP(Request.ServerVariables("REMOTE_ADDR")) then
	response.write "<script>alert('您的IP:"&request.servervariables("remote_addr")&"已经被限制不能访问,请和管理员联系');location.href='about:blank'</script><script>window.close();</script>"

	response.end
	end if
%>
<%
noip=Request.Servervariables("HTTP_X_FORWARDED_FOR") 
If noip="" Then noip=Request.Servervariables("REMOTE_ADDR")
set rst11=server.createobject("adodb.recordset") 
sql="select * from 9j455pkip where userip='"&noip&"'"
rst11.open sql,conn,1,1
if not rst11.eof and not rst11.bof then
	response.write "<script>alert('您的IP:"&request.servervariables("remote_addr")&"已经被限制不能访问，请和管理员联系');location.href='about:blank'</script><script>window.close();</script>"
	response.end
	end if
%>
<%
'--------说明------------------
'SQL联注入加强版
'雨中漫步

'--------数据库连接部分--------------
dim dbkillSql,killSqlconn,connkillSql
dbkillSql="../data/# yzmbsql.asp" 
'On Error Resume Next
Set killSqlconn = Server.CreateObject("ADODB.Connection")
connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql)
killSqlconn.Open connkillSql
If Err Then
	err.Clear
	Set killSqlconn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If


'--------定义部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
'自定义需要过滤的字串,用 "|" 分隔
Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
Kill_IP=True
WriteSql=True			
'----------------------------------


Fy_Inf = split(Fy_In,"|")
'--------POST部份------------------
If Request.Form<>"" Then
	For Each Fy_Post In Request.Form
		For Fy_Xh=0 To Ubound(Fy_Inf)
			If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
				If WriteSql=True Then
					killSqlconn.Execute("insert into 9j455(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')")
					killSqlconn.close
					Set killSqlconn = Nothing
				End If
				Response.Write "<Script Language=JavaScript>alert('雨中漫步统提示你,请不要给本站提交任何非法字符或参数尝试注入！');</Script>"
				Response.Write "非法操作！系统做了如下记录↓<br>"
				Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
				Response.Write "操作时间："&Now&"<br>"
				Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
				Response.Write "提交方式：ＰＯＳＴ<br>"
				Response.Write "提交参数："&Fy_Post&"<br>"
				Response.Write "提交数据："&Request.Form(Fy_Post)
				Response.End
			End If
		Next
	Next
End If
'----------------------------------

'--------GET部份-------------------
If Request.QueryString<>"" Then
	For Each Fy_Get In Request.QueryString
		For Fy_Xh=0 To Ubound(Fy_Inf)
			If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
				If WriteSql=True Then
					killSqlconn.Execute("insert into 9j455(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")
				killSqlconn.close
				Set killSqlconn = Nothing
				End If
				Response.Write "<Script Language=JavaScript>alert('雨中漫步系统提示你,请不要给本站提交任何非法字符或参数尝试注入！');</Script>"
				Response.Write "非法操作！系统做了如下记录↓<br>"
				Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
				Response.Write "操作时间："&Now&"<br>"
				Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
				Response.Write "提交方式：ＧＥＴ<br>"
				Response.Write "提交参数："&Fy_Get&"<br>"
				Response.Write "提交数据："&Request.QueryString(Fy_Get)
				Response.End
			End If
		Next
	Next
End If

If Kill_IP=True Then
	Dim Sqlin_IP,rsKill_IP,Kill_IPsql
	Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
	Kill_IPsql="select Sqlin_IP from 9j455 where Sqlin_IP='"&Sqlin_IP&"' and kill_ip=true"
	Set rsKill_IP=killSqlconn.execute(Kill_IPsql)
	If Not(rsKill_IP.eof or rsKill_IP.bof) Then
		Response.write "<Script Language=JavaScript>alert('雨中漫步系统提示你,你的IP已比管理员限制进入！原因可能是你尝试注入本站！');location.href='about:blank'</script><script>window.close();</script>"

	Response.End
	End If
	rsKill_IP.close
	
End If
%>
<%
const ImagePath="../images/"
const emotImagePath="../images/emot/"
function UBBCode(strContent)
strContent= FilterJS(strContent)
dim re
dim po,ii
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0
	
re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
strContent=re.Replace(strContent,"<a onfocus=this.blur() href=""$1://$2"" target=_blank><IMG SRC=""$1://$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")
re.Pattern="\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[\/UPLOAD\]"
strContent= re.Replace(strContent,"<br><IMG SRC="""&ImagePath&"$1.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2$1"" TARGET=_blank><IMG SRC=""$2$1"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")

re.Pattern="\[UPLOAD=(.[^\[]*)\](.[^\[]*)\[\/UPLOAD\]"
strContent= re.Replace(strContent,"<br><IMG SRC="""&ImagePath&"$1.gif"" border=0> <a href=""$2"">点击浏览该文件</a>")

re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent=re.Replace(strContent,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent=re.Replace(strContent,"<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent=re.Replace(strContent,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3  width=$1 height=$2></embed></object>")
re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")

re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
strContent= re.Replace(strContent,"<a href=""$2"" TARGET=_blank><IMG SRC=" & ImagePath & "swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a><br><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src=""$2"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>$2</embed></OBJECT>")

re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/FLASH\])"
strContent= re.Replace(strContent,"<a href=""$4"" TARGET=_blank><IMG SRC=" & ImagePath & "swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a><br><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3><PARAM NAME=movie VALUE=""$4""><PARAM NAME=quality VALUE=high><embed src=""$4"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=$2 height=$3>$4</embed></OBJECT>")

re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>")

re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=" & ImagePath & "email1.gif><A HREF=""mailto:$2"">$2</A>")
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=" & ImagePath & "email1.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")

'自动识别网址
're.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=$1>$1</a>")
're.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=$1>$1</a>")
're.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
'strContent = re.Replace(strContent,"$1<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=$2>$2</a>")

'自动识别www等开头的网址
're.Pattern = "([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=http://$2>$2</a>")

'自动识别Email地址，如打开本功能在浏览内容很多的帖子会引起服务器停顿
're.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=""mailto:$2"">$2</a>")

re.Pattern="\[em(.[^\[]*)\]"
strContent=re.Replace(strContent,"<img src="&emotImagePath&"em$1.gif border=0 align=middle>")

re.Pattern="\[HTML\](.[^\[]*)\[\/HTML\]"
strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6' class=tableborder1><td><b>以下内容为程序代码:</b><br>$1</td></table>")
re.Pattern="\[code\](.[^\[]*)\[\/code\]"
strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6' class=tableborder1><td><b>以下内容为程序代码:</b><br>$1</td></table>")

re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
strContent=re.Replace(strContent,"<font color=$1>$2</font>")
re.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
strContent=re.Replace(strContent,"<font face=$1>$2</font>")
re.Pattern="\[align=(center|left|right)\](.*)\[\/align\]"
strContent=re.Replace(strContent,"<div align=$1>$2</div>")

re.Pattern="\[QUOTE\](.*)\[\/QUOTE\]"
strContent=re.Replace(strContent,"<table style=""width:80%"" cellpadding=5 cellspacing=1 class=tableborder1><TR><TD class=tableborder1>$1</td></tr></table><br>")
re.Pattern="\[fly\](.*)\[\/fly\]"
strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
re.Pattern="\[move\](.*)\[\/move\]"
strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$1</marquee>")	
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")

re.Pattern="\[i\](.[^\[]*)\[\/i\]"
strContent=re.Replace(strContent,"<i>$1</i>")
re.Pattern="\[u\](.[^\[]*)(\[\/u\])"
strContent=re.Replace(strContent,"<u>$1</u>")
re.Pattern="\[b\](.[^\[]*)(\[\/b\])"
strContent=re.Replace(strContent,"<b>$1</b>")
re.Pattern="\[size=([1-4])\](.[^\[]*)\[\/size\]"
strContent=re.Replace(strContent,"<font size=$1>$2</font>")
strContent=replace(strContent,"<I></I>","")
set re=Nothing
UBBCode=strContent
end function

Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"&#106avascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"&#106script:")
re.Pattern="(js:)"
t=re.Replace(t,"&#106s:")
're.Pattern="(value)"
't=re.Replace(t,"&#118alue")
re.Pattern="(about:)"
t=re.Replace(t,"about&#58")
re.Pattern="(file:)"
t=re.Replace(t,"file&#58")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents&#46cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"&#118bscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"&#111n$2")
're.Pattern="(&#)"
't=re.Replace(t,"＆#")
FilterJS=t
set re=nothing
end if
End Function

function dvHTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")

    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")

    dvHTMLEncode = fString
end if
end function

function dvHTMLCode(fString)
if not isnull(fString) then
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")

    fString = Replace(fString,  "&nbsp;"," ")
    fString = Replace(fString, "&quot;", CHR(34))
    fString = Replace(fString, "&#39;", CHR(39))
    fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10))
    fString = Replace(fString, "<BR> ", CHR(10))

    dvHTMLCode = fString
end if
end function

function nohtml(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="(\<.[^\<]*\>)"
    str=re.replace(str," ")
    re.Pattern="(\<\/[^\<]*\>)"
    str=re.replace(str," ")
    nohtml=str
    set re=nothing
end function

%>

<% if request("ddid")<>"" and session("ddiduse")="" then
session("ddiduse")=nnoo(request("ddid"))
end if 
 set rs=server.createobject("adodb.recordset")
	  sql="SELECT lcwan from 9j455 "
	 rs.open sql,conn,1,3
	 if rs("lcwan")=1 then
	  Response.Write "<script Language=Javascript>alert(' 对不起！影院正在维护中请稍候访问......');location.href = '../nowan.asp';</script>"
      response.end
	  end if
	  rs.close
	 %>

<%
sql="select * from 9j455"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>

<html>
<SCRIPT>
//加入页面保护
    function rf()
      {return false; }
    document.oncontextmenu = rf
    function keydown()
      {if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey ==true){return false;} }
      document.onkeydown =keydown
    function drag()
      {return false;}
    document.ondragstart=drag 
function stopmouse(e) { 
		if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2))  
 		return false; 
      else if  
      (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2 || event.button == 3)) {  
 				return false;  
 		}
		return true; 
      } 
      document.onmousedown=stopmouse;  
      if (document.layers) 
      window.captureEvents(Event.MOUSEDOWN); 
       window.onmousedown=stopmouse;  
</SCRIPT>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
function hidaccounce(){
	eval("document.all[\"accounce\"].style.display = \"none\"");
	//SetCookie ("accounce","close");
}
function closeaccounce(){
	//if (GetCookie("accounce")=="close"){
		//eval("document.all[\"accounce\"].style.display = \"none\"");
	//}
}
//-->
</script>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("lchomes")%></title>
<META content=<%=rs("lcguanjin")%> name=Keywords>
<META content=<%=rs("lcmuig")%> name=Description>
<div align="left">
	<TABLE width=938 height=101 border=0 cellPadding=0 cellSpacing=0 id=table479>
		<TBODY>
			<TR>
				<TD background="images/top1.gif" 
    colSpan=2 height=20>　</TD>
			</TR>
			<TR>
				<TD width=195 
    background="<%=rs("yzmblogo")%>" 
    height=60></TD>
				<TD width=740 
    background="images/top00.gif" 
height=90>
				<table width="739" height="90" border="0" cellpadding="0" cellspacing="0">
					<tr>
						<td width="154"><a href="index.asp">
						<img src="images/top.jpg" width="154" height="90" border="0"></a></td>
						<td width="569">
					<div align="center"><%
	set rsad=server.createobject("adodb.recordset")
	sqlad="select * from 9j455ads"
	rsad.open sqlad,conn,1,1
%>
      <%=rsad("ads1")%></div></td>
					</tr>
				</table>
				</TD>
			</TR>
			<TR>
				<TD background="images/top3.gif" 
    colSpan=2 height=21></TD></TD></TR></TBODY></TABLE>
			</TR>

  <tr>
    <td bgcolor="#EFEFEF">
	<table width="938" height="36" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" id="table481" style="border-collapse: collapse">
      <tr>
        <%
	   Set rst= Server.CreateObject("ADODB.Recordset")
	rst.open "select * from 9j455pe",conn,1,1
    if rst.EOF then
	  response.write ""
	else
	do while NOT rst.EOF
            %>
        <TD width='349' align='center' vAlign='center' background="images/dh_1.GIF"><a href="class.asp?typeid=<%=rst("type")%>"><%=rst("type")%></a></TD>
        <%
	rst.MoveNext
	loop
	end if
	rst.close
	set rst=nothing
                %>
        <td align='center' background="images/dh_1.GIF"><img src="images/dh_2.GIF" width="4" height="35"></td>
      <td width="104" align="center" background="images/dh_1.GIF"><div align="center">
		<a target="_blank" href="../tvonline"><img src="images/vodmftv.gif" width="78" height="26" border="0" style="cursor:hand"></a></div></td>
        <td width="104" align="center" background="images/dh_1.GIF"><div align="center"><a href="pic.asp"><img src="images/vodmfhb.gif" width="78" height="26" border="0" style="cursor:hand"></a></div></td>
      <td width="104" align="center" background="images/dh_1.GIF"><div align="center"><a href="vip.asp">
		<img src="images/vodmfvip.gif" width="78" height="26" border="0" style="cursor:hand"></a></div></td>
        <td width="104" align="center" background="images/dh_1.GIF"><div align="center"><a href="free.asp"><img src="images/vodmf.gif" width="78" height="26" border="0" style="cursor:hand"></a></div></td>
        </tr>

<script language="JavaScript">
<!--
function statusMessageObject(p,d) {
  this.msg = MESSAGE
  this.out = " "
  this.pos = POSITION
  this.delay = DELAY
  this.i     = 0
  this.reset = clearMessage
}
function clearMessage() {
  this.pos = POSITION
}
var POSITION = 100
var DELAY    = 4
 var MESSAGE  = "<%=rs("lczuan")%>" 
var scroll = new statusMessageObject()
function scroller() {
  for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) {
    scroll.out += " "
  }
  if (scroll.pos >= 0)
   scroll.out += scroll.msg
  else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length)
  window.status = scroll.out
  scroll.out = " "
  scroll.pos--
  if (scroll.pos < -(scroll.msg.length)) {
   scroll.reset()
  }
  setTimeout ('scroller()',scroll.delay)
}
function snapIn(jumpSpaces,position) {
  var msg = scroll.msg
  var out = ""
  for (var i=0; i<position; i++) 
    {out += msg.charAt(i)}
  for (i=1;i<jumpSpaces;i++) 
    {out += " "}
  out += msg.charAt(position)
  window.status = out
  if (jumpSpaces <= 1) {
    position++
    if (msg.charAt(position) == ' ') 
      {position++ }
    jumpSpaces = 100-position
  } else if (jumpSpaces >  3)
       {jumpSpaces *= .75}
  else
    {jumpSpaces--}
  if (position != msg.length) {
    var cmd = "snapIn(" + jumpSpaces + "," + position + ")";
    scrollID = window.setTimeout(cmd,scroll.delay);
  } else {
    window.status=""
    jumpSpaces=0
    position=0
    cmd = "snapIn(" + jumpSpaces + "," + position + ")";
    scrollID = window.setTimeout(cmd,scroll.delay);
    return false 
  }
  return true
}
snapIn(100,0);
// -->
</script>

<STYLE type=text/css>
.pl {
	PADDING-TOP: 14px
}
.pl2 {
	PADDING-TOP: 3px
}
.pl3 {
	PADDING-LEFT: 3px; PADDING-TOP: 3px
}
.pl4 {
	PADDING-LEFT: 5px; PADDING-TOP: 3px
}
.l12 {
	LINE-HEIGHT: 120%
}
.l13 {
	LINE-HEIGHT: 130%
}
.l14 {
	LINE-HEIGHT: 140%
}
.l15 {
	LINE-HEIGHT: 150%
}
.f14 {
	FONT-WEIGHT: bold; FONT-SIZE: 13px; FONT-FAMILY: "Arial", "Helvetica", "sans-serif"
}
</STYLE>

<META content="MSHTML 6.00.2900.2722" name=GENERATOR>
<STYLE type=text/css>
.14p16h1 {
	FONT-SIZE: 14px; LINE-HEIGHT: 160%
}
A.14p16h1:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:active {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:hover {
	COLOR: #ffffff; TEXT-DECORATION: underline
}
</STYLE>

<STYLE type=text/css>
TD {
	FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%
}
INPUT {
	FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%
}
SELECT {
	FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%
}
A:link {
	COLOR: #525252
}
A:visited {
	COLOR: #525252
}
A:active {
	COLOR: #525252
}
A:hover {
	COLOR: #000000
}
.search_t {
	BORDER-RIGHT: #d4d0c8 1px solid; BORDER-TOP: #d4d0c8 1px solid; FONT-SIZE: 14px; BORDER-LEFT: #d4d0c8 1px solid; COLOR: #4f4f4f; BORDER-BOTTOM: #d4d0c8 1px solid
}
.login_t {
	BORDER-RIGHT: #d4d0c8 1px solid; BORDER-TOP: #d4d0c8 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #d4d0c8 1px solid; COLOR: #4f4f4f; BORDER-BOTTOM: #d4d0c8 1px solid
}
.update {
	FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
A.update:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A.update:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A.update:active {
	COLOR: #000000; TEXT-DECORATION: none
}
A.update:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline
}
.14p16h {
	FONT-SIZE: 14px; LINE-HEIGHT: 160%
}
A.14p16h:link {
	COLOR: #31609e; TEXT-DECORATION: underline
}
A.14p16h:visited {
	COLOR: #31609e; TEXT-DECORATION: underline
}
A.14p16h:active {
	COLOR: #31609e; TEXT-DECORATION: underline
}
A.14p16h:hover {
	COLOR: #535353; TEXT-DECORATION: underline
}
.14p16h1 {
	FONT-SIZE: 14px; LINE-HEIGHT: 160%
}
A.14p16h1:link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:active {
	COLOR: #ffffff; TEXT-DECORATION: none
}
A.14p16h1:hover {
	COLOR: #ffffff; TEXT-DECORATION: underline
}
.underline {
	COLOR: #000000
}
A.underline:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A.underline:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A.underline:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline
}
.pic {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid
}
.hkuan {
	BORDER-RIGHT: #dedcdd 1px solid; BORDER-TOP: #dedcdd 1px solid; BORDER-LEFT: #dedcdd 1px solid; BORDER-BOTTOM: #dedcdd 1px solid
}
.style1 {
	FONT-SIZE: 12px
}
.underline {
	COLOR: #000000
}
</STYLE>


<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2627" name=GENERATOR></HEAD>
<BODY vLink=#000000 aLink=#000000 link=#000000 bgColor=#ffffff leftMargin=0 
background="images/top2.gif" topMargin=0 
marginwidth="0" marginheight="0">
<DIV align=center>
</DIV>
<STYLE>TD {
	FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%
}
.14p16h {
	FONT-SIZE: 14px; LINE-HEIGHT: 160%
}
</STYLE>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE height=339 cellSpacing=0 cellPadding=0 width=938 
background=IMAGES/eros02.gif border=0 id="table6">
  <TBODY>
  <TR>
   
      　</TD>
    <TD width=14><IMG height=356 src="IMAGES/eros04.gif" width=14></TD>
    <TD vAlign=top width=738 background=IMAGES/eros05.gif>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id="table7">
        
         　<TD>              
			<object 
            codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
            height=321 width=731 
            classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
              <param name="movie" value="flash/index.swf">
              <param name="quality" value="high">
              <param name="menu" value="false">
              <embed 
            src="flash/index.swf" quality=high 
            pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
            type="application/x-shockwave-flash" width="731" height="321" 
            menu="false"> </embed>
            </object></TD></TD></TR></TBODY></TABLE>
      </TD>
    <TD vAlign=top background=IMAGES/eros06.gif>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id="table9">
        <TBODY>
        <TR>
          <TD height=51>　</TD></TR>
        <TR>
          <TD>
            
              <TBODY>
              <TR>
                
                         
					</table>
					<table border="1" width="94%" id="table1295" height="179" bordercolorlight="#FF9BB3" bordercolordark="#E374A0">
						<tr>
							<td>
                        <MARQUEE onmouseover=this.stop() onmouseout=this.start() 
                        scrollAmount=1 scrollDelay=100 direction=up height=192 
                        align="left"><%set rs1=server.createobject("adodb.recordset")                                                                                     
sql="select * from 9j455ta where id=22" 
rs1.open sql,conn,1,3
talk=rs1("lctalk")
rs1.close
set rs1=nothing
                        %>
              <%=ubbcode(dvHTMLEncode(talk))%></MARQUEE></td>
						</tr>
		</table>
		<table border="1" width="94%" id="table1296" height="61" bordercolorlight="#FF9BB3" bordercolordark="#E374A0">
			<tr>
          <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
          vAlign=top width=180 
          background="images/mobile.gif" 
          height=83>
            <TABLE id=table1298 height=68 cellSpacing=0 cellPadding=0 
            width="100%" border=0>
              <TBODY>
              <TR>
                <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                width=19 height=51>　</TD>
                <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                height=51>　</TD>
                <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                width=80 height=51>　</TD></TR>
              <TR>
                <FORM name=form action=../sms/reg.asp method=post>
                <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                width=19>　</TD>
                <TD 
                  style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%"><INPUT 
                  style="BORDER-RIGHT: #3655aa 1px solid; BORDER-TOP: #3655aa 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #3655aa 1px solid; COLOR: #525252; LINE-HEIGHT: 150%; BORDER-BOTTOM: #3655aa 1px solid" 
                  size=13 value=13 name=m></TD>
                <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                width=80>
				<INPUT type=image 
                  src="images/zc.gif" 
                  align=left 
      border=0 name="I1"></TD></FORM></TR></TBODY></TABLE></TD>
			</tr>
			</table>
					</TD>
				</tr>
				</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD height=3></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD width=176><IMG height=31 src="IMAGES/eros07.gif" width=176></TD>
			<TD width=4></TD>
			<TD width=110><IMG height=31 src="IMAGES/eros09.gif" width=110></TD>
			<TD background=IMAGES/eros10.gif>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD width="12%">　</TD>
						<TD width="88%"><FONT 
            color=#a01f52><span lang="zh-cn">共有电影:</span></font><FONT 
            color=#FF0000>
                        <%        
function gettipnum1()
dim tmprs1
tmprs1=conn.execute("Select Count(articleid) from 9j455ning")
gettipnum1=tmprs1(0)
set tmprs1=nothing
if isnull(gettipnum1) then gettipnum1=0
end function
                                %><%=gettipnum1()%> </font><FONT 
            color=#a01f52>部今天更新:</font><span lang="zh-cn"><FONT 
            color=#FF0000>
                              <%
                             function todays()
dim tmprs
tmprs=conn.execute("Select count(articleid) from 9j455ning Where year(dateandtime)=year(date()) and month(dateandtime)=month(date()) and day(dateandtime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function%><%=todays()%> </font><FONT 
            color=#a01f52>部</font></span><FONT 
            color=#a01f52>，这个夜晚，就在电影里做一场幻梦…</TD>
					</TR>
				</TBODY>
			</TABLE></TD>
			<TD width=12>
			<IMG height=31 
      src="IMAGES//eros11.gif" width=12 border=0></A></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=176>
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ff9bb3 cellSpacing=0 
      cellPadding=0 width="100%" border=1>
				<TBODY>
					<TR>
						<TD vAlign=top align=middle>
					<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 height="26">
								<TBODY>
									
										<td><div align="center">
<%
   'dim conn   
   'dim connstr   

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=127.0.0.1; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr

  connstr="DBQ="+server.mappath("../data/yzmb.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
%>
<%
function chkcookie(fString)
fString = replace(fString, "'", "")
fString = replace(fString, " ", "")
chkcookie = fString
end function

%>

<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)
 
Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        LShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And 1 Then
            LShift = &H80000000
        Else
            LShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function

Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        RShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And &H80000000 Then
            RShift = 1
        Else
            RShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
        Err.Raise 6
    End If
    
    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
        RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
    End If
End Function

Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function

Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult
 
    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000
 
    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
 
    If lX4 And lY4 Then
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 Or lY4 Then
        If lResult And &H40000000 Then
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
        Else
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
        End If
    Else
        lResult = lResult Xor lX8 Xor lY8
    End If
 
    AddUnsigned = lResult
End Function

Private Function md5_F(x, y, z)
    md5_F = (x And y) Or ((Not x) And z)
End Function

Private Function md5_G(x, y, z)
    md5_G = (x And z) Or (y And (Not z))
End Function

Private Function md5_H(x, y, z)
    md5_H = (x Xor y Xor z)
End Function

Private Function md5_I(x, y, z)
    md5_I = (y Xor (x Or (Not z)))
End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Function ConvertToWordArray(sMessage)
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray()
    Dim lBytePosition
    Dim lByteCount
    Dim lWordCount
    
    Const MODULUS_BITS = 512
    Const CONGRUENT_BITS = 448
    
    lMessageLength = Len(sMessage)
    
    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
    ReDim lWordArray(lNumberOfWords - 1)
    
    lBytePosition = 0
    lByteCount = 0
    Do Until lByteCount >= lMessageLength
        lWordCount = lByteCount \ BYTES_TO_A_WORD
        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
        lByteCount = lByteCount + 1
    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

    lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

    lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
    lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
    
    ConvertToWordArray = lWordArray
End Function

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount
    
    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
End Function

Public Function MD5(sMessage)
    m_lOnBits(0) = CLng(1)
    m_lOnBits(1) = CLng(3)
    m_lOnBits(2) = CLng(7)
    m_lOnBits(3) = CLng(15)
    m_lOnBits(4) = CLng(31)
    m_lOnBits(5) = CLng(63)
    m_lOnBits(6) = CLng(127)
    m_lOnBits(7) = CLng(255)
    m_lOnBits(8) = CLng(511)
    m_lOnBits(9) = CLng(1023)
    m_lOnBits(10) = CLng(2047)
    m_lOnBits(11) = CLng(4095)
    m_lOnBits(12) = CLng(8191)
    m_lOnBits(13) = CLng(16383)
    m_lOnBits(14) = CLng(32767)
    m_lOnBits(15) = CLng(65535)
    m_lOnBits(16) = CLng(131071)
    m_lOnBits(17) = CLng(262143)
    m_lOnBits(18) = CLng(524287)
    m_lOnBits(19) = CLng(1048575)
    m_lOnBits(20) = CLng(2097151)
    m_lOnBits(21) = CLng(4194303)
    m_lOnBits(22) = CLng(8388607)
    m_lOnBits(23) = CLng(16777215)
    m_lOnBits(24) = CLng(33554431)
    m_lOnBits(25) = CLng(67108863)
    m_lOnBits(26) = CLng(134217727)
    m_lOnBits(27) = CLng(268435455)
    m_lOnBits(28) = CLng(536870911)
    m_lOnBits(29) = CLng(1073741823)
    m_lOnBits(30) = CLng(2147483647)
    
    m_l2Power(0) = CLng(1)
    m_l2Power(1) = CLng(2)
    m_l2Power(2) = CLng(4)
    m_l2Power(3) = CLng(8)
    m_l2Power(4) = CLng(16)
    m_l2Power(5) = CLng(32)
    m_l2Power(6) = CLng(64)
    m_l2Power(7) = CLng(128)
    m_l2Power(8) = CLng(256)
    m_l2Power(9) = CLng(512)
    m_l2Power(10) = CLng(1024)
    m_l2Power(11) = CLng(2048)
    m_l2Power(12) = CLng(4096)
    m_l2Power(13) = CLng(8192)
    m_l2Power(14) = CLng(16384)
    m_l2Power(15) = CLng(32768)
    m_l2Power(16) = CLng(65536)
    m_l2Power(17) = CLng(131072)
    m_l2Power(18) = CLng(262144)
    m_l2Power(19) = CLng(524288)
    m_l2Power(20) = CLng(1048576)
    m_l2Power(21) = CLng(2097152)
    m_l2Power(22) = CLng(4194304)
    m_l2Power(23) = CLng(8388608)
    m_l2Power(24) = CLng(16777216)
    m_l2Power(25) = CLng(33554432)
    m_l2Power(26) = CLng(67108864)
    m_l2Power(27) = CLng(134217728)
    m_l2Power(28) = CLng(268435456)
    m_l2Power(29) = CLng(536870912)
    m_l2Power(30) = CLng(1073741824)


    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d
    
    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21

    x = ConvertToWordArray(sMessage)
    
    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476

    For k = 0 To UBound(x) Step 16
        AA = a
        BB = b
        CC = c
        DD = d
    
        md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
        md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
        md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
        md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
        md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
        md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
        md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
        md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
        md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
        md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
        md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
        md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
        md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
        md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
        md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
        md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
    
        md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
        md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
        md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
        md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
        md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
        md5_GG d, a, b, c, x(k + 10), S22, &H2441453
        md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
        md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
        md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
        md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
        md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
        md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
        md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
        md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
        md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
        md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
            
        md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
        md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
        md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
        md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
        md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
        md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
        md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
        md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
        md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
        md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
        md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
        md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
        md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
        md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
        md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
        md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
    
        md5_II a, b, c, d, x(k + 0), S41, &HF4292244
        md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
        md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
        md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
        md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
        md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
        md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
        md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
        md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
        md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
        md5_II c, d, a, b, x(k + 6), S43, &HA3014314
        md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
        md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
        md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
        md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
        md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
    
        a = AddUnsigned(a, AA)
        b = AddUnsigned(b, BB)
        c = AddUnsigned(c, CC)
        d = AddUnsigned(d, DD)
    Next
    
    'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
    MD5=LCase(WordToHex(b) & WordToHex(c))  'I crop this to fit 16byte database password :D
End Function
%>

<html>

<head>

<title>用户登录</title>
<script language="Javascript">
function checklogin()
{
if(document.form_hydl.userid.value==""){
window.alert("请输入用户名！");
document.form_hydl.userid.focus();
return false ;
}
if(document.form_hydl.password.value==""){
window.alert("请输入密码！");
document.form_hydl.password.focus();
return false ;
}
return true;
}
</script>
</SCRIPT>

<STYLE type=text/css>
.样式1 {
	COLOR: #333333
}
.input {
	BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 12px; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc
}
.样式2 {color: #FF0000}
</STYLE>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" style="background-image: url('../img1/ad_yhdlbg.gif')">
<%
'用户信息
   function userinfo(userID)
      dim infoRS
	  set infoRS=conn.execute("SELECT * FROM 9j455msg1 where UserId="&userID&" and readle=false ") 
      if not infoRS.eof then
      response.Write("<a href=""../user/userinfo.asp?userID="&userID&""" target=_blank>")
	  response.Write("<initArray()>")
	  Response.Write "<bgsound src=../images/mail.wav  volume=100>"
%>	
	  
<SCRIPT language=JavaScript1.2>
function initArray() {
this.length = initArray.arguments.length;
for (var i = 0; i < this.length; i++) {
this[i] = initArray.arguments[i];
   }
}
var ctext = "短消息：您有新的短信";
var speed = 200;
var x = 0;
var color = new initArray(
"#FF0000", 
"#00aaff",
"#FF0000"
);
if(navigator.appName == "Netscape") {
document.write('<layer id="c">'+ctext+'</layer>');
}
if (navigator.appVersion.indexOf("MSIE") != -1){
document.write('<div id="c">'+ctext+'</div>');
}
function chcolor(){ 
if(navigator.appName == "Netscape") {
document.c.document.write('<font color="'+color[x]);
document.c.document.write('">'+ctext+'</font>');
document.c.document.close();
}
else if (navigator.appVersion.indexOf("MSIE") != -1){
document.all.c.style.color = color[x];
}
(x < color.length-1) ? x++ : x = 0;
}
setInterval("chcolor()",200);
</SCRIPT>
<%    response.Write("</a>")
      end if	 
      infoRS.close
	  set infoRS=nothing
   end function%>
<%=timmb%><%=timemb%><%=mbname%><%=why%>
<%'网吧用户IP自动登录
function LockmbIP(sip)
	dim str1,str2,str3,str4
	dim num,csk
	lockmbIP=false
	if isnumeric(left(sip,2)) then
		str1=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str2=left(sip,instr(sip,".")-1)
		sip=mid(sip,instr(sip,".")+1)
		str3=left(sip,instr(sip,".")-1)
		str4=mid(sip,instr(sip,".")+1)
		if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then
	
		else
			num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
			sql20="select count(*) from 9j455okip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
			set csk=conn.execute(sql20)
Set csk3=Server.CreateObject("ADODB.Recordset")
sql21="select * from 9j455okip where mbname<>'' and ip1 <="&num&" and ip2 >="&num&""
csk3.open sql21,conn,1,3
if csk3.eof and csk3.bof then
else
mbname=csk3("mbname")
timmb=csk3("tim")
timemb=csk3("time")
why=csk3("why")
end if
            if csk(0)>0 then 
				lockmbIP=true
			end if
			set csk=nothing
		end if
	end if
end function
%>
<%
if LockmbIP(Request.ServerVariables("REMOTE_ADDR")) then%>
<TABLE width=160 border=0 align="center" cellPadding=0 cellSpacing=3>
  <TBODY>
  <TR>
  
  <TR>
    <TD align=middle width=150><div align="center" class="样式1">欢迎你,<%=Request.ServerVariables("REMOTE_ADDR")%></div></TD>
  </TR>
  <TR>
    <TD align=middle><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="50%"><div align="center" class="样式1">网吧帐号</div></td>
        <td><div align="center" class="样式1"><%=mbname%></div></td>
      </tr>
    </table></TD>
  </TR>
  <TR>
    <TD vAlign=center align=middle height=24><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="50%"><div align="center" class="样式1">计费方式</div></td>
        <td><div align="center" class="样式1">免费观看</div></td>
      </tr>
    </table>
      </TD>
  </TR></TD></TR></TBODY></TABLE>
<TABLE id=table2 cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD>
      <DIV align=center>
      <TABLE id=table3 cellSpacing=0 cellPadding=0 width=170 bgColor=#c0c0c0 
      border=0>
        <TBODY>
        <TR>
          <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
          height=1></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<TABLE width=158 border=0 align="center" cellPadding=0 cellSpacing=4 id=table1>
  <TBODY>
  <TR>
    <TD height="24" align=right><div align="center">网吧到期时间</div>      </TD>
    </TR>
  <TR>
    <TD height="24" align=right><div align="center"><%if now() > timemb then
response.write "网吧帐号已到期请续费</font><br><br>"
else
response.write ""&timemb&"<br>"
end if%></div>      </TD>
    </TR>
  <TR>
    <TD height="24" align=right><div align="center" class="样式2">请注意到期时间及时续费</div>      </TD>
</TR></TBODY></TABLE>
<%else
Set ts=Conn.execute("Select * FROM 9j455ine WHERE username='"& userid & "'")

                  if ts.eof or request.cookies("okerer")="" or chkcookie(request.cookies("userid"))="" then
					 %>
<%if request.cookies("okerer")="" then%>
<TABLE width=160 border=0 align="center" cellPadding=0 cellSpacing=3>
  <TBODY>
  <TR>
   <form method="POST" onsubmit="return checklogin()" target="_top" name="form_hydl" action="../userpass.asp">
  <TR>
    <TD align=middle width=150><SPAN class=样式1>用户名： <INPUT class=input size=14 
      name=userid> </SPAN></TD></TR>
  <TR>
    <TD align=middle width=150><SPAN class=样式1>密　码： <INPUT class=input 
      type=password size=14 name=password> </SPAN></TD></TR>
  <TR>
    <TD vAlign=center align=middle width=150 height=24>
      <TABLE height=24 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=样式1 vAlign=top align=middle height=24><INPUT 
            type=image name="Submit" src="images/e_button_login.gif" align=left 
            border=0> </TD>
          <TD class=样式1 vAlign=top align=middle height=24><a href="reg.asp" target="_parent"><IMG src="images/zc.gif" 
            align=right 
  border=0></a></TD>
</TR></TBODY></TABLE></TD></TR></FORM></TD></TR></TBODY></TABLE>
<TABLE id=table2 cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD>
      <DIV align=center>
      <TABLE id=table3 cellSpacing=0 cellPadding=0 width=170 bgColor=#c0c0c0 
      border=0>
        <TBODY>
        <TR>
          <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
          height=1></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<TABLE width=158 border=0 align="center" cellPadding=0 cellSpacing=4 id=table1>
  <TBODY>
  <TR>
    <TD width="50%" align=right><div align="center"><a href="../user/pwd.asp">忘记密码</a></div></TD>
    <TD width=118 height="24" align=middle><div align="center"><a href="../user/pay.asp">帐号冲值</a></div></TD>
  </TR>
  <TR>
    <TD align=right><div align="center"><a href="../user/wantlogin.asp">帐号恢复</a></div></TD>
    <TD width=118 height="24" align=middle><div align="center"><a href="../user/film.asp">发展下线</a></div></TD>
  </TR>
  <TR>
    <TD align=right><div align="center"><a href="../sms/reg.asp">
		<font color="#FF0000">手机注册</font></a></div></TD>
<TD width=118 height="24" align=middle><div align="center">
	<a href="../sms/login.asp"><font color="#FF0000">手机登陆</font></a></div></TD>
  </TR></TBODY></TABLE>
<%end if%>
<%if request.cookies("userid")<>"" and request.cookies("password")<>"" and request.cookies("okerer")<>"" then%>
<% 
set rs=server.createobject("adodb.recordset")
sql="select money,starlook,nlook,name,nos,password,id,baoyue,usercount,oklook from users where userid='"&request.cookies("userid")&"' and password='"&request.cookies("password")&"'"
rs.open sql,conn,1,1%>
<TABLE width=160 border=0 align="center" cellPadding=0 cellSpacing=3>
  <TBODY>
  <TR>
   <form method="POST" onsubmit="return checklogin()" target="_top" name="form_hydl" action="../userpass.asp">
  <TR>
    <TD align=middle><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="50%"><div align="center"><%if rs("oklook")=0 then 
oklook="电影游客"
elseif rs("oklook")=1 then
oklook="普通会员"
elseif rs("oklook")=2 then
oklook="白银会员"
elseif rs("oklook")=3 then
oklook="黄金会员"
elseif rs("oklook")=4 then
oklook="钻石会员"
end if%>
    <%=oklook%></div></td>
        <td><div align="center"><%=request.cookies("userid")%></div></td>
      </tr>
    </table></TD>
  </TR>
  <TR>
    <TD align=middle><div align="center">
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="50%"><div align="center" class="样式1">计费方式</div></td>
          <td><div align="center" class="样式1"><%if rs("baoyue")=0 then%>
          计点
          <%elseif rs("baoyue")=1 then%>
          包月
          <%end if%></div></td>
        </tr>
      </table>
    </div></TD>
  </TR>
  <TR>
    <TD vAlign=center align=middle height=24>
      <div align="center">
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="50%"><div align="center" class="样式1">帐号剩余</div></td>
            <td><div align="center" class="样式1"><% baoyue=rs("baoyue")
			  if baoyue=0 then%>
              <%=rs("usercount")%>点
              <%end if%>
                    <% baoyue=rs("baoyue")
			  if baoyue=1 then%>
                    <%money=rs("money")
if money-now()>=1 then
canlook=money-now()
canlook=formatnumber(canlook,1)
response.write""&canlook&"&nbsp;天"
else
response.write"已到期"
end if%>
                    <%end if%></div></td>
          </tr>
        </table>
      </div></TD>
  </TR></FORM></TD></TR></TBODY></TABLE>
<TABLE id=table2 cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD>
      <DIV align=center>
      <TABLE id=table3 cellSpacing=0 cellPadding=0 width=170 bgColor=#c0c0c0 
      border=0>
        <TBODY>
        <TR>
          <TD style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
          height=1></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<TABLE width=158 border=0 align="center" cellPadding=0 cellSpacing=4 id=table1>
  <TBODY>
  <TR>
    <TD height="24" colspan="2" align=right><div align="center"><%userinfo(RS("id"))%></div></TD>
    </TR>
  <TR>
    <TD width="50%" align=right><div align="center" class="pk"><a href="../user" class="pk">会员中心</a></div></TD>
    <TD height="24" align=middle><div align="center"><a href="../user/pay.asp">帐号冲值</a></div></TD>
  </TR>
  <TR>
    <TD align=right><div align="center"><a href="../user/film.asp">发展下线</a></div></TD>
<TD height="24" align=middle><div align="center"><a href="../user/lcout.asp">退出登录</a></div></TD>
  </TR></TBODY></TABLE>
        <%end if
        end if
        end if%>

</body>

</html>
</div></td>

									</TR>
								</TBODY>
							</TABLE>
						</TD>
					</TR>
				</TBODY>
			</TABLE></FORM>
      		<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD height=3></TD>
					</TR>
					<TR>
						<TD>
						<IMG height=31 src="IMAGES/eros08.gif" 
        width=176></TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ff9bb3 cellSpacing=0 
      cellPadding=0 width="100%" border=1 height="78">
				<TBODY>
					<TR>
						<TD vAlign=top>
						<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0 height="77">
							<TBODY>
								<TR>
									<TD 
                  class=15h>
                        <MARQUEE onmouseover=this.stop() onmouseout=this.start() 
                        scrollAmount=1 scrollDelay=100 direction=up height=71 
                        align="left"><%set rs1=server.createobject("adodb.recordset")                                                                                     
sql="select * from 9j455" 
rs1.open sql,conn,1,3
talk=rs1("lczuan")
rs1.close
set rs1=nothing
                        %>
              <%=ubbcode(dvHTMLEncode(talk))%></MARQUEE></TD>
								</TR>
							</TBODY>
						</TABLE></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
			<TD width=4></TD>
			<TD vAlign=top>
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ff9bb3 cellSpacing=0 
      cellPadding=0 width="100%" border=1>
				<TBODY>
					<TR>
						<TD vAlign=top align=middle>
						<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
							<TBODY>
								<TR>
									<TD height=5></TD>
								</TR>
							</TBODY>
						</TABLE>
						<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
							<TBODY>
								<TR>
									
</TR>
							</TBODY>
						</TABLE>
						<TD align=middle height=283><iframe src="man.asp" width="746" height="283" scrolling="no" frameborder="0"></iframe></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=176>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
			</TBODY>
			</TABLE><TD width=176><IMG height=48 src="IMAGES/vjk_13.gif" width=176><table border="0" width="99%" id="table1299" height="472" cellspacing="0" cellpadding="0">
				<tr>
					<td>
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ffd0d5 height=126 
      cellSpacing=0 cellPadding=0 width="100%" border=1 id="table1300">
				<TBODY>
					<TR>
						<TD bgColor=#fff7f8> <% 
                         sql="select * from 9j455ning WHERE domurl<>Null and best=1 and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                    <TR>
                      <TD 
                      style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px" 
                      align=middle>
                        <TABLE id=table1055 cellSpacing=0 cellPadding=0 
                        width="100%" border=0>
                          <TBODY>
                          <TR></TR>
                          <TR>
                            <TD>
                              <TABLE id=table1056 height=115 cellSpacing=0 
                              cellPadding=0 width="100%" border=0>
                                <TBODY>
								
                                <TR>
                                <TD style="PADDING-LEFT: 4px" vAlign=top 
                                width=88 rowSpan=4>
                                <TABLE id=table1057 cellSpacing=1 cellPadding=2 
                                width="86%" bgColor=#e7e7e7 border=0 height="110">
                                <TBODY>
                                <TR>
                                <TD bgColor=#ffffff><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
								<img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="72" height="100" border="0"></a></TD>
                                </TR></TBODY></TABLE></TD>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank><FONT 
                                color=#31609e>
                                  <%content=rs("title")
                          if len(content)>6 then content=left(content,6)&""
                          response.write content
                            %></FONT></A></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><FONT 
                                color=#0099cc>类别:</FONT><%=rs("typeid")%></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px"><FONT 
                                color=#0099cc>地区:</FONT><%=rs("where")%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
                        </TD>
                    </TR></TBODY><% i=i+1                      
                        if i>=4 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TD>
					</TR>
				</TBODY>
			</TABLE></table>
			
</TD>
			<TD width=0></TD>
			<TD vAlign=top>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" background="" border=0>
				<TBODY>
					<TR>
						<TD background=IMAGES/vjk_09.gif>
						<IMG height=48 
            src="IMAGES/vjk_08.gif" width=247></TD>
						<TD width=72>
						<IMG 
            height=48 src="IMAGES/vjk_10.gif" width=72 
        border=0></A></TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="759" 
      background=IMAGES/vjk_11.gif border=0 height="455">
				<TBODY>
					<TR>
						<TD vAlign=top align=middle width=565 height=384>
						<table border="0" width="100%" id="table1306" height="385" cellspacing="0" cellpadding="0">
							<tr>
								<td><div align="center">
				<iframe src="tv00.asp" width="559" height="385" marginwidth="1" marginheight="1" hspace="0" vspace="0" scrolling='no' noResize  border=0 frameBorder=0 name="wy"></iframe></div>
                  </td></td>
							</tr>
						</table>
						</TD>
						<TD vAlign=top align=middle width=4 height=455 rowspan="3">　</TD>
						<TD vAlign=top align=middle width=186 height=455 rowspan="3">
						<table border="0" width="99%" id="table1307" height="466" cellspacing="0" cellpadding="0">
							<tr>
								<td>
								<div align="center">
									<table border="1" cellspacing="0" width="95%" id="table1313" height="56" bordercolorlight="#FFD0D5" bordercolordark="#FFD0D5">
										<tr>
											<%
sql="select * from 9j455min where best=true order by id desc"
set rsz=server.createobject("adodb.recordset")
rsz.open sql,conn,1,1
b=0
row_count=1
%>
            <%
do while not rsz.eof
b=b+1
%>
            <td><table width="99%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="72" rowspan="3" valign="top"><a href="special_view.asp?id=<%=rsz("id")%>" target="_blank">
				<img src="<%if rsz("pic")="" then%>../tupian/nopic.gif<%else%><%=rsz("pic")%><%end if%>" width="66" height="103" border="0"></a></td>
                <td height="18"><a href="special_view.asp?id=<%=rsz("id")%>" target="_blank"><font color="#FF9900"><%=rsz("name")%></font></a></td>
              </tr>
              <tr>
                <td height="1" background="images/517_line1.gif"></td>
              </tr>
              <tr>
                <td><%
                            content=rsz("special_intro")
                            content=left(content,6)&".." 
                            content=replace(content,"<p>","")
                            response.write content%></td>
              </tr>
            </table></td>
          </tr>
		     <%
if b>=2 then exit do
rsz.movenext
loop
rsz.close
set rsz=nothing
%>
        
										</tr>
									</table>
								</div>
								</td>
							</tr>
							<tr>
								<td height="238">
                              <DIV align=center>
                              <TABLE id=table1312 cellSpacing=0 cellPadding=0 
                              width="175" bgColor=#E374A0 border=0>
                                <TBODY>
                                <TR>
                                <TD 
                          height=5 style="font-size: 12px; color: #525252; line-height: 99%"></TD></TR></TBODY></TABLE></DIV>
								<table border="0" width="100%" id="table1308" cellspacing="0" cellpadding="0">
									<tr>
										<td>
                        <TABLE id=table1310 cellSpacing=1 cellPadding=0 
                        width="99%" border=0>
                          <TBODY>
                          <TR>
                            <TD width=180 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                              <TABLE id=table1311 height=150 cellSpacing=0 
                              cellPadding=0 width=182 border=0>
                                <TBODY>
                                <TR>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<IMG alt="" 
                                src="images/sort_r1_c7.gif" 
                                border=0 
name=/images/sort/sort_r1_c16 width="127" height="31"></TD></TR>
                                <TR>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=香港" style="color: #525252">
								<IMG 
                                alt="" 
                                src="images/sort_r2_c8.gif" 
                                border=0 name=/images/sort/sort_r2_c21></A></TD>
                                <TR>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=大陆" style="color: #525252">
								<IMG 
                                alt="" 
                                src="images/sort_r4_c8.gif" 
                                border=0 name=/images/sort/sort_r4_c14 width="118" height="32"></A></TD>
                                <TR>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=日韩" style="color: #525252">
								<IMG alt="" 
                                src="images/sort_r6_c8.gif" 
                                border=0 name=/images/sort/sort_r4_c16 width="118" height="32"></A></TD>
                                <tr>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=欧美" style="color: #525252">
								<IMG 
                                alt="" 
                                src="images/sort_r2_c9.gif" 
                                border=0 name=/images/sort/sort_r2_c22 width="120" height="32"></A></TD>
                                </tr>
                                <tr>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=日韩" style="color: #525252">
								<IMG 
                                alt="" 
                                src="images/sort_r4_c9.gif" 
                                border=0 
                                name=/images/sort/sort_r4_c15 width="118" height="32"></A></TD>
                                </tr>
								<tr>
                                <TD width=182 style="font-size: 12px; color: #525252; line-height: 150%">
								<p align="center">
								<A 
                                href="where.asp?where=其它" style="color: #525252">
								<IMG 
                                alt="" 
                                src="images/sort_r6_c9.gif" 
                                border=0 
                                name=/images/sort/sort_r4_c17 width="118" height="32"></A></TD>
                                </tr>
								</TBODY></TABLE></TD></TR></TBODY></TABLE></td>
									</tr>
								</table>
								</td>
							</tr>
						</table>
						</TD>
					</TR>
					<tr>
						<TD vAlign=top align=middle width=565 height=71>
						<table border="0" width="99%" id="table1301" height="71" background="images/21_03.gif" cellspacing="0" cellpadding="0">
							<tr>
								<td height="28">　</td>
							</tr>
							<tr>
                      <TD class=brn01 
                      style="PADDING-RIGHT: 0px; PADDING-LEFT: 15px; PADDING-BOTTOM: 0px; PADDING-TOP: 3px" 
                      noWrap width=544>
                        <TABLE id=table1302 style="BORDER-COLLAPSE: collapse" 
                        borderColor=#111111 height=24 cellSpacing=0 
                        cellPadding=0 width="100%" border=0>
                          <TBODY>
                          <TR>
                           <form name="form2" method="post" action="search.asp" onsubmit="if (!checkinput()) return false;">
  <script language="JavaScript">
<!--
function checkinput()
{
	if (document.form2.keyword.value=="")
	 {	
		alert("请输入想查询的内容！");
		document.form2.keyword.focus();
		return false;
	 }
	 return true;
}
-->
          </script>

                            <TD 
                            style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                            width=20><INPUT 
                              style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                              type=radio CHECKED value=片名 name=typeid></TD>
                            <TD class=14p16h vAlign=bottom width=57><FONT 
                              color=#1878ac>按片名</FONT></TD>
                            <TD 
                            style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                            width=20><INPUT 
                              style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                              type=radio value=演员 name=typeid></TD>
                            <TD class=14p16h vAlign=bottom width=51><FONT 
                              color=#1878ac>按影星</FONT></TD>
                            <TD 
                            style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                            width=166><INPUT 
                              style="BORDER-RIGHT: #3655aa 1px solid; BORDER-TOP: #3655aa 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #3655aa 1px solid; COLOR: #525252; LINE-HEIGHT: 150%; BORDER-BOTTOM: #3655aa 1px solid" 
                              onfocus=javascript:this.select(); size=25 
                              name=keyword></TD>
                            <TD 
                            style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                            width=82>
							<INPUT 
                              onclick="if (search.keyword.value.length==0) {alert('请输入关键字！');return false;}" 
                              type=image 
                              src="images/ss.gif" 
                              value=影片搜索 name=I2></TD>
                            <TD 
                            style="FONT-SIZE: 12px; COLOR: #525252; LINE-HEIGHT: 150%" 
                            width=90></TD></TR></FORM></TBODY></TABLE></TD>
							</tr>
						</table>
						</TD>
						</tr>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD>
						<IMG height=8 src="IMAGES/vjk_12.gif" 
        width=758></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD width=176><IMG height=48 src="IMAGES/vjk_7.gif" width=176></TD>
			<TD width=4></TD>
			<TD width=247><IMG height=48 src="IMAGES/vjk_14.gif" width=247></TD>
			<TD width=619 background=IMAGES/vjk_09.gif>　</TD>
			<TD width=72>
			<IMG height=48 
      src="IMAGES/vjk_10.gif" width=72 border=0></A></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=937 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=175 rowspan="2">
			<IFRAME frameBorder=0 height=326 marginHeight=0 
      marginWidth=0 scrolling=no src="mov.asp" 
      width=175></IFRAME></div></TD>
			<TD vAlign=top width=4 rowspan="2">
			　</TD>
			<TD vAlign=top width=758 height="221">
						<TABLE cellSpacing=6 cellPadding=0 width="100%" 
            background=IMAGES/vjk_19.gif border=0 id="table1305" height="319">
							
								<TR>
									<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from 9j455ning where canlook<>3 and nolook=0 order by articleid desc",conn,1,1
b=0
dim row_count
row_count=1
                    %> <tr>
                                      <%
          do while not rs.eof
          b=b+1%> 
                                      <td valign="top"><TABLE id=table1161 cellSpacing=1 cellPadding=3 
                                width=128 bgColor=#cccccc border=0>
                                        <TBODY>
                                          <TR>
                                            <TD width=120 bgColor=#ffffff>
                                              <P align=left><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
												<img border="0" height="248" src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="174"></a></P></TD>
                                        
                                        <TABLE id=table1162 cellSpacing=0 cellPadding=0 
                                width="163" border=0 height="39">
                                          <TBODY>
                                            <TR>
                                              <TD class=14p16h height=22>
												<font color="#31609E">&nbsp;</font><A class=left 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank><FONT 
                                color=#31609e>片名：<%=rs("title")%></FONT></A></TD>
                                            </TR>
                                            <TR>
                                              <TD 
                                height=17><FONT 
                                color=#0099cc>&nbsp;地区:</FONT><%=rs("where")%></TD>
                                            </TR>
                                          </TBODY>
                                        </TABLE></td>
                                      <% if row_count mod 4 =0 then%></tr>
                                  <tr>
                                      <%end if%> <%row_count=row_count+1
	      if b>=4 then exit do
	      rs.movenext
	      loop
	      rs.close
          set rs=nothing

		              %>
								</TR>
							</TBODY>
						</TABLE></TD>
					</TR>
				<tr>
			<TD vAlign=top width=758>
			<table border="0" width="100%" id="table1304" cellspacing="0" cellpadding="0" height="6">
				<tr>
						<TD>
						<IMG height=7 src="IMAGES/vjk_22.gif" 
        width=758></TD>
					</tr>
			</table>
					</TD>
					</tr>
				</TBODY>
			</TABLE></TD>
			<TD width=4></TD>
			<TD vAlign=top>
			</TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=176>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD vAlign=top height=1></TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="378">
				<TBODY>
					<TR>
						<TD width=176 height="48">
			<IMG height=48 
      src="IMAGES/vjk_23.gif" width=176 border=0></TD>
					</TR>
					<tr>
						<TD width=176>
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ffd0d5 height=104 
      cellSpacing=0 cellPadding=0 width="100%" border=1 id="table1327">
				<TBODY>
					<TR>
						<% 
                         sql="select * from 9j455ning WHERE domurl<>Null and best=1 and typeid='卡通片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                    <TR>
                      <TD 
                      style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px" 
                      align=middle>
                        <TABLE id=table1055 cellSpacing=0 cellPadding=0 
                        width="99%" border=0>
                          <TBODY>
                          <TR></TR>
                          <TR>
                            <TD>
                              <TABLE id=table1056 height=103 cellSpacing=0 
                              cellPadding=0 width="98%" border=0>
                                <TBODY>
								
                                <TR>
                                <TD style="PADDING-LEFT: 4px" vAlign=top 
                                width=59 rowSpan=4>
                                <TABLE id=table941 cellSpacing=1 cellPadding=3 width=72 
                        bgColor=#cccccc border=0>
                          <TBODY>
                          <TR>
                            <TD width=64 bgColor=#ffffff>
                              <P align=left><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="64" height="90" border="0"></a></P></TD></TR></TBODY></TABLE></TD>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank><FONT 
                                color=#31609e>
                                  <%content=rs("title")
                          if len(content)>6 then content=left(content,6)&""
                          response.write content
                            %></FONT></A></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><FONT 
                                color=#339933>类别:</FONT><%=rs("typeid")%></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px"><FONT 
                                color=#339933>地区:</FONT><%=rs("where")%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
                        </TD>
                    </TR></TBODY><% i=i+1                      
                        if i>=3 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %>
					</TR>
				</TBODY>
			</TABLE></TD>
					</tr>
				</TBODY>
			</TABLE></TD>
			<TD width=4></TD>
			<TD vAlign=top width=758>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD width=247>
						<IMG height=48 src="IMAGES/vjk_18.gif" 
          width=247></TD>
						<TD width=619 background=IMAGES/vjk_09.gif>　</TD>
						<TD width=72>
						<IMG 
            height=48 src="IMAGES/vjk_10.gif" width=72 
        border=0></A></TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD>
      <TABLE id=table1314 height=316 cellSpacing=0 cellPadding=0 width=758 
      background="images/v5index57.gif" 
      border=0>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle width=219 height=316 style="font-size: 12px; color: #525252; line-height: 150%">
            <TABLE id=table1315 cellSpacing=0 cellPadding=0 width="100%" 
border=0><% 
                         sql="select * from 9j455ning WHERE domurl<>Null and firstbest=1 and typeid='卡通片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
              <TBODY>
              <TR>
                <TD height=4 style="font-size: 12px; color: #525252; line-height: 150%"></TD></TR></TBODY></TABLE>
            <DIV align=center>
            <TABLE id=table1316 style="BORDER-COLLAPSE: collapse" 
            borderColor=#dedcdd cellSpacing=0 cellPadding=3 width=210 
              border=1><TBODY>
              <TR>
                <TD width=202 style="font-size: 12px; color: #525252; line-height: 150%">
				<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="200" height="280" border="0"></a></TD>
              </TR></TBODY></TABLE></DIV>
            <TABLE id=table1317 cellSpacing=0 cellPadding=0 width="102%" 
            border=0>
              <TBODY>
              <TR>
                <TD class=14p16h>
                  <P align=center><A class=left 
                  href="movie.asp?id=<%=rs("articleid")%>" target=_blank><FONT 
                  color=#31609e><%content=rs("title")
                          if len(content)>8 then content=left(content,8)&""
                          response.write content
                            %></FONT></A></P></TD></TR></TBODY></TABLE>
            <% i=i+1                     
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TD>
          <TD width=9 style="font-size: 12px; color: #525252; line-height: 150%"></TD>
          <TD vAlign=top width="25%" height=309 style="font-size: 12px; color: #525252; line-height: 150%">
            <DIV align=center>
            <TABLE id=table1318 cellSpacing=0 cellPadding=0 width="100%" 
            border=0>
              <TBODY>
              <TR>
                <TD style="font-size: 12px; color: #525252; line-height: 150%">
                  <TABLE id=table1319 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD height=4 style="font-size: 12px; color: #525252; line-height: 150%"></TD></TR></TBODY></TABLE>
                  <TABLE id=table1320 height=85 cellSpacing=0 
                              cellPadding=0 width="100%" border=0>
							  <% 
                         sql="select * from 9j455ning WHERE domurl<>Null and typeid='卡通片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                                <TBODY>
                                <TR>
                                <TD style="font-size: 12px; color: #525252; line-height: 150%">
                                <TABLE id=table1321 cellSpacing=1 cellPadding=2 
                                width=128 bgColor=#c0c0c0 border=0>
                                <TBODY>
                                <TR>
                                <TD width=122 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="120" height="168" border="0"></a></TD>
                                </TR></TBODY></TABLE></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 4px">
								<A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank style="color: #525252"><FONT 
                                color=#31609e><%content=rs("title")
                          if len(content)>8 then content=left(content,8)&""
                          response.write content
                            %></FONT></A></TD>
                                <TR>
                                <TD 
                                style="PADDING-LEFT: 4px; font-size:12px; color:#525252; line-height:150%"><%
                          content=rs("content")
                          if len(content)>65 then content=left(content,65)&"……"
                          response.write content
                            %></TD></TR></TBODY><% i=i+1                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TABLE></TD></TR></TBODY></TABLE></DIV></TD>
          <TD vAlign=top width=340 style="font-size: 12px; color: #525252; line-height: 150%">
            <TABLE id=table1322 cellSpacing=0 cellPadding=0 width="100%" 
border=0>
              <TBODY>
              <TR>
                <TD height=4 style="font-size: 12px; color: #525252; line-height: 150%"></TD></TR></TBODY></TABLE>
            <TABLE id=table1323 borderColor=#cccccc cellSpacing=0 cellPadding=0 
            width="100%" border=0>
              <TBODY>
              <TR>
                <TD height="108" style="FONT-SIZE: 12px; LINE-HEIGHT: 20px; color:#525252"><div align="center">
					<table width="100%" height="119" border="0" cellpadding="0" cellspacing="4" bordercolor="#6D6D6D" id="table1324" style="border-collapse: collapse">
                                 <%

set rs=server.createobject("adodb.recordset")
rs.open "select * from 9j455ning where typeid='卡通片' and canlook<>3 and nolook=0 order by  hits  desc",conn,1,1
b=0

row_count=1
                    %> <tr>
                                      <%
          do while not rs.eof
          b=b+1%> 
                                      <td valign="top" style="font-size: 12px; color: #525252; line-height: 150%">
										<TABLE id=table1325 cellSpacing=0 cellPadding=0 width="162" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD width=76 rowSpan=2 style="font-size: 12px; color: #525252; line-height: 150%">
                        <DIV align=left>
                        <TABLE id=table1326 cellSpacing=1 cellPadding=3 width=72 
                        bgColor=#cccccc border=0>
                          <TBODY>
                          <TR>
                            <TD width=64 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                              <P align=left>
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img border="0" height="90" src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="64"></a></P></TD></TR></TBODY></TABLE></DIV></TD>
                      <TD style="font-size: 12px; color: #525252; line-height: 150%"><A class=left 
                        href="movie.asp?id=<%=rs("articleid")%>" 
                        target=_blank><FONT color=#31609e><%=rs("title")%></FONT></A></TD></TR>
                    <TR>
                      <TD 
height=75 style="font-size: 12px; color: #525252; line-height: 150%"><%
                          content=rs("content")
                          if len(content)>18 then content=left(content,18)&"……"
                          response.write content
                            %></TD></TR></TBODY></TABLE></td>
                                      <% if row_count mod 2 =0 then%></tr>
                                  <tr>
                                      <%end if%> <%row_count=row_count+1
	      if b>=6 then exit do
	      rs.movenext
	      loop
	      rs.close
          set rs=nothing

		              %> </tr>
                        </table></div></TD>
                </TR>
              </TBODY></TABLE></TD></TR></TBODY></TABLE>
      					</TD>
					</TR>
					<TR>
						<TD>
						<IMG height=7 src="IMAGES/vjk_22.gif" 
        width=758></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD width=176>
			<IMG height=48 
      src="IMAGES/vjk_6.gif" width=176 border=0></A></TD>
			<TD width=4></TD>
			<TD width=247><IMG height=48 src="IMAGES/vjk_38.gif" width=247></TD>
			<TD width=619 background=IMAGES/vjk_09.gif>　</TD>
			<TD width=72>
			<IMG height=48 
      src="IMAGES/vjk_10.gif" width=72 border=0></A></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=176 height=278>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="321">
				<TBODY>
					<TR>
						<TD vAlign=top align=middle width=176 
          background=IMAGES/vjk_25.gif height=321>
            <TABLE width="100%" 
            border=0 cellPadding=0 cellSpacing=0 id=table1347>
              <TBODY>
              <TR>
                <TD height="103" style="font-size: 12px; color: #525252; line-height: 150%">
                  <TABLE width="100%" 
                  border=0 cellPadding=0 cellSpacing=0 id=table1348>
                    <TBODY>
					 <% 
                         sql="select * from 9j455ning WHERE domurl<>Null and best=1 and typeid='连续剧' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                    <TR>
                      <TD 
                      style="padding:0px; font-size:12px; color:#525252; line-height:150%" 
                      align=middle>
                        <TABLE id=table1349 cellSpacing=0 cellPadding=0 
                        width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD style="font-size: 12px; color: #525252; line-height: 150%">
                              <TABLE id=table1350 height=103 cellSpacing=0 
                              cellPadding=0 width="100%" border=0>
                                <TBODY>
								
                                <TR>
                                <TD style="PADDING-LEFT: 4px; font-size:12px; color:#525252; line-height:150%" vAlign=top 
                                width=59 rowSpan=4>
                                <TABLE id=table1351 cellSpacing=1 cellPadding=3 width=72 
                        bgColor=#cccccc border=0>
                          <TBODY>
                          <TR>
                            <TD width=64 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                              <P align=left>
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="64" height="90" border="0"></a></P></TD></TR></TBODY></TABLE></TD>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top>
								<A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank style="color: #525252"><FONT 
                                color=#31609e>
                                  <%content=rs("title")
                          if len(content)>6 then content=left(content,6)&""
                          response.write content
                            %></FONT></A></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><FONT 
                                color=#94005f>类别:</FONT><%=rs("typeid")%></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px"><FONT 
                                color=#94005f>地区:</FONT><%=rs("where")%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
                        </TD>
                    </TR></TBODY><% i=i+1                      
                        if i>=3 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TABLE></TD>
              </TR></TBODY></TABLE></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
			<TD width=4></TD>
			<TD vAlign=top>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=IMAGES/vjk_39.gif border=0 id="table1328">
				<TBODY>
					<TR>
						<TD vAlign=top align=middle width=5 height=280>&nbsp; 
						</TD>
                <TD vAlign=top width=219 height=276 style="font-size: 12px; color: #525252; line-height: 150%">
                  <DIV align=center><% 
                         sql="select * from 9j455ning WHERE domurl<>Null and firstbest=1 and typeid='连续剧' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                  <TABLE id=table1329 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#dedcdd cellSpacing=0 cellPadding=3 width=210 
                  border=1>
                    <TBODY>
                    <TR>
                      <TD width=202 style="font-size: 12px; color: #525252; line-height: 150%">
						<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="200" height="280" border="0"></a></TD>
                    </TR></TBODY></TABLE></DIV>
                  <TABLE id=table1330 cellSpacing=0 cellPadding=0 width="102%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=14p16h>
                        <P align=center><A class=left 
                        href="movie.asp?id=<%=rs("articleid")%>" 
                        target=_blank><FONT 
                    color=#31609e> <%content=rs("title")
                          if len(content)>8 then content=left(content,8)&""
                          response.write content
                            %></FONT></A></P></TD></TR></TBODY></TABLE><% i=i+2                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TD>
                <TD vAlign=top width=9 height=276 style="font-size: 12px; color: #525252; line-height: 150%">　</TD>
                <TD vAlign=top width=329 height=276 style="font-size: 12px; color: #525252; line-height: 150%">
                  <TABLE 
                  width="100%" height=306 border=0 cellPadding=0 cellSpacing=0 id=table1333>
                    <TBODY>
                    <TR>
                      <TD vAlign=top style="font-size: 12px; color: #525252; line-height: 150%">
                        <TABLE id=table1334 height=306 cellSpacing=0 
                        cellPadding=0 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD vAlign=top style="font-size: 12px; color: #525252; line-height: 150%">
                              <TABLE 
                              width="100%" border=0 cellPadding=0 cellSpacing=0 id=table1335>
                                <TBODY>
                                <TR>
                                <TD style="font-size: 12px; color: #525252; line-height: 150%">
                                <DIV align=right>
                                <table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#6D6D6D" id="table1336" style="border-collapse: collapse">
                                 <%

set rs=server.createobject("adodb.recordset")
rs.open "select * from 9j455ning where typeid='连续剧' and canlook<>3 and nolook=0 order by articleid desc",conn,1,1
b=0

row_count=1
                    %> <tr>
                                      <%
          do while not rs.eof
          b=b+1%> 
                                      <td valign="top" style="font-size: 12px; color: #525252; line-height: 150%">
										<TABLE id=table1337 cellSpacing=1 cellPadding=3 
                                width=128 bgColor=#cccccc border=0>
                                        <TBODY>
                                          <TR>
                                            <TD width=120 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                                              <P align=left>
												<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img border="0" height="168" src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="120"></a></P></TD>
                                          </TR>
                                        </TBODY>
                                      </TABLE>
                                        <TABLE id=table1338 cellSpacing=0 cellPadding=0 
                                width="167" border=0>
                                          <TBODY>
                                            <TR>
                                              <TD class=14p16h height=27><A class=left 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank><FONT 
                                color=#31609e><%=rs("title")%></FONT></A></TD>
                                            </TR>
                                            <TR>
                                              <TD 
                                height=23 style="font-size: 12px; color: #525252; line-height: 150%">
												<table width="160" border="0" cellpadding="0" cellspacing="0" id="table1339">
                                                <tr>
                                                  <td style="font-size: 12px; color: #525252; line-height: 150%"><%
                          content=rs("content")
                          if len(content)>65 then content=left(content,65)&"……"
                          response.write content
                            %></td>
                                                </tr>
                                              </table></TD>
                                            </TR>
                                          </TBODY>
                                        </TABLE></td>
                                      <% if row_count mod 2 =0 then%></tr>
                                  <tr>
                                      <%end if%> <%row_count=row_count+1
	      if b>=2 then exit do
	      rs.movenext
	      loop
	      rs.close
          set rs=nothing

		              %> </tr>
                          </table></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>                  </TD>
						<TD vAlign=top width=4>
						　</TD>
						<TD vAlign=top width=7>
						　</TD>
						<TD vAlign=top width=189>
                  <DIV align=center>
                    <table width="95%" height="104" border="0" align="center" cellpadding="0" cellspacing="0" id="table1341">
                      <tr><%
                         Set rst= Server.CreateObject("ADODB.Recordset")
                          rst.open "select articleid,title,content,where,dateandtime,typeid,domurl,hits from 9j455ning where typeid='连续剧' and nolook=0 order by hits desc",conn,1,1
                          %>
             <%
                      i=0
                      do while not rst.eof
                      i=i+1
                      %>
                        <td height="104" valign="top" style="font-size: 12px; color: #525252; line-height: 150%"><div align="center">
							<TABLE width="180" 
                  border=0 align="left" cellPadding=3 cellSpacing=0 id=table1342>
                    <TBODY>
                    <TR>
                      <TD width=72 rowSpan=2 style="font-size: 12px; color: #525252; line-height: 150%">
                        <DIV align=left>
                        <TABLE id=table1343 cellSpacing=1 cellPadding=3 width=72 
                        bgColor=#cccccc border=0>
                          <TBODY>
                          <TR>
                            <TD width=64 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                              <P align=left>
								<a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rst("domurl")="" then%>../tupian/nopic.gif<%else%><%=rst("domurl")%><%end if%>" width="64" height="90" border="0"></a></P></TD></TR></TBODY></TABLE></DIV></TD>
                      <TD style="font-size: 12px; color: #525252; line-height: 150%"><A class=left 
                        href="movie.asp?id=<%=rst("articleid")%>" 
                        target=_blank><FONT 
                    color=#31609e><%content=rst("title")
                          if len(content)>6 then content=left(content,6)&""
                          response.write content
                            %></FONT></A></TD></TR>
                    <TR>
                      <TD height=74 style="font-size: 12px; color: #525252; line-height: 150%"><%
                          content=rst("content")
                          if len(content)>20 then content=left(content,20)&""
                          response.write content
                            %></TD></TR></TBODY></TABLE>
                        </div></td>
                      </tr>
					  <% 
                        if i>=3 then exit do
                        rst.movenext
                        loop
                        rst.close
                        set rst=nothing
                        %>
                    </table>
                  
                  </DIV>
						<p>　</TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD>
						<IMG height=8 src="IMAGES/vjk_12.gif" 
        width=758></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD width=176><IMG height=48 src="IMAGES/vjk_31.gif" width=176></TD>
			<TD width=4></TD>
			<TD width=247><IMG height=48 src="IMAGES/vjk_32.gif" width=247></TD>
			<TD width=90 background=IMAGES/vjk_09.gif>
			<IMG height=48 
      src="IMAGES/vjk_33.gif" width=90></TD>
			<TD width=529 background=IMAGES/vjk_09.gif>　</TD>
			<TD width=72>
			<IMG height=48 
      src="IMAGES/vjk_10.gif" width=72 border=0></A></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD vAlign=top width=176>
                        <TABLE width="100%" 
            border=0 cellPadding=0 cellSpacing=0 id=table1363>
              <TBODY>
              <TR>
                <TD height="103" style="font-size: 12px; color: #525252; line-height: 150%">
                  <TABLE width="100%" 
                  border=0 cellPadding=0 cellSpacing=0 id=table1364>
                    <TBODY>
					 <% 
                         sql="select * from 9j455ning WHERE domurl<>Null and best=1 and typeid='动作片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                    <TR>
                      <TD 
                      style="padding:0px; font-size:12px; color:#525252; line-height:150%" 
                      align=middle>
                        <TABLE id=table1365 cellSpacing=0 cellPadding=0 
                        width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD style="font-size: 12px; color: #525252; line-height: 150%">
                              <TABLE id=table1366 height=103 cellSpacing=0 
                              cellPadding=0 width="100%" border=0>
                                <TBODY>
								
                                <TR>
                                <TD style="PADDING-LEFT: 4px; font-size:12px; color:#525252; line-height:150%" vAlign=top 
                                width=59 rowSpan=4>
                                <TABLE id=table1367 cellSpacing=1 cellPadding=3 width=72 
                        bgColor=#cccccc border=0>
                          <TBODY>
                          <TR>
                            <TD width=64 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                              <P align=left>
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="64" height="90" border="0"></a></P></TD></TR></TBODY></TABLE></TD>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top>
								<A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank style="color: #525252"><FONT 
                                color=#31609e>
                                  <%content=rs("title")
                          if len(content)>6 then content=left(content,6)&""
                          response.write content
                            %></FONT></A></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px" 
                                vAlign=top><FONT 
                                color=#ff9900>类别:</FONT><%=rs("typeid")%></TD></TR>
                                <TR>
                                <TD class=14p16h style="PADDING-LEFT: 3px"><FONT 
                                color=#ff9900>地区:</FONT><%=rs("where")%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
                        </TD>
                    </TR></TBODY><% i=i+1                      
                        if i>=4 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TABLE></TD>
              </TR></TBODY></TABLE></TD>
			<TD width=4></TD>
			<TD vAlign=top width=758>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=IMAGES/vjk_35.gif border=0>
				<TBODY>
					<TR>
						<TD vAlign=top width="30%">
                  <DIV align=center><% 
                         sql="select * from 9j455ning WHERE domurl<>Null and firstbest=1 and typeid='动作片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                  <TABLE id=table1352 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#dedcdd cellSpacing=0 cellPadding=3 width=210 
                  border=1>
                    <TBODY>
                    <TR>
                      <TD width=202 style="font-size: 12px; color: #525252; line-height: 150%">
						<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252">
						<img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="191" height="280" border="0"></a></TD>
                    </TR></TBODY></TABLE></DIV>
                  <TABLE id=table1353 cellSpacing=0 cellPadding=0 width="102%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=14p16h>
                        <P align=center><A class=left 
                        href="movie.asp?id=<%=rs("articleid")%>" 
                        target=_blank><FONT 
                    color=#31609e> <%content=rs("title")
                          if len(content)>8 then content=left(content,8)&""
                          response.write content
                            %></FONT></A></P></TD></TR></TBODY></TABLE><% i=i+2                      
                        if i>=1 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %><TD vAlign=top width=191 style="font-size: 12px; color: #525252; line-height: 150%">
                  <DIV align=center>
                  <TABLE id=table1354 height=85 cellSpacing=11 
                                cellPadding=0 width="100%" border=0>
								<% 
                         sql="select * from 9j455ning WHERE domurl<>Null and typeid='动作片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                                <TBODY>
                                <TR>
                                <TD style="font-size: 12px; color: #525252; line-height: 150%">
                                <TABLE id=table1355 cellSpacing=1 cellPadding=2 
                                width=118 bgColor=#c0c0c0 border=0>
                                <TBODY>
                                <TR>
                                <TD width=112 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="110" height="154" border="0"></a></TD>
                                </TR></TBODY></TABLE></TD></TR>
                                <TR>
                            <TD class=14p16h style="PADDING-LEFT: 4px">
							<A 
                                href="movie.asp?id=<%=rs("articleid")%>" 
                                target=_blank style="color: #525252"><FONT 
                                color=#31609e><%content=rs("title")
                          if len(content)>8 then content=left(content,8)&""
                          response.write content
                            %></FONT></A></TD></TR></TBODY><% i=i+1                      
                        if i>=2 then exit do
                        rs.movenext
						
                        loop
                        end if
                        rs.close
                        set rs=nothing
                     %></TABLE></DIV></TD>
                <TD vAlign=top width=340 style="font-size: 12px; color: #525252; line-height: 150%">
                  <TABLE id=table1356 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD height=4 style="font-size: 12px; color: #525252; line-height: 150%"></TD></TR></TBODY></TABLE>
                  <table width="100%" height="119" border="0" cellpadding="0" cellspacing="4" bordercolor="#6D6D6D" id="table1357" style="border-collapse: collapse">
                                 <%

set rs=server.createobject("adodb.recordset")
rs.open "select * from 9j455ning where typeid='动作片' and canlook<>3 and nolook=0 order by  hits  desc",conn,1,1
b=0

row_count=1
                    %> <tr>
                                      <%
          do while not rs.eof
          b=b+1%> 
                                      <td valign="top" style="font-size: 12px; color: #525252; line-height: 150%">
										<TABLE id=table1358 cellSpacing=0 cellPadding=0 
                        width=170 border=0>
                          <TBODY>
                          <TR>
                            <TD width=76 rowSpan=2 style="font-size: 12px; color: #525252; line-height: 150%">
                              <DIV align=left>
                              <TABLE id=table1359 cellSpacing=1 cellPadding=3 
                              width=72 bgColor=#cccccc border=0>
                                <TBODY>
                                <TR>
                                <TD width=64 bgColor=#ffffff style="font-size: 12px; color: #525252; line-height: 150%">
                                <P align=left>
								<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img border="0" height="90" src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="64"></a></P></TD></TR></TBODY></TABLE></DIV></TD>
                            <TD style="font-size: 12px; color: #525252; line-height: 150%"><A class=left 
                              href="movie.asp?id=<%=rs("articleid")%>" 
                              target=_blank><FONT 
                            color=#31609e><%=rs("title")%></FONT></A></TD></TR>
                          <TR>
                            <TD height=30 style="font-size: 12px; color: #525252; line-height: 150%"><%
                          content=rs("content")
                          if len(content)>18 then content=left(content,18)&"……"
                          response.write content
                            %></TD></TR></TBODY></TABLE></td>
                                      <% if row_count mod 2 =0 then%></tr>
                                  <tr>
                                      <%end if%> <%row_count=row_count+1
	      if b>=8 then exit do
	      rs.movenext
	      loop
	      rs.close
          set rs=nothing

		              %> </tr>
                        </table></TD><TD vAlign=top width="1%">
						　</TD>
					</TR>
				</TBODY>
			</TABLE>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
				<TBODY>
					<TR>
						<TD>
						<IMG height=7 src="IMAGES/vjk_36.gif" 
        width=758></TD>
					</TR>
				</TBODY>
			</TABLE></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0>
	<TBODY>
		<TR>
			<TD width=176><IMG height=48 src="IMAGES/vjk_37.gif" width=176></TD>
			<TD width=4></TD>
			<TD width=247><IMG height=48 src="IMAGES/vjk_24.gif" width=247></TD>
			<TD width=619 background=IMAGES/vjk_09.gif>　</TD>
			<TD width=72>
			<IMG height=48 
      src="IMAGES/vjk_10.gif" width=72 border=0></A></TD>
		</TR>
	</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=938 border=0 height="316">
	<TBODY>
		<TR>
			<TD vAlign=top width=176 height="267">
			<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#ffd0d5 height=267 
      cellSpacing=0 cellPadding=0 width="100%" border=1>
	<TD bgColor=#fff7f8><div align="center"><TABLE WIDTH=156 BORDER=0 CELLPADDING=0 CELLSPACING=0>
  <TR> 
    <TD height="219" valign="top" background="images/index_diaocha_03.gif"> 
      <div align="center"> 
        <table width="94%"  border="0" cellpadding="0" cellspacing="0" background="images/left_bg2.gif" height="230">
          <tr>
                     <td height="207">
						<p align="center">
						<iframe name="I1" src="../diaocha/index_top_research.asp" width="176" height="230" scrolling="no" border="0" frameborder="0">
浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>　</div></td>
                  </tr>
          </table>
      	</div></TD>
  </TR>
  </TABLE></div></TR>
			</TABLE></TD>
			<TD width=4 rowSpan=2></TD>
			<TD vAlign=top width=758 rowSpan=2>
			<TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=IMAGES/vjk_39.gif border=0>
				<TBODY>
					<TR>
						<TD vAlign=top align=middle width=5 height=280>&nbsp; 
						</TD>
                <TD vAlign=top width=219 height=276 style="font-size: 12px; color: #525252; line-height: 150%">
                  <DIV align=center><% 
                         sql="select * from 9j455ning WHERE domurl<>Null and best=1 and typeid='恐怖片' and nolook=0 order by dateandtime desc"
                         Set rs= Server.CreateObject("ADODB.Recordset")
                         rs.open sql,conn,1,1
                         if rs.eof and rs.bof then
                            response.write "没有任何电影"
                         else
                         i=0
                         do while not rs.eof or rs.bof 
                       %>
                  <TABLE id=table1368 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#dedcdd cellSpacing=0 cellPadding=3 width=210 
                  border=1>
                    <TBODY>
                    <TR>
                      <TD width=202 style="font-size: 12px; color: #525252; line-height: 150%">
						<a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" style="color: #525252"><img src="<%if rs("domurl")="" then%>../tupian/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="200" height="280" border="0"></a></TD>
                    </TR></TBODY></TABLE></DIV>
                  <TABLE id=table1369 cellSpacing=0 cellPadding=0 width="102%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=14p16h>
                        <P alig