?? linkforward.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<%
if request("forward")<>"" and request("ID")<>"" then
sql="update link set goout=goout+1 where ID="&request("ID")
conn.execute (sql)
end if
if request("friendid")<>"" then
sql="slelect * from link where username='"&decryptstr(request("friendid"))&"'"
rs.open sql,conn,1,3
if not rs.eof then
Arr1=Split(Request.ServerVariables("HTTP_REFERER"),"/")
arr2=Split(rs("Y_MyLink"),"/")
if Arr1(2)=arr2(2) then
rs("goin")=rs("goin")+1
rs.update
rs.close
end if
end if
dim L_SiteURL
sql="select L_SiteURL from setting"
set rs=conn.execute (sql)
if not rs.eof then
L_SiteURL=rs("L_SiteURL")
end if
response.Redirect(L_SiteURL)
end if
'首頁(yè)調(diào)用代碼
dim ScriptWords
dim rs1
dim rs2
sub ShowFriendLink (DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl)
response.write vbcrlf
response.write "<LINK href="""&LinkUrl&"css.css"" type=text/css rel=stylesheet>"&vbcrlf
response.write "<IFRAME id=""Iframelinkforward"" dy=100 name=""linkforward"" SRC="""&LinkUrl&"linkforward.asp"" FRAMEBORDER=1 SCROLLING=no WIDTH=0 HEIGHT=0></IFRAME>"&vbcrlf
response.write "<script>"&vbcrlf
response.write "function addgoout(ID){"&vbcrlf
response.write ""&vbcrlf
response.write " Iframelinkforward.linkforward.elements(0).value=""goout"";"&vbcrlf
response.write " Iframelinkforward.linkforward.elements(1).value=ID;"&vbcrlf
response.write " Iframelinkforward.linkforward.submit();"&vbcrlf
response.write " //setTimeout(""window.location.reload()"",1000);"&vbcrlf
response.write "}"&vbcrlf
response.write "</script>"&vbcrlf
if LinkUrl="" then
sLinkUrl="default.asp"
end if
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 IsActivation=true then
SqlActivation=" and goin>0"
else
SqlActivation=""
end if
if IsVerify=true then
SqlActivation=" and IsVerify=true"
else
SqlActivation=""
end if
if OrderBy=2 then
OrderBy=" order by Isfixed, goin desc"
elseif OrderBy=1 then
OrderBy=" order by Isfixed, jointime desc"
end if
sql1="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,Isfixed from link where Status<>1"&SqlActivation&" and not isNull (Y_Logo)"&OrderBy
sql2="select ID,Y_SiteName,Y_SiteURL,Y_Logo,Y_Alt,goin,goout,jointime,Isfixed from link where Status<>1"&SqlActivation&" and isNull (Y_Logo)"&OrderBy
set rs1=conn.execute (sql1)
set rs2=conn.execute (sql2)
ScriptWords=ScriptWords& " <table width="&TabWidth&" border=0 align="&TabAlign&" cellpadding=0 cellspacing=1 bgcolor="&sTabBorderColor&"><tr>"&vbcrlf
ScriptWords=ScriptWords& " <td bgcolor=ffffff>"&vbcrlf
ScriptWords=ScriptWords& " <table width=99% height=2 border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
ScriptWords=ScriptWords& " <table width=99% height=30 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="&tTabBGColor&" class=title>"&vbcrlf
ScriptWords=ScriptWords& " <tr><td align=right><a class=atitile href="""&sLinkUrl&"""><font color=ffffff>更多友情鏈接</font></a> </td></tr>"&vbcrlf
ScriptWords=ScriptWords& " </table>"&vbcrlf
ScriptWords=ScriptWords& " <table width=99% height=2 border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
if DislayOrder="LOGO" then
if LogoLine>0 then
call logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
end if
if LogoLine>0 and LogoLine>0 then
ScriptWords=ScriptWords& " <table width=99% height=2 border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
end if
if LogoLine>0 then
call word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
end if
else
if LogoLine>0 then
call word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
end if
if LogoLine>0 and LogoLine>0 then
ScriptWords=ScriptWords& " <table width=99% height=2 border=0 align=center cellpadding=0 cellspacing=0><tr><td></td></tr></table>"&vbcrlf
end if
if LogoLine>0 then
call logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
end if
end if
ScriptWords=ScriptWords& " </td>"&vbcrlf
ScriptWords=ScriptWords& " </tr></table>"&vbcrlf
response.write ScriptWords
'response.end
end sub
function logo(rs1,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
ScriptWords=ScriptWords& " <!--LOGO-->"&vbcrlf
ScriptWords=ScriptWords& " <table width=99% border="&TabBorderWidth&" bordercolor="&TabBorderColor&" align=center cellpadding="&TabCellPadding&" cellspacing="&TabCellSpacing&" bgcolor="&TabBGColor&">"&vbcrlf
for i=1 to LogoLine
if not rs1.eof then
ScriptWords=ScriptWords& " <tr align=center bgcolor="&TabCellColor&" style=""line-height:"&TabLinHeight&""">"&vbcrlf
for j=1 to LogoCount
if not rs1.eof then
ScriptWords=ScriptWords& " <td height=20><a onclick=""addgoout("&rs1("ID")&")"" target=_blank href="""&rs1("Y_SiteURL")&"""><img border=0 width="&LogoWidth&" height="&LogoHeight&" alt="""&rs1("Y_SiteName")&""" src="""&rs1("Y_Logo")&"""/></a></td>"&vbcrlf
rs1.movenext
else
ScriptWords=ScriptWords& " <td height=20><img src="""&LinkUrl&"img/yourplace.gif""></td>"&vbcrlf
end if
next
ScriptWords=ScriptWords& " </tr>"&vbcrlf
end if
next
ScriptWords=ScriptWords& " </table>"&vbcrlf
end function
function word(rs2,DislayOrder,LogoLine,LogoCount,WordLine,WordCount,TabWidth,TabAlign,sTabBorderColor,tTabBGColor,TabBGColor,TabBorderWidth,TabBorderColor,TabCellSpacing,TabCellPadding,TabCellColor,TabLinHeight,LinkUrl,LogoWidth,LogoHeight)
ScriptWords=ScriptWords& " <!--WORD-->"&vbcrlf
ScriptWords=ScriptWords& " <table width=99% border="&TabBorderWidth&" bordercolor="&TabBorderColor&" align=center cellpadding="&TabCellPadding&" cellspacing="&TabCellSpacing&" bgcolor="&TabBGColor&">"&vbcrlf
for i=1 to LogoLine
if not rs2.eof then
ScriptWords=ScriptWords& " <tr align=center bgcolor="&TabCellColor&" style=""line-height:"&TabLinHeight&""">"&vbcrlf
for j=1 to WordCount
if not rs2.eof then
ScriptWords=ScriptWords& " <td align=center height=20><a onclick=""addgoout("&rs2("ID")&")"" target=_blank href="""&rs2("Y_SiteURL")&""" title="""&rs2("Y_SiteName")&""">"&rs2("Y_SiteName")&"</a></td>"&vbcrlf
rs2.movenext
else
ScriptWords=ScriptWords& " <td align=center height=20>您的位置</td>"&vbcrlf
end if
next
ScriptWords=ScriptWords& " </tr>"&vbcrlf
end if
next
ScriptWords=ScriptWords& " </table>"&vbcrlf
end function
%>
<form name="linkforward" id="linkforward" action="" method="post" target="_self">
<input name="forward" type="hidden">
<input name="ID" type="hidden">
</form>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -