<%set rs1=server.createobject("adodb.recordset") rs1.open ("select * from mb where mbid="&mrmbid&""),conn,1,1 Gycode1=rs1("haed") Gycode2=rs1("copy") rs1.close wybt=wybt& ""&website&" ->友情连接" hot=hot&"" Gycode1=replace(Gycode1,"$ADHOT",hot) Gycode1=replace(Gycode1,"$WYBT",wybt) response.write Gycode1%>
当前位置 ∷ <%=website%> -- 友情连接
请在申请链接前，先在贵站做好我们的链接，才能够通过审核！
本站文字连接代码：
 <a href="<%=weburl%>" target="_blank"><%=website%></a>
网站名称
网站简介
其他信息
加入日期
<% if not isempty(request("page")) then CurrentPage=cint(request("page")) else CurrentPage=1 end if MaxPerPage=newsperpage '###每页显示数 if not isnumeric(request("page")) and request("page")<>"" then response.write"错误的系统参数!请输入整数" response.end end if sql="select * from link where shenghe=1 order by dateandtime desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有或没有找到任何文章" else totalPut=rs.recordcount totalnumber=rs.recordcount if (totalPut mod MaxPerPage)=0 then tempPcount= totalPut \ MaxPerPage else tempPcount= totalPut \ MaxPerPage + 1 end if if (totalPut mod MaxPerPage)=0 then Pcount= totalPut \ MaxPerPage else Pcount= totalPut \ MaxPerPage + 1 end if RS.MoveFirst if currentpage > Pcount then currentpage = Pcount if currentpage<1 then currentpage=1 'if currentpage=empty then currentpage=1 rs.move (currentPage-1)*MaxPerPage bookmark=rs.bookmark i=0 do while not rs.eof and i < Clng(MaxPerPage) if Not Response.IsClientConnected then responseend%> <% rs.movenext i=i+1 if i>=MaxPerPage then exit do loop end if rs.close set Rs=nothing %>
<%=rs("js")%> 本站位置: <%if rs("tj")=1 then%> 本站首页 <%end if%> <%if rs("tj")=2 then%> 连接首页 <%end if%>
世界排名：" target="_blank">查看排名
已被访问：<%=rs("hot")%>
<%if (month(rs("dateandtime"))&day(rs("dateandtime")))=(month(date())&day(date())) then%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%else%> <%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%> <%end if%>
<%call showpage()%> <% sub showpage() dim filename,ii,n filename="link.asp" if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
"& vbCrLf 'response.write ""&strsortname&" "& vbCrLf if CurrentPage<2 then response.write " 共有连接 "&totalnumber&" 个  首 页  上一页   " else response.write "共有连接 "&totalnumber&" 个  首 页  " response.write "上一页   " end if if n-currentpage<1 then response.write "下一页  尾 页 "& vbCrLf else response.write "下一页" response.write "  尾 页"& vbCrLf end if response.write " 页次："&CurrentPage&"/"&n&"页 " response.write " "&maxperpage&"个/页 "& vbCrLf response.write " 转到： " response.write "  " & vbCrLf response.write "
"& vbCrLf end sub %>
<%response.write Gycode2%>