Link.asp
资源名称:7.rar [点击查看]
上传用户:lfyh0123
上传日期:2020-11-04
资源大小:200k
文件大小:9k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#include file="wapls_up.asp"-->
- <%
- '==================================
- '=文 件 名:Link.asp
- '=适用版本:蓝色世纪WAP网站管理系统(CMS)V1.1
- '=官方版权:http://www.songfr.cn
- '=文件功能:网站合作链接
- '=文件作者:蓝色阳光
- '=发行时间:2007-02-01
- '==================================
- IF Request.QueryString("Action")="view" Then
- call view
- elseIF Request.QueryString("Action")="add" Then
- call add
- elseIF Request.QueryString("Action")="save" Then
- call save
- elseIF Request.QueryString("Action")="link" Then
- call link
- elseIF Request.QueryString("Action")="sm" Then
- call sm
- else
- call main
- End IF
- '========网站的链接列表=======
- Function main
- od=TRim(Request("od"))
- if not isnumeric(od) then od="1"
- if od=1 then
- txtid="link_date"
- txt="贡献点排行"
- else
- txtid="link_id"
- txt="新站点排行"
- end if
- dim sql
- %>
- <card id="index" title="<%=txt%>">
- <p align="<%=const1%>">
- <%
- if len(mb_link)>1 then
- response.write ""&outHTM(mb_link)&"<br/>"
- end if
- %>
- <a href="Link.asp?od=1">贡献点排行</a>|<a href="Link.asp?od=2">新站点排行</a><br/>
- <%
- Set Rs = Server.CreateObject("Adodb.Recordset")
- Sql = "SELECT * FROM wapls_link order by "&txtid&" desc"
- Rs.Open Sql,conn,1,1
- if not (rs.bof and rs.eof) then
- page = Request("Page")
- Rs.PageSize = pagenum '一页显示记录
- IF Not IsEmpty(Page) Then
- IF Not IsNumeric(Page) Then '判断Page是否为数字
- Page=1
- Else
- Page=Cint(Page) '转换成短整形Integer
- End IF
- IF Page > Rs.PageCount Then
- Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
- ElseIF Page <= 0 Then
- Rs.AbsolutePage = 1 '设置当前页等于第一页
- Else
- Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
- End IF
- Else
- Rs.AbsolutePage = 1
- End IF
- Page = Rs.AbsolutePage
- For i=1 to Rs.PageSize
- If Rs.Eof Then
- Exit For
- End If
- if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
- end if
- %><%=utf8(i+(page-1)*Rs.PageSize)%>:<%IF rs("passed")=1 Then%><%=utf8(Rs("link_name"))%>[待审]<%else%><a href="Link.asp?Action=view&id=<%=rs("link_id")%>"><%=utf8(Rs("link_name"))%></a><%end if%><br/>
- <%
- Rs.MoveNext
- Next
- if page>=Rs.PageCount then
- 'Response.Write ("[下-页]")
- else
- Response.Write("[<a href='?od="&od&"&Page=" & (Page+1) & "'>下-页</a>]<br/>")
- end if
- if page<=1 then
- 'Response.Write ("[上-页] ")
- else
- Response.Write("[<a href='?od="&od&"&Page=" & (Page-1) & "'>上-页</a>]<br/>")
- end if
- if Rs.PageCount>2 then
- %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
- <anchor>GO>><go href="?od=<%=od%>" method="post">
- <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
- 共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/><%end if%>
- <%
- else
- response.write "暂无链接!<br/>"
- end if
- Rs.close
- set rs=nothing
- if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
- else%>
- ----------<br/>
- <%end if%>
- <a href="link.asp?Action=add">[马上加入]</a><br/>
- <a href="link.asp?Action=sm">[排名规则]</a>
- <%
- end Function
- '========网站的链接详情========
- Function view
- %>
- <card id="index" title="查看链接">
- <p align="<%=const1%>">
- 您即将离开<%=wapname%>.并且提醒您接下来请小心收费陷阱.<br/>
- <%
- dim sql,id
- id = Request.QueryString("id")
- Set rs=Server.CreateObject("Adodb.Recordset")
- Sql = "select * from wapls_link where passed=0 and link_id="&id
- rs.open sql,conn,1,1
- if not (rs.bof and rs.eof) then
- if rs("link_logo")<>"" then
- %><img src="<%=rs("link_logo")%>" alt="LOGO..."/><br/><%end if%>
- 网站:<%=utf8(rs("link_name"))%><br/>
- 地址:<%=utf8(rs("link_url"))%><br/>
- 简介:<%=utf8(rs("link_content"))%><br/>
- <%else%>
- 请求的参数错误...<br/>
- <%end if
- if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
- else%>
- ----------<br/>
- <%end if%>
- <a href="<%=utf8(rs("link_url"))%>">[立即访问]</a><br/>
- <a href="link.asp">[链接首页]</a>
- <%
- Rs.close
- set rs=nothing
- end Function
- '========网站的合作链接提交========
- Function add
- %>
- <card id="index" title="加入链接">
- <p align="<%=const1%>">
- <%if link_ok=0 then%>
- 系统暂停开放此项功能<br/>
- <%else%>
- <%if link_ok=2 and session("name")="" then%>
- 系统目前只对会员开放此项功能<br/>
- <%else%>
- 申请前请先阅读<a href="link.asp?Action=sm">排名规则</a><br/>
- 类型:<select title="分类" name="cat_id<%=minute(now)%><%=second(now)%>">
- <option title="请选择" value="">请选择</option>
- <%
- set rst=server.createobject("ADODB.Recordset")
- Sql="select * from wapls_link_cat order by Cat_ID asc"
- rst.open Sql,conn,1,1
- i=1
- do while not rst.eof
- %>
- <option title="<%=rst("Cat_Name")%>" value="<%=rst("cat_id")%>"><%=i%>.<%=rst("Cat_Name")%></option>
- <%
- i=i+1
- rst.movenext
- loop
- rst.Close
- set rst=nothing
- %></select><br/>
- 网站:<input name="link_name<%=minute(now)%><%=second(now)%>" emptyok="false" maxlength="40"/><br/>
- 地址:<input name="link_url<%=minute(now)%><%=second(now)%>" emptyok="false" maxlength="80" value="http://"/><br/>
- 简介:<input name="link_content<%=minute(now)%><%=second(now)%>" format="false" maxlength="100" value="免费网站"/><br/>
- LOGO:<input name="link_logo<%=minute(now)%><%=second(now)%>" format="false" maxlength="80" value="http://"/>允许空<br/>
- <br/>
- 验证:<input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="7"/> <%=s%><br/><br/>
- <anchor>[马上加入]<go href="link.asp?Action=save" method="post">
- <postfield name="link_name" value="$(link_name<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="cat_id" value="$(cat_id<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="link_content" value="$(link_content<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="link_url" value="$(link_url<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="link_logo" value="$(link_logo<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
- <postfield name="yz1" value="<%=s%>"/>
- </go>
- </anchor>
- <%
- end if
- end if
- %>
- <br/>
- <a href="link.asp">[链接首页]</a>
- <%
- end Function
- '========网站的合作链接提交=======
- Function save
- %>
- <card id="index" title="提交链接">
- <p align="<%=const1%>">
- <%
- yz=Request("yz")
- yz1=Request("yz1")
- if yz<>yz1 then
- response.redirect "wapls_404.asp?id=9"
- else
- link_name=Trim(Request("link_name"))
- link_url=Trim(Request("link_url"))
- link_content=Request("link_content")
- link_logo=Request("link_logo")
- cat_id=Request("cat_id")
- if link_name="" then response.redirect "wapls_404.asp?id=14"
- if link_url="" or link_url="http://" then response.redirect "wapls_404.asp?id=15"
- if cat_id="" then response.redirect "wapls_404.asp?id=17"
- Dim sql,rs
- set rs=server.CreateObject("adodb.recordset")
- sql="select * from wapls_link where link_url='"&link_url&"'"
- rs.open sql,conn,1,3
- if not (rs.bof and rs.eof) then
- response.redirect "wapls_404.asp?id=16"
- else
- rs.addnew()
- rs("link_name")=link_name
- rs("link_url")=link_url
- rs("link_content")=link_content
- rs("passed")=addlink_ok
- rs("cat_id")=cat_id
- sql="select isimage from wapls_link_cat where cat_id="&cat_id
- set rs2=server.createobject("adodb.recordset")
- rs2.open sql,conn,1,1
- if rs2("isimage")=0 then
- rs("link_logo")=""
- else
- rs("link_logo")=link_logo
- end if
- rs2.close
- set rs2=nothing
- rs.update()
- end if
- %>
- 您的链接提交成功!<br/>
- 您网站的排名是根据下面这条点击自动排名的.<br/>
- 每有一次点击.您的网站会自动的排名到第一位的.<br/>
- <%if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
- else%>
- ----------<br/>
- <%end if%>
- 链接名称:<%=wapname%><br/>
- 链接地址:<%=wapurl%>/?linkid=<%=rs("link_id")%><br/>
- 链接图象:<%=wapurl%>/<%=waplogo%><br/>
- <%if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
- else%>
- ----------<br/>
- <%end if%>
- <%if addlink_ok=1 then%>
- 等有了回点.审核后就可以正常访问了.
- <%
- end if
- Rs.close
- set rs=nothing
- end if
- %>
- <br/>
- <a href="link.asp">[链接首页]</a>
- <%end Function
- '========网站的合作链接回链=======
- Function link
- dim sql,rs,link_id
- linkid = Request.QueryString("linkid")
- if linkid<>"" and session("linkidip")<>userip then
- set rs=server.CreateObject("adodb.recordset")
- sql="select * from wapls_link where link_id="&linkid
- rs.open sql,conn,1,3
- if not (rs.bof and rs.eof) then
- rs("link_date")=now()
- rs("rw1")=rs("rw1")+1
- rs.update
- session("linkidip")=userip
- end if
- %>
- <card id="index" title="" ontimer="index.asp"><timer value="1"/>
- <p align="<%=const1%>">
- 正在读取数据...
- <br/>----------
- <%
- else
- response.redirect "index.asp"
- end if
- %>
- <%
- Rs.close
- set rs=nothing
- end Function
- '========网站的合作链接说明=======
- Function sm
- %>
- <card id="index" title="链接说明">
- <p align="<%=const1%>">
- <%
- if len(mb_linksm)>1 then
- response.write ""&outHTM(mb_linksm)&"<br/>"
- end if
- if len(mb_logo)>1 then
- response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
- else
- %>
- ----------<br/>
- <%end if%>
- <a href="link.asp">[链接首页]</a>
- <%end Function%>
- <br/><a href='index.asp'>[返回首页]</a>
- <!--#include file="wapls_down.asp"-->