config_vouch.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<!-- #include file="skin.asp" -->
<%

dim pageurl,nummer,sqladd,page,rssum,thepages,viewpage,keyword,sea_type,upload_file,id,pic_width,pic_height
pic_width=web_var(web_num,7):pic_height=web_var(web_num,8):upload_file=web_var(web_upload,1)
rssum=0:nummer=web_var(web_num,2):thepages=0:viewpage=1
sk_bar=11
sk_class="end"
id=trim(request.querystring("id"))
if not(isnumeric(id)) then id=0
index_url="vouch"
tit_fir=format_menu(index_url)
call cid_sid()

sub vouch_left(vjt,vjt2)
  dim temp1
  if vjt<>"" then vjt=img_small(vjt)
  if vjt2<>"" then vjt2=img_small(vjt2)
  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>"&vjt2&"<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&"<tr><td>"&vjt&"<a href='gallery.asp?action=logo'>精彩LOGO</a></td></tr>" & _
	vbcrlf&"<tr><td>"&vjt&"<a href='gallery.asp?action=baner'>精彩BANNER</a></td></tr>" & _
	vbcrlf&"</table></td></tr>" & _
	
	vbcrlf&"<tr><td>"&vjt&"<a href='website.asp'>网站推荐</a></td><td>"&vjt2&"<a href='user_put.asp?action=website'>推荐网站</a></td></tr>" & _
	vbcrlf&"</table>"
  call vouch_skin(format_menu(index_url),temp1,"",1)
end sub

sub vouch_skin(t1,t2,t3,t4)
  if t4=1 then response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&t1&"</b></font>",t2,sk_bar,0,0,"||",t3)
  if t4=1 then response.write "</td></tr></table>"
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='?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=view&id=<%response.write nid%>' target=_blank><%response.write name%></a></b></td>
<td rowspan=2 align=center><img src='<% response.write upload_file&rs("pic") %>' border=0 width=<%response.write pic_width%> height=<%response.write pic_height%>></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 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='?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=view&id=<%response.write nid%>' target=_blank><%response.write url%></a></td></tr>
  <tr><td colspan=2>网站介绍：</td><td colspan=2 align=center><a href="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 code_html(rs("remark"),1,0)%></td></tr></table></td></tr>
  </table>
</td></tr></table>
<%
end sub

sub gallery_new(gtype,n_num)
  dim rs,sql,pic_temp,pic,name
  response.write "<table border=0>"
  sql="select top "&n_num&" id,name,pic,c_id,s_id from gallery where types='"&gtype&"' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    pic=rs("pic"):name=rs("name")
    select case gtype
    case "paste"
      pic_temp="<table border=0><tr><td align=center><a href='?action=view&c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&id="&rs("id")&"'><img src='"&upload_file&pic&"' border=0 width="&pic_width&" height="&pic_height&"></a></td></tr><tr><td align=center>"&code_html(name,1,10)&"</td></tr></table>"
      response.write "<td width="&pic_width+30&" height="&pic_height+50&">"&format_k(pic_temp,1,5,pic_width+10,pic_height+30)&"</td>"
    case "logo"
      response.write "<td width=98><table border=0><tr><td align=center><img src='"&upload_file&pic&"' border=0 width=88 height=31></td></tr><tr><td align=center><font title='"&name&"'>"&code_html(name,1,10)&"</font></td></tr></table></td>"
    end select
    rs.movenext
  loop
  rs.close:set rs=nothing
  response.write "</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,"."))
  file_type=lcase(file_type)
  if lcase(left(ispic,3))="mms" then file_type="mms"
  select case file_type
  case "rm","ram","rmvb"
%>
<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 url_true(upload_file,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="Joekoe.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 url_true(upload_file,ispic)%>">
  <param name="Album" value="Joekoe.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
%>