config_other.asp

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

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

index_url="main"
tit_fir=format_menu(index_url)

dim us,table1,table2,table3,table4
us="fk2"
table1=format_table(1,3)
table2=format_table(3,2)
table3=format_table(3,1)
table4=format_table(3,5)

sub user_data_top(utt,ijt,sh,n_num)
  '积分排行	integral
  '发贴排行	bbs_counter
  '财富排行	emoney
  dim temp1
  temp1=vbcrlf&"<table border=0 width='99%' cellspacing=2 cellpadding=0 align=center class=tf><tr height=0><td width='75%'></td><td width='25%'></td></tr>"
  sql="select top "&n_num&" username,"&utt&" from user_data order by "&utt&" desc,id"
  set rs=conn.execute(sql)
  do while not rs.eof
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&img_small(ijt)&format_user_view(rs("username"),1,"")&"</td><td align=center class=red_3>"&rs(utt)&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  call left_type(temp1,utt,sh)
end sub

sub vote_type(t1,t2,t3,t4)
  call left_type(kong&"<script language=javascript src='vote.asp?id="&t1&"&types="&t2&"&mcolor="&t3&"&bgcolor="&t4&"'></script>","vote",1)
end sub

sub left_type(ltv,pn,ltt)
  if ltt=1 then response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"
  response.write kong&format_bar("<img src='images/"&web_var(web_config,5)&"/left_"&pn&".gif' border=0>",ltv,sk_bar,2,"","|"&web_var(web_color,6)&"|","")
  if ltt=1 then response.write "</td></tr></table>"
end sub

sub main_down_pic(nnhead,dsql,nt,n_num,c_num)
  dim temp1,nid,name,nhead:nhead=nnhead
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
  sql="select top "&n_num&" id,name,tim,pic from down where hidden=1"&dsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热点排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="酷软推荐"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新软件"
  end select
  set rs=conn.execute(sql)
  do while not rs.eof
    name=rs("name"):nid=rs("id")
    temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='down_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a></td></tr>" & _
	  vbcrlf&"<tr><td align=center class=bw><a href='down_view.asp?id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,0)&"</b></a></td></tr></table></td>"
    rs.movenext
  loop
  temp1=temp1&"</tr></table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub main_down(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt)
  dim temp1,nid,name,tim,counter,nhead:nhead=nnhead
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num+n_m&" id,name,username,tim,counter from down where hidden=1"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="下载排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="软件推荐"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="软件更新"
  end select
  set rs=conn.execute(sql)
  if n_m>0 then rs.move(n_m)
  do while not rs.eof
    name=rs("name"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&n_jt&"<a href='down_view.asp?id="&rs("id")&"'"&atb&" title='软件名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>下载人次："&counter&"<br>整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a>"
    if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&",<font class=blue>"&counter&"</font>")
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||",nmore)
end sub

sub main_news(n_jt,n_num,c_num,et,timt)
  dim temp1,topic
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num&" id,topic,tim,counter from news where hidden=1 order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='news_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
    if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&format_bar("<a href='news.asp'><b><font class=end>"&format_menu("news")&"</font></b></a>",temp1,sk_bar,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub

sub main_article(n_jt,n_num,c_num,et,timt)
  dim temp1,topic
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num&" id,topic,tim,counter from article where hidden=1 order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='article_view.asp?id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"
    if et>-1 then temp1=temp1&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("counter")&"</font>")
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&format_bar("<a href='article.asp'><b><font class=end>"&format_menu("article")&"</font></b></a>",temp1,sk_bar,0,0,"|"&web_var(web_color,1)&"|100","")&"</td>"
end sub

sub main_forum(n_jt,n_num,c_num,et,timt)
  dim temp1,topic
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num&" forum_id,id,topic,tim,counter,re_counter from bbs_topic order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"'"&atb&" title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("re_counter")&"</font>|<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&format_bar("<a href='forum.asp'><b><font class=end>"&format_menu("forum")&"</font></b></a>",temp1,sk_bar,0,0,"|"&web_var(web_color,1)&"|80","")&"</td>"
end sub

