Free site submit / Links exchange - China DVB Technology CO., LTD.
100% Automated Link Exchange |
Text links code:
|
LOGO links code:
|
|
| Make a link exchange with <%=SiteName%> |
Link Exchange Mail: links@chuangxin.biz |
Every webpage on the net require links to increase their publicity and popularity. This page shows the sites<%=SiteName%> have that are currently exchanging links. Please, before submitting any forms - make sure you have placed a link on your page in a clearly visible place (on your mainpage or on a easily found reprocial link-page). Also - we only accept the Reciprocal Link Exchange
Links exchange/ Reprocial links exchange notes:
<%
dim PR
dim Alexa
dim IsConfirm
dim IsVerify
dim IsActivation
dim SpecialNote
dim OrderBy
dim MaxPerPage
dim LogoWidth
dim LogoHeight
sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
PR=rs("PR")
Alexa=rs("Alexa")
IsConfirm=rs("IsConfirm")
IsVerify=rs("IsVerify")
IsActivation=rs("IsActivation")
SpecialNote=rs("SpecialNote")
OrderBy=rs("OrderBy")
MaxPerPage=rs("MaxPerPage")
LogoWidth=rs("LogoWidth")
LogoHeight=rs("LogoHeight")
rs.close
end if
if PR>0 then %>
PR value ≧<%=PR%>
<%end if
if Alexa>0 then %>
| Alexa Rank: <%=Alexa%>
<%end if %>
| Logo Size: <%=LogoWidth%>×<%=LogoHeight%>
<%if SpecialNote<>"" then
response.write replace(SpecialNote,chr(13),"
")&"
"
end if%>
|
| LInks Exchange Step :Get our links code and put our links in your site ->Fill your site info ->Submit your site |
|
| Site logo |
Site Description |
<%
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if IsActivation=true then
SqlActivation=" and goin>0"
else
SqlActivation=""
end if
if OrderBy=2 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,Isfixed from link where Status<>1"&SqlActivation&" order by Isfixed, goin desc"
elseif OrderBy=1 then
sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,jointime,Isfixed from link where Status<>1"&SqlActivation&" order by Isfixed, jointime desc"
end if
rs.open sql,conn,1,3
if Rs.eof and Rs.bof then
response.Write("
No exchange links")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if MaxPerPage=0 then
MaxPerPage=rs.recordcount
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage
<%if Y_Logo<>"" then%>
<% else%>
<%end if%>
|
SiteTitle:<%=Y_SiteName%> |
![Free site submit, submit a site for free, link exchange]() Desc.: <%=Y_Alt%> |
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write " | "
end function
%>
|
