<%
dim cs_id,cscat_id
dim founderr,errmsg,RsHxcms
if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  cat_id=CLng(request("cat_id"))
else
  cat_id=0
end if

if request.querystring("id")<>"" then
  if not isInteger(request.querystring("id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  id=CLng(request("id"))
else
  id=0
end if

if id>0 then
   sql="select * from flash where id="&id
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你要找的动漫不存在，或者已经被管理员删除！</li>"
	else	
		start="精彩动漫 - "&rs("Title")&""
                cat_id=CLng(rs("cat_id"))		
		rs("hits")=rs("hits")+1
		rs.update
                sql="select cat_id,cat_name from f_cat where cat_id="&rs("cat_id")
                set rscat=conn.execute(sql)
                cat_name=rscat("cat_name")
                rscat.close
                set rscat=nothing
        end if
end if

'=================================================
if FoundErr=True then
	Call HxErrMsg()
	response.end
end if

'=================================================
'过程名：main_flash
'作  用：显示动漫位置导航
'参  数：无
'=================================================
sub main_flash()
if cat_id>0 then
  Response.Write "您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='fla.asp'>精彩动漫</a>" & vbCrLf
  sql="select * from f_cat where cat_id="&cat_id
  set rs3=conn.execute(sql)
  if rs3.eof then
  Response.Redirect "show_error.asp?eid=参数错误，找不到相关的记录!"
  Response.End
  End IF
  Response.Write " >> <a href=""flash.asp?cat_id="&rs3("cat_id")&""">"&rs3("cat_name")&"</a>" 
  rs3.close
  set rs3=nothing 
else
  Response.Write "您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='fla.asp'>精彩动漫</a>" & vbCrLf
end if
end sub

'=================================================
'过程名：top_flash
'作  用：热门动漫排行
'参  数：n-调用条数,nn-标题长度
'        NewWindows-----是否新窗打开，True为是，False为否
'=================================================
sub top_flash(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("SELECT top "&n&" * FROM flash ORDER by hits DESC,id DESC")
do while not RsHxcms.eof
Response.Write "<tr><td height=22 class=table-xia>&nbsp;·<a href='showflash.asp?id="&RsHxcms("id")&"' Title='动漫名称："&RsHxcms("title")&"&#13&#10查看次数："&RsHxcms("hits")&"&#13&#10上传时间："&RsHxcms("time")&"' "& nnn &">"&gotTopic(RsHxcms("title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>当前没有动漫！</td></tr>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub


'=================================================
'过程名：index_flash
'作  用：图片动漫调用
'参  数：num-------------调用条数
'=================================================
sub index_flash(num)
Response.Write "<TABLE width='100%' cellSpacing=8 cellPadding=0 align=center border=0><TR>" & vbCrLf
sql="select top "&num&" * from FLASH order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TD>"
Response.Write "<table border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write "<tr><td align='center' bgcolor='#FFFFFF'><a href='showflash.asp?id="&rs("id")&"'Title='动漫名称："&rs("title")&"&#13&#10查看次数："&rs("hits")&"&#13&#10上传时间："&rs("time")&"'><img border='0' src='"&rs("img")&"' width='120' height='90'></a></TD></TR>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
i=i+1
if i mod 2 = 0 then
Response.Write "</tr>"
end if
rs.movenext
loop
if rs.eof and rs.bof then
   Response.Write "<TD align=center>暂无FLASH动慢！</TD>"
end if
rs.close
set rs=nothing
Response.Write "</TR></TABLE>" & vbCrLf
end sub

'=================================================
'过程名：index_flashwz
'作  用：首页文字动漫调用
'参  数：num-------------调用条数
'        fontnum---------标题长度
'        classyes--------是否显示分类，True为是，False为否
'        NewWindows------是否新窗打开，True为是，False为否
'=================================================
sub index_flashwz(num,fontnum,classyes,NewWindows)
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>" & vbCrLf
sql="select top "&num&" * from FLASH order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
sql="select cat_id,cat_name from f_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
dim nnn
if NewWindows=True then
   nnn="target='_blank'"
else
   nnn=""				
end if 
Response.Write "<TR><TD height='22' width='100%' class=table-xia>" & vbCrLf
if classyes=True then 
Response.Write "·<a href='flash.asp?cat_id="&rs("cat_id")&"'>『"&left(rscat("cat_name"),10)&"』</a>"
else
Response.Write ""&indexdot&"" 
end if
Response.Write "<a href='showflash.asp?id="&rs("id")&"' Title='动慢名称："&rs("title")&"&#13&#10发布时间："&rs("time")&"' "& nnn &">"&gotTopic(rs("title"),fontnum)&"</a>" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=center>暂无FLASH动慢！</TD></TR>"
end if
rscat.close
set rscat=nothing
rs.close
set rs=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：fl_flash
'作  用：动漫分类图片(分类图片显示)
'参  数：num-------------调用条数
'        fontnum---------标题长度
'        classid---------一级分类调用id，0为全部
'        ImgWidth   ----图片宽度
'        ImgHeight  ----图片高度
'        NewWindows-----是否新窗打开，True为是，False为否
'=================================================
sub fl_flash(num,fontnum,classid,ImgWidth,ImgHeight,NewWindows)
Response.Write "<TABLE width='100%' cellSpacing=5 cellPadding=0 align=center border=0><TR>" & vbCrLf
if classid=0 then
   sql="select top "&num&" * from FLASH order by id DESC"
else
   sql="select top "&num&" * from FLASH where cat_id="&classid&" or cat_id in(select cat_id from f_cat where cat_id="&classid&") order by id DESC"			
end if 
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
dim nnn
if NewWindows=True then
   nnn="target='_blank'"
else
   nnn=""				
end if
Response.Write "<TD>"
Response.Write "<table border='0' align='center' cellpadding='3' cellspacing='1' bgcolor='#C5C5C5'>"
Response.Write "<tr><td align='center' bgcolor='#FFFFFF'><a href='showflash.asp?id="&rs("id")&"' Title='动漫名称："&rs("title")&"&#13&#10查看次数："&rs("hits")&"&#13&#10上传时间："&rs("time")&"' "& nnn &"><img border='0' src='"&rs("img")&"' width='"&ImgWidth&"' height='"&ImgHeight&"'></a></TD></TR>" & vbCrLf
Response.Write "</table><table border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write "<tr><td align='center'><a href='showflash.asp?id="&rs("id")&"' Title='动漫名称："&rs("title")&"&#13&#10查看次数："&rs("hits")&"&#13&#10上传时间："&rs("time")&"' "& nnn &">"&gotTopic(rs("title"),fontnum)&"</a></TD></TR>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<td align=center>暂时没有影片</td>"
end if
rs.close
set rs=nothing
Response.Write "</TR></table>" & vbCrLf
end sub

'=================================================
'过程名：best_flash
'作  用：推荐动漫
'参  数：n-调用条数,nn-标题长度
'        NewWindows-----是否新窗打开，True为是，False为否
'=================================================
sub best_flash(n,nn,NewWindows)
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""				
end if
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0 border=0 align='center'>" & vbCrLf
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("SELECT top "&n&" * FROM flash where isbest = 1 order by id desc")
do while not RsHxcms.eof
Response.Write "<tr><td height=22 class=table-xia>&nbsp;·<a href='showflash.asp?id="&RsHxcms("id")&"' Title='动漫名称："&RsHxcms("title")&"&#13&#10查看次数："&RsHxcms("hits")&"&#13&#10上传时间："&RsHxcms("time")&"' "& nnn &">"&gotTopic(RsHxcms("title"),nn)&"</a></td></tr>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
Response.Write "<tr><td align='center' valign='middle'>没有推荐动漫！</td></tr>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</TABLE>" & vbCrLf
end sub

'=================================================
'过程名：class_flash
'作  用：动漫分类——横排
'参  数：无
'=================================================
sub class_flash()
sql="select * from f_cat"
set RsHxcms=server.createobject("adodb.recordset")
RsHxcms.open sql,conn,1,1
do while not RsHxcms.eof
if request("cat_id")=cstr(RsHxcms("cat_id")) then
response.write "<font color=""#FF0000"">·"&RsHxcms("cat_name")&"</font>&nbsp;"
else
response.write "·<a href='flash.asp?cat_id="&RsHxcms("cat_id")&"'>"&RsHxcms("cat_name")&"</a>&nbsp;"
end if
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
response.write "当前没有分类&nbsp;"
end if
RsHxcms.close
set RsHxcms=nothing
end sub

'=================================================
'过程名：class1_flash
'作  用：动漫分类——纵排
'参  数：无
'=================================================
sub class1_flash()
sql="select * from f_cat"
set RsHxcms=server.createobject("adodb.recordset")
RsHxcms.open sql,conn,1,1
do while not RsHxcms.eof
if request("cat_id")=cstr(RsHxcms("cat_id")) then
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=""#FF0000"">·"&RsHxcms("cat_name")&"</font><br>"
else
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='flash.asp?cat_id="&RsHxcms("cat_id")&"'>·"&RsHxcms("cat_name")&"</a><br>"
end if
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
response.write "当前没有分类&nbsp;"
end if
RsHxcms.close
set RsHxcms=nothing
end sub

'=================================================
'过程名：search_flash
'作  用：显示动漫搜索表单
'参  数：无
'=================================================
sub search_flash()
Response.Write "<form name='form2' method='post' action='flash.asp'><div align=center><input type='radio' name='select' value='title' checked class='inuptCG'>名称&nbsp;<input type='radio' name='select' value='Content' class='inuptCG'>简介&nbsp;<input type='radio' name='select' value='review' class='inuptCG'>评论<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onfocus=""this.value=''"" class='input'>&nbsp;<input type='submit' name='search'  value='搜索' onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'""></form>" & vbCrLf
end sub

'=================================================
'过程名：displayList_flash
'作  用：带分页功能的动漫列表
'参  数：nn-标题长度,Hxperpage-每页显示条数
'=================================================
sub displayList_flash(nn,Hxperpage,ImgWidth,ImgHeight)
Dim CurPage,Url_Add
Url_Add="?"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
    Response.End
  end if
end if
if request.querystring("cat_id")<>"" then
   sql="select * from flash where cat_id="&request.querystring("cat_id")&" order by id DESC"
   Url_Add=Url_Add&"cat_id="&cat_id&"&"
elseif request("keyword")<>"" and (request("select")="title" or request("select")="Content" or request("select")="review")  then
sql="select * from flash where "&request("select")&" like '%"&Jencode(checkspace(request("keyword")))&"%' order by id DESC"
   Url_Add=Url_Add&"select="&request("select")&"&keyword="&Server.URLEncode(request("keyword"))&"&"
else
sql="select * from flash order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<table width='100%' border='1' align='center' cellspacing='0' cellpadding='0' bgcolor='#FFFFFF' bordercolor='#f0f0f0' style='border-collapse: collapse'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30 colspan=4><FONT color=#b70000>&nbsp;<B>·</B></FONT>"
if request("cat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>个动漫</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.Write "<TD style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px' align=middle width='20%'><a href='showflash.asp?id="&rs("id")&"' Title='动漫名称："&Rs("title")&"&#13&#10查看次数："&Rs("hits")&"&#13&#10上传时间："&Rs("time")&"'><img border='0' src='"&rs("img")&"' width='"&ImgWidth&"' height='"&ImgHeight&"'></a></TD><TD width='30%' align='top'>&nbsp;<strong>动漫名称：</strong><a href='showflash.asp?id="&rs("id")&"'>"&rs("title")&"</a><br>&nbsp;<strong>加入时间：</strong>"&rs("Time")&"<br>&nbsp;<strong>点击次数：</strong>"&rs("hits")&"<br>&nbsp;<strong>简单描述：</strong>"&gotTopic(rs("Content"),50)&"</TD>"
i=i+1
if i mod 2 = 0 then
Response.Write "</tr>"
end if
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60' colSpan=4>"
if request("djcat_id")<> "" then
Response.Write "该分类暂时没有动漫"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的专集！"
else
Response.Write "没有任何动漫，请管理员到后台添加！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：content_flash
'作  用：显示动慢标题、内容
'参  数：无
'=================================================
sub content_flash()
if request.querystring("id")="" then
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
  Response.End
end if
Response.Write "<table width=""100%""  border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td colspan=3 align='center' HEIGHT=40><b><font color=ff6600><b>"&rs("title")&"</b></font><b></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf 
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='20' align='center'>加入时间</td>"
Response.Write "<td width='38%'>&nbsp;"&rs("time")&"</td>"
Response.Write "<td rowspan='8' align='right' width='53%'>"
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='380' align='center' valign='middle' background='img/flash/flash.jpg'><OBJECT CLASSID=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" CODEBASE=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"" WIDTH='480' HEIGHT='360'>" & vbCrLf
Response.Write "<PARAM NAME=quality VALUE=high>" & vbCrLf
Response.Write "<PARAM NAME='SRC' VALUE='"&rs("url")&"'>" & vbCrLf
Response.Write "<EMBED QUALITY=high PLUGINSPAGE=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" TYPE=""application/x-shockwave-flash"" WIDTH='480' HEIGHT='360' SRC='"&rs("url")&"'>" & vbCrLf  
Response.Write "</EMBED>" & vbCrLf
Response.Write "</OBJECT></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='20' align='center'>所属类别</td>"
Response.Write "<td>&nbsp;"&cat_name&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='20' align='center'>动漫作者</td>"
Response.Write "<td>&nbsp;"
if rs("author")<>"" then 
Response.Write ""&rs("author")&""
else 
Response.Write "未知"
end if
Response.Write "</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='20' align='center'>欣赏次数</td>"
Response.Write "<td>&nbsp;<font color=red><b>"&rs("hits")&"</b></font></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>下载次数</td>"
Response.Write "<td>&nbsp;<b>"&rs("Download")&"</b></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='20' align='center'>推荐程度</td>"
Response.Write "<td>&nbsp;"&rs("Commend")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>评论次数</td>"
Response.Write "<td>&nbsp;"&rs("reviewcount")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td height='150' align='center' valign='top'>作品介绍</td>"
Response.Write "<td valign='top'>&nbsp;&nbsp;&nbsp;&nbsp;"&rs("Content")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=2>&nbsp;</td>"
Response.Write "<td align='center'><img src='img/flash/flash_down.gif' width='20' height='20'>"
Response.Write "<a title='鼠标右键单击此链接，从弹出的菜单中选择：目标另存为…' href='"&rs("url")&"'>下载作品</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src='img/flash/flash_full.gif' width='20' height='20'><a href='viewflash.htm?"&rs("url")&"&namecode=pcedu&subnamecode=pcedu_flash' target='_blank'>全屏播放</a></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf 
Response.Write "<td width='100%' colspan='3' style=""display:block;padding:0px 20px;LINE-HEIGHT: 180%"">&nbsp;</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
end sub

'=================================================
'过程名：contextual_flash
'作  用：显示动漫上下(篇)
'参  数：无
'=================================================
sub contextual_flash()
set RelationArt = conn.execute("select top 1 id,title from flash where id<"&request.querystring("id")&" order by id desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个动漫：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上个动漫：</font><a href=""showflash.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 id,title from flash where id>"&request.querystring("id")&" order by id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个动漫：</font>已经没有了"   
else
Response.Write "<font color=red>·下个动漫：</font><a href=""showflash.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
RelationArt.close
Set RelationArt=Nothing 
end sub

'=================================================
'过程名：review_flash
'作  用：显示相关动漫评论
'参  数：n-显示条数；point_dj-评论开关,1-开启，0-关闭
'=================================================
sub review_flash(n)
dim temp,i,j
if point_dj="1" then
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
if n>=ubound(temp) then
j=ubound(temp)
else
j=n
end if
for i=1 to j
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"& temp(i) &"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right"">相关评论<font color=#CC0000> "&rs("reviewcount")&" </font>篇，当前显示最新的<font color=#CC0000> "&n&" </font>篇。&nbsp;&nbsp;<a href=""view.asp?action=flash&id="&rs("id")&"""> [查看更多评论] [发表我的评论]</a>&nbsp;&nbsp;</td></tr>"
Response.Write "</table>"
elseif point_dj="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">"
Response.Write "<tr><td  align=""center"">【动漫评论已关闭】"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
rs.close
set rs=nothing
end sub
%>

