<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<!-- #include file="skin.asp" -->
<%
dim pageurl,nummer,sqladd,page,rssum,thepages,viewpage,keyword,sea_type,id
sk_jt="fk0"
rssum=0:nummer=objv7.web_var(web_num,2):thepages=0:viewpage=1
id=trim(request.querystring("id"))
if not(isnumeric(id)) then id=0
index_url="vouch"
tit_fir=objv7.format_menu(web_menu,index_url)
call cid_sid()

sub vouch_left()
  dim temp1,vjt:vjt=img_skins()
  temp1=vbcrlf&"<table border=0 width='98%' cellspacing=0 cellpadding=4 align=center>" & _
	vbcrlf&"<tr><td height=5 width='48%'></td><td width='52%'></td></tr>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='gallery.asp?action=paste'>网站贴图</a></td><td>"&vjt&"<a href='user_put.asp?action=gallery'>上传图片</a></td></tr>" & _
	vbcrlf&"<tr><td colspan=2 align=center><table border=0 width='80%'>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='gallery.asp?action=paste'>精彩贴图</a></td></tr>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='gallery.asp?action=flash'>精彩FLASH</a></td></tr>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='gallery.asp?action=film'>精彩视频</a></td></tr>" & _
	vbcrlf&"</table></td></tr>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='website.asp'>网站推荐</a></td><td>"&vjt&"<a href='user_put.asp?action=website'>推荐网站</a></td></tr>" & _
	vbcrlf&"</table>"
  response.write kong&main_bar(0,"精彩推荐",temp1,0,"100%","")&ukong
end sub

sub web_site_type()
%>
<table border=0>
<tr height=5><td width='3%'></td><td width='77%'></td><td width='30%'></td></tr>
<tr>
<td colspan=2><%response.write img_small("jt0")%><b><a href='javascript:;' onclick="javsscript:open_view('?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=view&id=<%response.write nid%>',1);"><%response.write name%></a></b></td>
<td rowspan=2 align=center><script language=javascript>pic_url('<%response.write rs("pic")%>',1);</script></td>
</tr>
<tr><td></td><td>
  <table border=0 width='98%'>
  <tr><td width='18%'></td><td width='30%'</td><td width='18%'></td><td width='34%'></td></tr>
  <tr><td>国家地区：</td><td><%response.write rs("country")%></td><td>站点语言：</td><td><%response.write rs("lang")%></td></tr>
  <tr><td>推 荐 人：</td><td><%response.write format_user_view(rs("username"),1,"")%></td><td>添加时间：</td><td><%response.write objv7.time_type(rs("tim"),8)%></td></tr>
  <tr><td>站点属性：</td><td><%
if rs("isgood")=true then
  response.write "<font class=red_3>推荐</font>"
else
  response.write "普通"
end if
  %></td><td>浏览人气：</td><td class=red><%response.write rs("counter")%></td></tr>
  <tr><td>网站地址：</td><td colspan=3><a href='javascript:;' onclick="javsscript:open_view('?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=view&id=<%response.write nid%>',1);"><%response.write url%></a></td></tr>
  <tr><td colspan=2>网站介绍：</td><td colspan=2 align=center><a href='javascript:;' onclick="javascript:window.external.AddFavorite('<%response.write url%>','<%response.write name%>')" style='target: ' _self?>〖加入收藏夹〗</a></td></tr>
  <tr><td colspan=4><table border=0 width='94%' align=center><tr><td><%response.write objv7.code_html(rs("remark"),1,0)%></td></tr></table></td></tr>
  </table>
</td></tr></table>
<%
end sub

sub film_view(ispic,width,height)
  dim file_type:file_type=right(ispic,4)
  if instr(1,file_type,".")>0 then
    file_type=right(file_type,len(file_type)-instr(1,file_type,"."))
  else
    file_type="mms"
  end if
  file_type=lcase(file_type)
  if lcase(left(ispic,3))="mms" then file_type="mms"
  select case file_type
  case "rm","ram","rmvb","avi"
%>
<object id="video2" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=530 height=400>
  <param name="_ExtentX" value="11906">
  <param name="_ExtentY" value="8996">
  <param name="AUTOSTART" value="-1">
  <param name="SHUFFLE" value="0">
  <param name="PREFETCH" value="0">
  <param name="NOLABELS" value="0">
  <param name="SRC" value="<%response.write objv7.url_true(objv7.web_var(web_upload,1),ispic)%>">
  <param name="CONTROLS" value="ImageWindow">
  <param name="CONSOLE" value="Clip1">
  <param name="LOOP" value="0">
  <param name="NUMLOOP" value="0">
  <param name="CENTER" value="0">
  <param name="MAINTAINASPECT" value="0">
  <param name="BACKGROUNDCOLOR" value="#000000">
  <embed src="4.rpm" type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ImageWindow" width=530 height=400 autostart="false"></embed> 
</object>
<object id="video1" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width=530 height=60>
  <param name="_ExtentX" value="11906">
  <param name="_ExtentY" value="1588">
  <param name="AUTOSTART" value="-1">
  <param name="SHUFFLE" value="0">
  <param name="PREFETCH" value="0">
  <param name="NOLABELS" value="0">
  <param name="CONTROLS" value="ControlPanel,StatusBar">
  <param name="CONSOLE" value="Clip1">
  <param name="LOOP" value="0">
  <param name="NUMLOOP" value="0">
  <param name="CENTER" value="0">
  <param name="MAINTAINASPECT" value="0">
  <param name="BACKGROUNDCOLOR" value="#000000">
  <embed type="audio/x-pn-realaudio-plugin" console="Clip1" controls="ControlPanel,StatusBar" width=530 height=60 autostart="false"></embed>
</object>
<% case "asf","wmv","mpg","mpeg","wma","asx","mms" %>
<object id="csk3000.com.mPlayer" width=544 height=440 classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6" type="application/x-oleobject" standby="正在载入 Windows Media Player 播放流 ...">
  <param name="URL" value="<%response.write objv7.url_true(objv7.web_var(web_upload,1),ispic)%>">
  <param name="Album" value="csk3000.com"/>
  <param name="rate" value="1">
  <param name="balance" value="0">
  <param name="currentPosition" value="0">
  <param name="defaultFrame" value="">
  <param name="playCount" value="100">
  <param name="autoStart" value="-1">
  <param name="currentMarker" value="0">
  <param name="invokeURLs" value="-1">
  <param name="baseURL" value="">
  <param name="volume" value="100">
  <param name="mute" value="0">
  <param name="uiMode" value="full">
  <param name="stretchToFit" value="0">
  <param name="windowlessVideo" value="0">
  <param name="enabled" value="-1">
  <param name="enableContextMenu" value="0">
  <param name="fullScreen" value="0">
  <param name="SAMIStyle" value="">
  <param name="SAMILang" value="">
  <param name="SAMIFilename" value="">
  <param name="captioningID" value="">
</object>
<%
  end select
end sub
%>