config_other.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

    temp1=temp1&vbcrlf&"</tr>"
  loop
  rs.close
  temp1=temp1&"</table></marquee></td></tr></table>"
  call left_type(temp1,"links",1)
end sub

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>"&vjt&"<a href='flash.asp?action=flash''>精彩动画</a></td><td>"&vjt2&"<a href='user_put.asp?action=flash'>推荐动画</a></td></tr>" & _
 vbcrlf&"<tr><td>"&vjt&"<a href='business.asp?action=business'>精彩交易</a></td><td>"&vjt2&"<a href='user_put.asp?action=business'>推荐源码</a></td></tr>" & _
 vbcrlf&"<tr><td>"&vjt&"<a href='website.asp?action=website'>网站推荐</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=end><b>"&t1&"</b></font>",t2,14,0,0,"||",t3)
  if t4=1 then response.write "</td></tr></table>"
end sub

sub main_gallery_pic(nnhead,dsql,nt,n_num,c_num,w,h,p_num)
  dim sk_bar,sk_class,temp1,pic_temp,nid,cid,sid,name,uname,tim,pic,r_num,j,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
  r_num=int(n_num/p_num)
  if n_num mod p_num > 0 then r_num=r_num+1
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>"
  sql="select top "&n_num&" * from gallery where hidden=1 and types='"&nt&"'"&dsql
  select case nt
  case "paste"
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新贴图" 
  case "flash"
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新Flash"
  end select
  set rs=conn.execute(sql)
  'do while not rs.eof
    for i = 1 to r_num
      temp1=temp1&"<tr align=center valign=top>"
        for j = 1 to p_num
        if rs.eof then exit for
            name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim")
         pic=rs("pic")
 if nt="flash" then
    pic_temp="<table border=0><tr><td align=center><a href='gallery.asp?types=view&action="&nt&"&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&"><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width="&w&" height="&h&" alt='Flash名称："&code_html(name,1,0)&"><br>发 布 人："&rs("username")&"<br>整理时间："&time_type(tim,33)&"'></a></td></tr>" & _
      vbcrlf&"<tr><td align=center class=bw><a href='gallery.asp?types=view&action="&nt&"&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,c_num)&"</b></a></td></tr></table>"
 else
    pic_temp="<table border=0><tr><td align=center><a href='gallery.asp?types=view&action="&nt&"&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&"><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width="&w&" height="&h&" alt='图片名称："&code_html(name,1,0)&"><br>发 布 人："&rs("username")&"<br>整理时间："&time_type(tim,33)&"'></a></td></tr>" & _
      vbcrlf&"<tr><td align=center class=bw><a href='gallery.asp?types=view&action="&nt&"&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,c_num)&"</b></a></td></tr></table></td>"
 end if
    temp1=temp1&"<td height="&h+50&">"&format_k(pic_temp,1,5,w+10,h+30)&"</td>"
    rs.movenext
    next
   temp1=temp1&"</tr>" 
  next
  'loop
  temp1=temp1&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub main_flash_picv(nnhead,dsql,nt,n_num,c_num,w,h)
  dim sk_bar,sk_class,temp1,temp2,nid,cid,sid,name,uname,tim,pic,spic,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
  sql="select top "&n_num&" * from flash where hidden=1 and types='"&nt&"'"&dsql
  select case nt
  case "flash"
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新Flash"
  end select
  set rs=conn.execute(sql)
  do while not rs.eof
    name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim")
 pic=rs("pic"):spic=rs("spic")
    temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'>"
 if nt="flash" then
 temp2="<table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='flash.asp?types=view&action=flash&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&"><img src='"&url_true(web_var(web_upload,1),spic)&"' border=0 width="&w&" height="&h&"></a></td></tr>" & _
        "<tr><td align=center class=blue><b>"&code_html(name,1,10)&"</b></td></tr>" & _
               "<tr><td align=center>"&m_unit&"：<font class=red_3>"&rs("emoney")&"</font>  人气：<font class=red>"&rs("counter")&"</font></td></tr>" & _
        "<tr><td align=center>"&power_pic(0,rs("power"),0)&"</td></tr>" & _
   "</table>"
 temp1=temp1&vbcrlf&format_k(temp2,1,5,w+10,h+30)&"</td>"
 else
 end if
    rs.movenext
  loop
  temp1=temp1&"</tr></table>"
  response.write kong&table1%>
