|
| |
|
<%
Select case Request("step")
case ""
Call signup()
case "1"
Call checksignup()
case "2"
Call fullinfo()
case "3"
Call intodb()
end Select
%> |
<%sub signup%>
| <%response.write " "&SiteName&"-Reciprocal Link Exchange System"%>
|
|
| LInks Exchange Step :Get our links code and put our links in your site ->Fill your site info ->Submit your site |
<%
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
response.write "• The link exchange requests the PR value 鈮"&PR&" of your exchange page,otherwise cannot through the automatic inspection.
"
end if
if Alexa>0 then
response.write "• The link exchange requests the Alexa Rank < "&Alexa&",otherwise cannot through the automatic inspection.
"
end if
response.write "• If you want to make a logo links exchange, Please note the picture form is: "&LogoWidth&"脳"&LogoHeight&"
"
if IsVerify=true then
response.write "• All applications exhange links all must only then be able to demonstrate through stationmaster's verification.
"
else
response.write "• All applications exchange link immediately becomes effective, applies successfully after, please renovates the page.
"
end if
if IsActivation=true then
response.write "• The attention, applies successfully after via your links page to our site .
"
else
response.write "• Needs not to activate, successfully applies after immediately to demonstrate.
"
end if
if SpecialNote<>"" then
response.write replace(SpecialNote,chr(13),"
")&"
"
end if
%> |
| Have Question? |
<%
dim L_SiteName
dim L_SiteURL
dim L_Logo
dim L_Alt
sql="select IsConfirm,SiteURL,L_SiteName,L_SiteURL,L_Logo,L_Alt from setting"
set rs=conn.execute (sql)
if not rs.eof then
IsConfirm=rs("IsConfirm")
SiteURL=rs("SiteURL")
L_SiteName=rs("L_SiteName")
L_SiteURL=rs("L_SiteURL")
L_Logo=rs("L_Logo")
L_Alt=rs("L_Alt")
end if
wordlink=""&L_SiteName&""
logolink="![]() "
%>
| Please link to us the following way: |
|
| Text links code |
Logo links code |
| <%=wordlink%> |
<%=logolink%> |
|
|
|
<%
if IsConfirm=true then
response.write "• 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."
end if
%>
|
|
|
<%end sub%>
<%sub fullinfo%>
<%end sub%>
<%
sub intodb
dim username
dim passsword
dim email
dim userid
username=trim(replace(request("username"),"'",""))
passsword=trim(replace(request("passsword"),"'",""))
'repasssword=trim(replace(request("repasssword"),"'",""))
email=trim(replace(request("email"),"'",""))
if username="" or passsword="" or email="" then
Errmsg = Errmsg+"Please fills in the complete information."
Call ErrList(Errmsg)
exit sub
'elseif passsword <> repasssword then
' Errmsg = Errmsg+"瀵嗙爜涓庣‘璁ゅ瘑鐮佷笉绗︺"
' Call ErrList(Errmsg)
' exit sub
elseif IsValidEmail(email)=false then
Errmsg = Errmsg+"Please fills in the correct electronic mailbox address."
Call ErrList(Errmsg)
exit sub
end if
sql="select * from link where username='"&username&"'"
rs.open sql,conn,1,1
if not rs.eof then
Errmsg = Errmsg+"This already some people used with the name of head of household, please replaced one."
Call ErrList(Errmsg)
exit sub
end if
dim PR
dim Alexa
dim IsConfirm
dim IsVerify
dim IsActivation
dim WordsCount
dim AltCount
sql="select PR,Alexa,IsConfirm,IsVerify,IsActivation,WordsCount,AltCount,L_SiteURL 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")
WordsCount=rs("WordsCount")
AltCount=rs("AltCount")
L_SiteURL=rs("L_SiteURL")
rs.close
end if
dim Y_SiteName
dim Y_SiteURL
dim Y_Logo
dim Y_Alt
dim Y_MyLink
username=trim(replace(request("username"),"'",""))
passsword=trim(replace(request("passsword"),"'",""))
email=trim(replace(request("email"),"'",""))
Y_SiteName=trim(replace(request("Y_SiteName"),"'",""))
Y_Logo=trim(replace(request("Y_Logo"),"'",""))
Y_Alt=trim(replace(request("Y_Alt"),"'",""))
Y_SiteURL=trim(replace(request("Y_SiteURL"),"'",""))
Y_MyLink=trim(replace(request("Y_MyLink"),"'",""))
if Y_SiteName="" or Y_Logo="" or Y_Alt="" or Y_SiteURL="" or Y_MyLink="" then
Errmsg = Errmsg+"Please fills in the complete information."
Call ErrList(Errmsg)
exit sub
end if
if GetWordsCount(Y_SiteName)>WordsCount then
Errmsg = Errmsg+"Your site title <"&GetWordsCount(Y_SiteName)&"> characters , please short to <"&WordsCount&"> characters."
Call ErrList(Errmsg)
exit sub
end if
if GetWordsCount(Y_Alt)>AltCount then
Errmsg = Errmsg+"Your site description <"&GetWordsCount(Y_Alt)&">characters , please short to <"&AltCount&"> characters."
Call ErrList(Errmsg)
exit sub
end if
'绗竴姝,鍒ゆ柇鎴戠珯閾炬帴鎵鍦ㄤ綅缃拰鐢宠鐨勯摼鎺ユ槸鍚︿负鍚屼竴鍩
if left(Y_SiteURL,7)<>"http://" then
Errmsg = Errmsg+"Please note your URL form, should by the http:// opening."
Call ErrList(Errmsg)
exit sub
end if
Y_SiteURL_Arr=Split(Y_SiteURL,"/")
Y_MyLink_Arr=Split(Y_MyLink,"/")
if Y_SiteURL_Arr(2)<>Y_MyLink_Arr(2) then
Errmsg = Errmsg+"The application exchange link territory and I stand the link code in the identical territory."
Call ErrList(Errmsg)
exit sub
end if
'绗簩姝,鍒ゆ柇鏄惁宸茬粡娣诲姞浜嗘垜绔欓摼鎺ヤ唬鐮
if IsConfirm=true then
url=Y_MyLink
wstr=getHTTPPage(url)
' if not Instr(lcase(wstr),lcase("0 then
if not Instr(lcase(wstr),lcase("0 then
Errmsg = Errmsg+"Sorry, in the position which assigns in the expensive station has not discovered our link code.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 reprocial links. No exceptions."
Call ErrList(Errmsg)
exit sub
end if
end if
'绗笁姝,鍒ゆ柇鎴戠珯閾炬帴鎵鍦ㄧ綉椤甸〉闈㈢殑PR鍊
Dim wstr,str,url,start,over,id
ID = Y_MyLink
url="http://rankwhere.com/google-page-rank.php?url="&id&""
wstr=getHTTPPage(url)
start=Newstring(wstr,"has Google")
over=Newstring(wstr,"NOTE")
body=mid(wstr,start+0,over-start-10)
body_arr=Split(body," ")
Y_MyLink_PR=int(body_arr(3))
if PR>0 then
if not Y_MyLink_PR>= PR then
Errmsg = Errmsg+"Sorry, the expensive station link code in the page PR value <"&Y_MyLink_PR&"> does not conform to the requirement which I stands<"&PR&">銆"
Call ErrList(Errmsg)
exit sub
end if
end if
'绗洓姝,鍒ゆ柇鎴戠珯閾炬帴鎵鍦ㄧ綉椤电殑鎵灞炲煙鍚嶇殑Alexa鎺掑悕
ID = Y_SiteURL
url="http://www.alexa.com/data/details/traffic_details?q=&url="&id&""
wstr=getHTTPPage(url)
start=Newstring(wstr,"span msg=")
over=start+60
if len(wstr)=start then
Y_MyLink_Alexa="No Index"
else
body=mid(wstr,start+0,over-start-10)
body_arr=Split(body,"""")
Y_MyLink_Alexa_Code=body_arr(1)
url="http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"site_submit.asp","getAlexa.asp")
url=url&"?sMsg="&Y_MyLink_Alexa_Code
wstr=getHTTPPage(url)
start=Newstring(wstr,"")
over=Newstring(wstr,"")
body=mid(wstr,start+7,over-start-7)
dim temp_Alexa
temp_Alexa=""
if InStr(body,",")>0 then
body_arr=Split(body,",")
for i=0 to UBound(body_arr)
temp_Alexa=temp_Alexa&body_arr(i)
next
else
temp_Alexa=body
end if
Y_MyLink_Alexa=Clng(temp_Alexa)
end if
if Alexa>0 then
if AlexaSorry, the expensive station Alexa world place value <"&temp_Alexa&"> does not conform to the requirement which I stands <"&Alexa&"> ."
Call ErrList(Errmsg)
exit sub
end if
end if
'濡傛灉涓鍒囧悎鏍,娣诲姞鍒板弸鎯呴摼鎺ユ暟鎹簱涓
'sql="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,Y_MyLink,PR,PRDate,Alexa,AlexaDate,jointime from link where ID="&session("links_userid")
sql="select top 1 * from link order by id"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("passsword")=md5(passsword)
rs("email")=email
rs("Y_SiteName")=Y_SiteName
rs("Y_SiteURL")=Y_SiteURL
rs("Y_Logo")=Y_Logo
rs("Y_Alt")=Y_Alt
rs("Y_MyLink")=Y_MyLink
rs("PR")=Y_MyLink_PR
rs("PRDate")=now()
rs("Alexa")=Y_MyLink_Alexa
rs("AlexaDate")=now()
rs("jointime")=now()
rs.update
call finaly(IsActivation)
end sub
%>
<%sub finaly(IsActivation)%>
| Link Successfully Submitted! |
|
|
<%end sub%>
|
