Link.asp
资源名称:7.rar [点击查看]
上传用户:lfyh0123
上传日期:2020-11-04
资源大小:200k
文件大小:9k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <!--#include file="wapls_up.asp"-->
  2. <%
  3. '==================================
  4. '=文 件 名:Link.asp
  5. '=适用版本:蓝色世纪WAP网站管理系统(CMS)V1.1
  6. '=官方版权:http://www.songfr.cn
  7. '=文件功能:网站合作链接
  8. '=文件作者:蓝色阳光
  9. '=发行时间:2007-02-01
  10. '==================================
  11. IF  Request.QueryString("Action")="view" Then
  12. call view
  13. elseIF  Request.QueryString("Action")="add" Then
  14. call add
  15. elseIF  Request.QueryString("Action")="save" Then
  16. call save
  17. elseIF  Request.QueryString("Action")="link" Then
  18. call link
  19. elseIF  Request.QueryString("Action")="sm" Then
  20. call sm
  21. else
  22. call main
  23. End IF
  24. '========网站的链接列表=======
  25. Function main
  26. od=TRim(Request("od"))
  27. if not isnumeric(od) then od="1"
  28. if od=1 then
  29. txtid="link_date"
  30. txt="贡献点排行"
  31. else
  32. txtid="link_id"
  33. txt="新站点排行"
  34. end if
  35. dim sql
  36. %>
  37. <card id="index" title="<%=txt%>">
  38. <p align="<%=const1%>">
  39. <%
  40. if len(mb_link)>1 then
  41. response.write ""&outHTM(mb_link)&"<br/>"
  42. end if
  43. %>
  44. <a href="Link.asp?od=1">贡献点排行</a>|<a href="Link.asp?od=2">新站点排行</a><br/>
  45. <%
  46. Set Rs = Server.CreateObject("Adodb.Recordset")
  47. Sql = "SELECT * FROM wapls_link order by "&txtid&" desc"
  48. Rs.Open Sql,conn,1,1
  49. if not (rs.bof and rs.eof)  then 
  50. page = Request("Page")
  51. Rs.PageSize = pagenum '一页显示记录
  52. IF Not IsEmpty(Page) Then
  53. IF Not IsNumeric(Page) Then '判断Page是否为数字
  54. Page=1
  55. Else
  56. Page=Cint(Page) '转换成短整形Integer
  57. End IF
  58. IF Page > Rs.PageCount Then
  59. Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
  60. ElseIF Page <= 0 Then
  61. Rs.AbsolutePage = 1 '设置当前页等于第一页
  62. Else
  63. Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
  64. End IF
  65. Else
  66. Rs.AbsolutePage = 1
  67. End IF
  68. Page = Rs.AbsolutePage
  69. For i=1 to Rs.PageSize
  70. If Rs.Eof Then
  71. Exit For
  72. End If
  73. if len(mb_logo)>1 then
  74. response.write "<img src='"&mb_logo&"/biao.gif' alt='.'/>"
  75. end if
  76. %><%=utf8(i+(page-1)*Rs.PageSize)%>:<%IF rs("passed")=1 Then%><%=utf8(Rs("link_name"))%>[待审]<%else%><a href="Link.asp?Action=view&amp;id=<%=rs("link_id")%>"><%=utf8(Rs("link_name"))%></a><%end if%><br/>
  77. <%
  78. Rs.MoveNext
  79. Next
  80. if page>=Rs.PageCount then
  81. 'Response.Write ("[下-页]")        
  82. else
  83. Response.Write("[<a href='?od="&od&"&amp;Page=" & (Page+1) & "'>下-页</a>]<br/>")
  84. end if
  85. if page<=1 then
  86. 'Response.Write ("[上-页] ")
  87. else        
  88. Response.Write("[<a href='?od="&od&"&amp;Page=" & (Page-1) & "'>上-页</a>]<br/>")
  89. end if
  90. if Rs.PageCount>2 then
  91. %><input name="Page<%=minute(now)%><%=second(now)%>" format="*N" maxlength="50" size="2" value="<%=page+1%>"/>
  92. <anchor>GO>><go href="?od=<%=od%>" method="post">
  93. <postfield name="Page" value="$(Page<%=minute(now)%><%=second(now)%>)"/></go></anchor><br/>
  94. 共(<%=utf8(page)%>/<%=rs.pageCount%>)页<br/><%end if%>
  95. <%
  96. else
  97. response.write "暂无链接!<br/>"
  98. end if
  99. Rs.close
  100. set rs=nothing
  101. if len(mb_logo)>1 then
  102. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  103. else%>
  104. ----------<br/>
  105. <%end if%>
  106. <a href="link.asp?Action=add">[马上加入]</a><br/>
  107. <a href="link.asp?Action=sm">[排名规则]</a>
  108. <%
  109. end Function
  110. '========网站的链接详情========
  111. Function view
  112. %>
  113. <card id="index" title="查看链接">
  114. <p align="<%=const1%>">
  115. 您即将离开<%=wapname%>.并且提醒您接下来请小心收费陷阱.<br/>
  116. <%
  117. dim sql,id
  118. id = Request.QueryString("id")
  119. Set rs=Server.CreateObject("Adodb.Recordset")
  120. Sql = "select * from wapls_link where passed=0 and link_id="&id
  121. rs.open sql,conn,1,1
  122. if not (rs.bof and rs.eof)  then 
  123. if rs("link_logo")<>""  then 
  124. %><img src="<%=rs("link_logo")%>" alt="LOGO..."/><br/><%end if%>
  125. 网站:<%=utf8(rs("link_name"))%><br/>
  126. 地址:<%=utf8(rs("link_url"))%><br/>
  127. 简介:<%=utf8(rs("link_content"))%><br/>
  128. <%else%>
  129. 请求的参数错误...<br/>
  130. <%end if
  131. if len(mb_logo)>1 then
  132. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  133. else%>
  134. ----------<br/>
  135. <%end if%>
  136. <a href="<%=utf8(rs("link_url"))%>">[立即访问]</a><br/>
  137. <a href="link.asp">[链接首页]</a>
  138. <%
  139. Rs.close
  140. set rs=nothing
  141. end Function
  142. '========网站的合作链接提交========
  143. Function add
  144. %>
  145. <card id="index" title="加入链接">
  146. <p align="<%=const1%>">
  147. <%if link_ok=0 then%>
  148. 系统暂停开放此项功能<br/>
  149. <%else%>
  150. <%if link_ok=2 and session("name")="" then%>
  151. 系统目前只对会员开放此项功能<br/>
  152. <%else%>
  153. 申请前请先阅读<a href="link.asp?Action=sm">排名规则</a><br/>
  154. 类型:<select title="分类" name="cat_id<%=minute(now)%><%=second(now)%>">
  155. <option title="请选择" value="">请选择</option>
  156. <%
  157. set rst=server.createobject("ADODB.Recordset")
  158. Sql="select * from wapls_link_cat order by Cat_ID asc"
  159. rst.open Sql,conn,1,1
  160. i=1
  161. do while not rst.eof
  162. %>
  163. <option title="<%=rst("Cat_Name")%>" value="<%=rst("cat_id")%>"><%=i%>.<%=rst("Cat_Name")%></option>
  164. <%
  165. i=i+1
  166. rst.movenext
  167. loop
  168. rst.Close
  169. set rst=nothing
  170. %></select><br/>
  171. 网站:<input name="link_name<%=minute(now)%><%=second(now)%>" emptyok="false" maxlength="40"/><br/>
  172. 地址:<input name="link_url<%=minute(now)%><%=second(now)%>" emptyok="false" maxlength="80" value="http://"/><br/>
  173. 简介:<input name="link_content<%=minute(now)%><%=second(now)%>" format="false" maxlength="100" value="免费网站"/><br/>
  174. LOGO:<input name="link_logo<%=minute(now)%><%=second(now)%>" format="false" maxlength="80" value="http://"/>允许空<br/>
  175. <br/>
  176. 验证:<input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="7"/>  <%=s%><br/><br/>
  177. <anchor>[马上加入]<go href="link.asp?Action=save" method="post">
  178. <postfield name="link_name" value="$(link_name<%=minute(now)%><%=second(now)%>)"/>
  179. <postfield name="cat_id" value="$(cat_id<%=minute(now)%><%=second(now)%>)"/>
  180. <postfield name="link_content" value="$(link_content<%=minute(now)%><%=second(now)%>)"/>
  181. <postfield name="link_url" value="$(link_url<%=minute(now)%><%=second(now)%>)"/>
  182. <postfield name="link_logo" value="$(link_logo<%=minute(now)%><%=second(now)%>)"/>
  183. <postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
  184. <postfield name="yz1" value="<%=s%>"/>
  185. </go>
  186. </anchor>
  187. <%
  188. end if
  189. end if
  190. %>
  191. <br/>
  192. <a href="link.asp">[链接首页]</a>
  193. <%
  194. end Function
  195. '========网站的合作链接提交=======
  196. Function save
  197. %>
  198. <card id="index" title="提交链接">
  199. <p align="<%=const1%>">
  200. <%
  201. yz=Request("yz")
  202. yz1=Request("yz1")
  203. if yz<>yz1 then
  204. response.redirect "wapls_404.asp?id=9"
  205. else
  206. link_name=Trim(Request("link_name"))
  207. link_url=Trim(Request("link_url"))
  208. link_content=Request("link_content")
  209. link_logo=Request("link_logo")
  210. cat_id=Request("cat_id")
  211. if link_name=""  then response.redirect "wapls_404.asp?id=14"
  212. if link_url="" or link_url="http://" then response.redirect "wapls_404.asp?id=15"
  213. if cat_id="" then response.redirect "wapls_404.asp?id=17"
  214. Dim sql,rs
  215. set rs=server.CreateObject("adodb.recordset")
  216. sql="select * from wapls_link where link_url='"&link_url&"'"
  217. rs.open sql,conn,1,3
  218. if not (rs.bof and rs.eof)  then
  219. response.redirect "wapls_404.asp?id=16"
  220. else
  221. rs.addnew()
  222. rs("link_name")=link_name
  223. rs("link_url")=link_url
  224. rs("link_content")=link_content
  225. rs("passed")=addlink_ok
  226. rs("cat_id")=cat_id
  227. sql="select isimage from wapls_link_cat where cat_id="&cat_id
  228. set rs2=server.createobject("adodb.recordset")
  229. rs2.open sql,conn,1,1
  230. if rs2("isimage")=0 then
  231. rs("link_logo")=""
  232. else
  233. rs("link_logo")=link_logo
  234. end if
  235. rs2.close
  236. set rs2=nothing
  237. rs.update()
  238. end if
  239. %>
  240. 您的链接提交成功!<br/>
  241. 您网站的排名是根据下面这条点击自动排名的.<br/>
  242. 每有一次点击.您的网站会自动的排名到第一位的.<br/>
  243. <%if len(mb_logo)>1 then
  244. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  245. else%>
  246. ----------<br/>
  247. <%end if%>
  248. 链接名称:<%=wapname%><br/>
  249. 链接地址:<%=wapurl%>/?linkid=<%=rs("link_id")%><br/>
  250. 链接图象:<%=wapurl%>/<%=waplogo%><br/>
  251. <%if len(mb_logo)>1 then
  252. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  253. else%>
  254. ----------<br/>
  255. <%end if%>
  256. <%if addlink_ok=1 then%>
  257. 等有了回点.审核后就可以正常访问了.
  258. <%
  259. end if
  260. Rs.close
  261. set rs=nothing
  262. end if
  263. %>
  264. <br/>
  265. <a href="link.asp">[链接首页]</a>
  266. <%end Function
  267. '========网站的合作链接回链=======
  268. Function link
  269. dim sql,rs,link_id
  270. linkid = Request.QueryString("linkid")
  271. if linkid<>"" and session("linkidip")<>userip then
  272. set rs=server.CreateObject("adodb.recordset")
  273. sql="select * from wapls_link where link_id="&linkid
  274. rs.open sql,conn,1,3
  275. if not (rs.bof and rs.eof)  then
  276. rs("link_date")=now()
  277. rs("rw1")=rs("rw1")+1
  278. rs.update
  279. session("linkidip")=userip
  280. end if
  281. %>
  282. <card id="index" title="" ontimer="index.asp"><timer value="1"/>
  283. <p align="<%=const1%>">
  284. 正在读取数据...
  285. <br/>----------
  286. <%
  287. else
  288. response.redirect "index.asp"
  289. end if
  290. %>
  291. <%
  292. Rs.close
  293. set rs=nothing
  294. end Function
  295. '========网站的合作链接说明=======
  296. Function sm
  297. %>
  298. <card id="index" title="链接说明">
  299. <p align="<%=const1%>">
  300. <%
  301. if len(mb_linksm)>1 then
  302. response.write ""&outHTM(mb_linksm)&"<br/>"
  303. end if
  304. if len(mb_logo)>1 then
  305. response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
  306. else
  307. %>
  308. ----------<br/>
  309. <%end if%>
  310. <a href="link.asp">[链接首页]</a>
  311. <%end Function%>
  312. <br/><a href='index.asp'>[返回首页]</a>
  313. <!--#include file="wapls_down.asp"-->