<tr<%response.write table2%>><td class=end> <%response.write img_small(us)%>  精彩动画</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr><td align=center><% response.write temp1%></td></tr>
  </table>
</td></tr>
</table>
<%
end sub

sub main_web_sitenew(nh,n_jt,nnhead,nmore,nsql,nt,n_num,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&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热门站点"
  case "good"
    sql=sql&" and isgood=true 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"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr onmouseover=""javascript:this.bgColor='"&c1&"';"" onmouseout=""javascript:this.bgColor='"&c2&"';""><td class=bw>"&n_jt&"<a href='website.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&action=view&id="&rs("id")&"' target=_blank 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&"<tr><td height=1 background='images/bg_dian.gif'></td></tr>"
    rs.movenext
  loop
    temp1=temp1&"</tr></table>"
  response.write kong&table1%>
<tr<%response.write table2%>><td class=end> <%response.write img_small(us)%>  最新站点</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr><td align=center><% response.write temp1%></td></tr>
  </table>
</td></tr>
</table>
<%
end sub

sub main_web_sitehot(nh,n_jt,nnhead,nmore,nsql,nt,n_num,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&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热门站点"
  case "good"
    sql=sql&" and isgood=true 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"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr onmouseover=""javascript:this.bgColor='"&c1&"';"" onmouseout=""javascript:this.bgColor='"&c2&"';""><td class=bw>"&n_jt&"<a href='website.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&action=view&id="&rs("id")&"' target=_blank 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&"<tr><td height=1 background='images/bg_dian.gif'></td></tr>"
    rs.movenext
  loop
    temp1=temp1&"</tr></table>"
  response.write kong&table1%>
<tr<%response.write table2%>><td class=end> <%response.write img_small(us)%>  热门站点</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr><td align=center><% response.write temp1%></td></tr>
  </table>
</td></tr>
</table>
<%
end sub

sub main_web_sitegood(nh,n_jt,nnhead,nmore,nsql,nt,n_num,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&" id,c_id,s_id,name,username,url,tim,isgood,counter from website where hidden=true"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热门站点"
  case "good"
    sql=sql&" and isgood=true 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"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr onmouseover=""javascript:this.bgColor='"&c1&"';"" onmouseout=""javascript:this.bgColor='"&c2&"';""><td class=bw>"&n_jt&"<a href='website.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&action=view&id="&rs("id")&"' target=_blank 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&"<tr><td height=1 background='images/bg_dian.gif'></td></tr>"
    rs.movenext
  loop
    temp1=temp1&"</tr></table>"
  response.write kong&table1%>
<tr<%response.write table2%>><td class=end> <%response.write img_small(us)%>  推荐站点</td></tr>
<tr<%response.write table3%>><td align=center>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr><td align=center><% response.write temp1%></td></tr>
  </table>
</td></tr>
</table>
<%
end sub


sub main_shop()
%>
<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_view1()&"</td>"
    rs.movenext
  loop
  rs.close
%></tr></table><%
end sub

function shop_view1()
 dim w_h,nid:w_h=" width=120 height=90":nid=rs("id")
  shop_view1=vbcrlf&"<table border=0 width='90%' cellspacing=0 cellpadding=0 class=tf>" & _
	    vbcrlf&"<tr><td height=5></td></tr>" & _
	    vbcrlf&"<tr><td colspan=2 align=center><a href='shop_view.asp?id="&nid&"'><img src='"&url_true(web_var(web_upload,1),rs("smallimg"))&"' border=0"&w_h&"></a></td></tr>" & _
	    vbcrlf&"<tr><td colspan=2 align=center height=25><a href='shop_view.asp?id="&nid&"' class=blue><b>"&rs("name")&"</b></a></td></tr>" & _
    vbcrlf&"</table>"
end function

%>