sub main_update_view()
  dim temp1,topic
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top 1 * from bbs_cast where sort='news' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td class=htd><marquee scrollamount=2 direction=up width='100%' height='120' onMouseOver=this.stop() onMouseOut=this.start()><center><a href='update.asp?action=news&id="&rs("id")&"'>"&code_html(topic,1,0)&"</center></a>"&code_jk(rs("word"))&"</marquee></td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"<tr><td><table border=0 width='100%'><tr><td class=gray>[ <a href='update.asp?action=news'>更多网站更新</a> ]<td class=gray align=right>[ <a href='update.asp?action=forum'>更多论坛公告</a> ]</td></tr></table></td></tr></table>"
  response.write kong&format_bar("<a href='update.asp'><b><font class=end>网站更新</font></b></a>",temp1,sk_bar,0,0,"|"&web_var(web_color,1)&"|80","")&"</td>"
end sub

sub main_update(n_jt,n_num,c_num,et,timt)
  dim temp1,topic
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num&" id,topic,tim from bbs_cast where sort='news' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='update.asp?action=news&id="&rs("id")&"' title='"&code_html(topic,1,0)&"'>"&code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&time_type(rs("tim"),timt)&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&format_bar("<a href='update.asp'><b><font class=end>网站更新</font></b></a>",temp1,sk_bar,0,0,"|"&web_var(web_color,1)&"|80","")&"</td>"
end sub

'sub news_fpic(fsql,t_num,w_num,tt)
 ' dim topic,temp1,rs,sql,nid,sk_bar,sk_class
 ' atb=" target=_blank":sk_bar=11:sk_class="end"
 ' sql="select top 1 id,topic,comto,word,pic,tim from news where hidden=1 and istop=1 and ispic=1"&fsql&" order by id desc"
 ' set rs=conn.execute(sql)
 ' if not(rs.eof and rs.bof) then
'    nid=rs("id"):topic=rs("topic")
'    temp1="<table border=0 width='100%' class=tf>" & _
'	  vbcrlf&"<tr align=center><td width='32%'>" & _
'	  vbcrlf&"  <table border=0>" & _
'	  vbcrlf&"  <tr><td align=center><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 title='"&code_html(rs("topic"),1,0)&"' width="&web_var(web_num,7)&" height="&web_var(web_num,8)&"></td></tr>" & _
'	  vbcrlf&"  <tr><td height=25 align=center class=btd><a href='news_view.asp?id="&nid&"' target=_blank class=red_3>"&code_html(rs("topic"),1,t_num)&"</a></td></tr>" & _
'	  vbcrlf&"  </table>" & _
'	  vbcrlf&"</td><td width='68%'>" & _
'	  vbcrlf&"  <table border=0 width='100%' height='100%'>" & _
'	  vbcrlf&"  <tr><td class=htd><a href='news_view.asp?id="&nid&"' target=_blank>"&code_html(rs("word"),1,w_num)&"</a></td></tr>" & _
'	  vbcrlf&"  <tr><td height=25 class=gray align=right>（"&time_type(rs("tim"),tt)&"&nbsp;摘自:"&rs("comto")&"）&nbsp;</td></tr>" & _
'	  vbcrlf&"  </table>" & _
'	  vbcrlf&"</td></tr></table>"
'  end if
 ' rs.close
 ' response.write kong&format_bar("<font class="&sk_class&"><b>今日图片新闻</b></font>",temp1,sk_bar,0,0,"||","")
'end sub

sub main_shop()
  dim sql,rs
%><table border=0 width='98%' cellspacing=0 cellpadding=0><tr valign=top><%
  sql="select top 3 id,name,serial,brand,stock,smallimg,price_1,price_2,remark_1 from product where isgood=1 and hidden=1 order by tim desc,id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    response.write vbcrlf&"<td width='33%' align=center>"&shop_view()&"</td>"
    rs.movenext
  loop
  rs.close:set rs=nothing
