web.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="网上名片"
dim founderr
founderr=false
if request.querystring("cscat_id")<>"" then
  if not isInteger(request.querystring("cscat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request.querystring("action")="" then
call head()
call menu()
sql="select * from cscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
response.write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=l></TD>" & vbCrLf
response.write "<TD height=""23"">"
do while not rs.eof
if request("cscat_id")=cstr(rs("cscat_id")) then
response.write "&nbsp;<font class=""title"">·"&rs("cscat_name")&"</font>"
else
response.write "&nbsp;<a href='?cscat_id="&rs("cscat_id")&"'>·"&rs("cscat_name")&"</a>"
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "当前没有分类&nbsp;"
rs.close
end if
dim totalcs,Currentpage,totalpages,i
sql="select * from coolsites order by cs_id DESC"
if request.querystring("cscat_id")<>"" then
sql="select * from coolsites where cscat_id="&request.querystring("cscat_id")&" order by cs_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount%>&nbsp;
</TD><TD class=r></TD></TR></TBODY></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder="0">
  <TBODY>
  <TR vAlign=top align=left>
    <TD>
<DIV class=mframe><SCRIPT type=text/javascript>lanyutable("当前共有<span><%=totalcs%></span>个名片");</SCRIPT>
 <table width="100%" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" frame=rhs>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=coolsitesperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalcs=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*coolsitesperpage<totalcs then
	       rs.move(currentpage-1)*coolsitesperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod coolsitesperpage)=0 then
      totalpages=totalcs\coolsitesperpage
   else
      totalpages=totalcs\coolsitesperpage+1
   end if
i=0
do while not rs.eof and i<coolsitesperpage
%><tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#FFFFFF"><td>
      <table width="100%" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
<TD width="37%" style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>lanyuimg("<%=rs("cs_pic")%>","showmp.asp?cs_id=<%=rs("cs_id")%>","名片名称：<%=rs("cs_name")%>&#13&#10网站地址：<%=rs("cs_url")%>&#13&#10点击次数：<%=rs("cs_count")%>次&#13&#10单位:<%=rs("cs_danwei")%>");</SCRIPT></TD>
          <td width="63%">
<table width="100%" border="0" cellspacing="5" cellpadding="2">
<tr><td width="100"><strong><font color="FFA300">名片名称：</font></strong></td>
<td bgcolor="F3F3F3" width="260"><a href='showmp.asp?cs_id=<%=rs("cs_id")%>' target="_blank" title=看看我的名片如何><%=rs("cs_name")%></a></td></tr>
<tr><td><strong><font color="FFA300">网站地址：</font></strong></td>
<td bgcolor="F3F3F3"><a href="<%=rs("cs_url")%>" target="_blank"><%=rs("cs_url")%></a></td></tr>
<tr><td><strong><font color="FFA300">加入时间：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_date")%></td></tr>
<tr><td><strong><font color="FFA300">点击次数：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_count")%></td></tr>
<tr><td><strong><font color="FFA300">简单描述：</font></strong></td>
<td bgcolor="F3F3F3"><%=rs("cs_desc")%></td></tr>
</table></td></tr>
</table>
</td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr> 
          <td bgcolor="#FFFFFF" colspan="2" height="60" align="center">没有任何名片，请管理员到后台添加！</td>
        </tr>
<%end if
end if
if not request("type")=1 then%>
<tr bgcolor="#ffffff"><td height="10"></td></tr><tr bgcolor="#ffffff"><td height="30">
<form name="form1" method="post" action="web.asp?cscat_id=<%=request.querystring("cscat_id")%>">
<TABLE align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个名片　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=web.asp?page=1&cscat_id="&request.querystring("cscat_id")&">首页</a> "
response.write "<a href=web.asp?page="&CurrentPage-1&"&cscat_id="&request.querystring("cscat_id")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=web.asp?page="&CurrentPage+1&"&cscat_id="&request.querystring("cscat_id")
response.write ">下一页</a> <a href=web.asp?page="&totalpages&"&cscat_id="&request.querystring("cscat_id")&">尾页</a>"
end if
%>
 <IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></TD>
</TR>
</FORM>
</table>     
      <%end if%>
<tr align="center"><td height="1" colspan="3"></td></tr></table><br>
</TD><TD width=5></TD><TD width=190>
<DIV class=member>
<SCRIPT type=text/javascript>lanyutabletop("点 击 排 行","mr");</SCRIPT>
<TABLE align=center border=0>
<%sql="SELECT top "&topcoolsitenum&" * FROM coolsites ORDER by cs_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td style="PADDING-RIGHT: 9px; PADDING-LEFT: 8px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>lanyuimg("<%=rs("cs_pic")%>","web.asp?action=go&cs_id=<%=rs("cs_id")%>","名片名称：<%=rs("cs_name")%>&#13&#10网站地址：<%=rs("cs_url")%>&#13&#10点击次数：<%=rs("cs_count")%>次",true,false);</SCRIPT></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有名片<br><br></div><%end if%></table>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("站 长 推 荐","mr");</SCRIPT>
<TABLE align=center border=0>
<%sql="SELECT top "&bestcoolsite&" * FROM coolsites where isbest = 1 ORDER by cs_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr><td style="PADDING-RIGHT: 9px; PADDING-LEFT: 8px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>lanyuimg("<%=rs("cs_pic")%>","web.asp?action=go&cs_id=<%=rs("cs_id")%>","名片名称：<%=rs("cs_name")%>&#13&#10网站地址：<%=rs("cs_url")%>&#13&#10点击次数：<%=rs("cs_count")%>次",true,false);</SCRIPT></td></tr>
              <%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>当前还没有名片<br><br></div><%end if%></table>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("本 站 声 明","mr");</SCRIPT>
<div style="LINE-HEIGHT: 180%">&nbsp;&nbsp;本站的部分酷站来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请<a href='mailto:<%=webmail%>' Title='给站长写信'><font color=green>联系我们</font></a>，我们将马上进行整理，谢谢。</div>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>

          </td>
        </tr>
      </table>
<%
rs.close
set rs=nothing
call footer()
end if
if request.querystring("action")="go" then
if request.querystring("cs_id")<>"" then
  if not isInteger(request.querystring("cs_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
dim csid
csid=cint(request.querystring("cs_id"))
sql="select cs_count,cs_url from coolsites where cs_id="&csid
set rs=conn.execute(sql)
dim csurl
csurl=rs("cs_url")
sql="UPDATE coolsites SET cs_count = cs_count + 1 where cs_id="&csid
conn.execute(sql)
rs.close
set rs=nothing
response.redirect csurl
end if
%>