inc.asp

图文管理。1,新闻动态 2,网址导航(含有60个著名设计网址) 3,图片展示 4,会员注册管理等

<%
'作者:邱乾城,网名:Kellon,QQ:114039169
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：gg                      ◇
'◇功  能：首页最新公告            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub gg()
sql="select top "&indexgg&" * from gg order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<p>"&rs("gg")&"</p>"
Response.Write "<p>&nbsp;</p>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<font color='#000000'>对不起！目前没有任何公告！</font>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：link                    ◇
'◇功  能：首页logo链接            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub link()
sql="select top "&indexlink&" * from link where  logo<>'null' and best=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
Response.Write "<li><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></li>"
rs.movenext
loop
end sub


'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：pic                     ◇
'◇功  能：首页最新作品展示        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub pic()
sql="select top "&indexpic&" * from pic where best=true order by pic DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<li><a href='showpic.asp?id="&rs("id")&"'><img border='0' src='"&rs("pic")&"' width='142' height='200' alt='"&rs("title")&"---"&rs("user")&"'/></a></li>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "对不起！目前没有任何作品展示！"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：news                    ◇
'◇功  能：首页最新动态            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub news()
sql="select top "&indexnews&" * from news where best=true order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<li><a href='shownews.asp?id="&rs("id")&"'>"&rs("title")&"&nbsp;&nbsp; ["&rs("date")&"]</a></li>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<tr><td>&nbsp;&nbsp;<font color='#000000'>对不起！目前没有任何设计动态！</font></td></tr>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：newspic                 ◇
'◇功  能：首页最新动态图片        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub newspic()
sql="select top "&indexnewspic&" * from news where  pic<>'images/nodown.gif' and pic<>'' and best=true order by id DESC" 
    set rs=server.createobject("adodb.recordset")
   rs.open sql,cn,1,1
   do while not rs.eof
Response.Write "<a href='shownews.asp?id="&rs("id")&"'><img src='"&rs("pic")&"' border='0' alt='点击看详细信息' /></a>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "&nbsp;&nbsp;<font color='#000000'>对不起！目前没有任何设计动态图片！</font>"
end if
rs.close
set rs=nothing
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：union                   ◇
'◇功  能：首页文字联盟            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub union()
sql="select top "&indexunion&" * from ax_user where dname<>'' and best=true order by id DESC" 
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
Response.Write "<li><a href='showunion.asp?id="&rs("id")&"'>"&rs("dname")&"</a>&nbsp;&nbsp;"&rs("regTime")&"</li>"
rs.movenext
loop
rs.close
set rs=nothing
end sub


'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：union                   ◇
'◇功  能：首页文字联盟            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub userlogin()
%>
<form id="form1" name="form1" action="usermg.asp" method="post">
		    用户名：
		      <input 
      name="name" class="input"  id="name" size="12" maxLength="16" />
			<br/>
		        密__码：
		        <input name="pwd" 
      type="password" class="input"  id="pwd" size="12" maxLength="16" />
		        <br />
		        <br />	        
	          <input name="Submit2" type="button" class="input" onClick="MM_goToURL('parent','reg.asp');return document.MM_returnValue" value="注册联盟用户" />
	          &nbsp;&nbsp;&nbsp;&nbsp;
	          <input name="Submit" type="submit" class="input" value="提交" />
		  </form>
<%
end sub
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：websearch               ◇
'◇功  能：首页搜索等页面搜索      ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub websearch()
%>
	<FORM id="form2" name="form2" action="search.asp" method="post">
	栏__目：<SELECT class="input" name="search">
                  <OPTION value="搜索动态" selected>搜索设计动态</OPTION>
                  <OPTION value="搜索图片">搜索设计图片</OPTION>
                  <OPTION value="搜索会员">搜索联盟会员</OPTION>
				  <OPTION value="搜索下载">搜索下载资源</OPTION>
				  <OPTION value="搜索文摘">搜索设计文摘</OPTION></SELECT>
	<BR/>
	方__式：<SELECT class="input" name="mode">
	             <OPTION value="按标题" selected>标题方式搜索</OPTION>
				 </SELECT></laber>
				 <BR/>
				关键字：<INPUT class="input" maxLength="50" size="14" name="key">
				 <br/><br/>
				 <INPUT class="input" type="submit" value="搜 索" name="Submit3">&nbsp;&nbsp;&nbsp;
				 <INPUT class="input" type="reset" value="清 空" name="Submit4">
		  </FORM>

<%
end sub

'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：webs                    ◇
'◇功  能：首页显示网址导航        ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇

sub webs()
sql="select top "&indexwebs&" * from web where webname<>'' and best=true" 
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1