%></tr></table><%
end sub

sub links_main(lt,nummer)
  dim temp1,nname
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=0>"
  sql="select * from links where sort='"&lt&"' and hidden=1 order by orders"
  set rs=conn.execute(sql)
  do while not rs.eof
    temp1=temp1&vbcrlf&"<tr align=center height=40>"
    for i=1 to nummer
      if rs.eof then exit for
      temp1=temp1&vbcrlf&"<td width='16%'><a href='"&rs("url")&"' target=_blank>"
      if lt="txt" then
        temp1=temp1&code_html(rs("nname"),1,0)
      else
        temp1=temp1&"<img src='"&rs("pic")&"' border=0 width=88 height=31 title='"&code_html(rs("nname"),1,0)&"'>"
      end if
      temp1=temp1&"</a></td>"
      rs.movenext
    next
    temp1=temp1&vbcrlf&"</tr>"
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write temp1
end sub

sub web_search(wt)
  if wt=1 then response.write ukong
%>
  <table border=0>
  <form action='search.asp' method=get>
  <tr>
  <td><%response.write img_small("new")%>站内搜索：</td>
  <td>&nbsp;<input type=text name=keyword value='' size=20 maxlength=20></td>
  <td>&nbsp;&nbsp;<select name=sea_type>
<option value='forum'>论坛</option>
<option value='news'>新闻</option>
<option value='article'>文栏</option>
<option value='down'>下载</option>
<option value='paste'>图片</option>
<option value='flash'>Flash</option>
<option value='website'>网站</option>
</select>&nbsp;&nbsp;</td>
  <td><input type=checkbox name=celerity value='yes'></td>
  <td>快速搜索&nbsp;&nbsp;</td>
  <td valign=top><input type=image src='images/small/web_sea.gif' border=0></td>
  <td>&nbsp;&nbsp;<a href='search.asp?action=help' title='多功能搜索'>搜索帮助</a></td>
  </tr>
  </form>
  </table>
<%
end sub

sub news_fpic(d_num,t_num,w_num,nft)
  dim temp1,topic,pic,tt,rs,sql,wnum,ispic,ooid
  wnum=w_num
  sql="select top 1 id,topic,pic from news where hidden=1 and istop=1 and ispic=1 order by id desc"
  set rs=conn.execute(sql)
  if not(rs.eof) then
    ooid=rs("id")
    if nft=1 then oid=ooid
    pic="<table border=0><tr><td align=center><a href='news_view.asp?id="&ooid&"'><img src='"&url_true(web_var(web_upload,1),rs("pic"))&"' border='0' width="&web_var(web_num,7)&" height="&web_var(web_num,8)&"></a></td></tr><tr><td align=center><a href='news_view.asp?id="&ooid&"'>"&code_html(rs("topic"),1,d_num)&"</a></td></tr></table>"
  end if
  rs.close
  sql="select top "&t_num&" id,topic,pic,ispic from news where hidden=1 and istop=1"
  if ooid<>0 then sql=sql&" and id<>"&ooid
  sql=sql&" order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    if rs("ispic")=true then wnum=wnum-2:ispic=sk_img
    temp1=temp1&"<tr><td height="&space_mod&">"&img_small("jt0")&"<a href='news_view.asp?id="&rs("id")&"'>"&code_html(topic,1,wnum)&"</a>"&ispic&"</td></tr>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1="<table border=0 width='100%'><tr>" & _
        "<td width='30%' align=center>"&pic&"</td>" & _
        "<td width='70%'><table border=0>"&temp1&"</table></td>" & _
        "</tr></table>"
 response.write kong&format_bar("<font class="&sk_class&"><b>今日图片新闻</b></font>",temp1,sk_bar,0,0,"||","")
end sub
%>