?? signup.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="common.asp"-->
<%
dim SiteName
dim SiteURL
dim MasterName
dim Email
dim PageWidth
dim Unit
sql="select * from setting"
set rs=conn.execute (sql)
if not rs.eof then
SiteName=rs("SiteName")
SiteURL=rs("SiteURL")
MasterName=rs("MasterName")
Email=rs("Email")
PageWidth=rs("PageWidth")
Unit=rs("Unit")
rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%response.write SiteName&"-自助友情鏈接系統 - Power By TODO.NET.CN"%></title>
<LINK href="css.css" type=text/css rel=stylesheet>
<script>
function CloseOpen(Num){
var CurrObj=eval("Tab"+Num);
if (CurrObj.style.display!="none"){
CurrObj.style.display="none";
window.event.srcElement.src="img/collapsed_yes.gif"
} else {
CurrObj.style.display="";
window.event.srcElement.src="img/collapsed_no.gif"
}
}
function submitform(Num){
var CurrForm=eval("form"+Num);
CurrForm.action="signup.asp";
CurrForm.method="post";
CurrForm.submit();
}
</script>
</head>
<body>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="<%=PageWidth&Unit%>">
<tr>
<td>
<%
Select case Request("step")
case ""
Call signup()
case "1"
Call checksignup()
case "2"
Call fullinfo()
case "3"
Call intodb()
end Select
%>
</td>
</tr>
</table>
<%sub signup%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td><%response.write " <a class=""atitle"" href="""&SiteURL&""" target=_blank>"&SiteName&"</a>-自助友情鏈接系統"%>
</td>
<td align="right"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--顯示與隱藏的表格-->
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab2">
<tr bgcolor="#FFFFFF">
<td height="20">申請步驟:注冊賬號->獲得我站鏈接代碼并在貴站添加我站鏈接代碼->填寫貴站信息->確認提交</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="20" align="left"><%
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 "※ 本頁面交換友情鏈接,要求貴站<font color=cc0000>PR值≧"&PR&"</font>,否則不能通過自動檢查.<br>"
end if
if Alexa>0 then
response.write "※ 本頁面交換友情鏈接,要求貴站<font color=cc0000>Alexa排名"&Alexa&"</font>以上,否則不能通過自動檢查.<br>"
end if
response.write "※ 如果您打算使用LOGO圖片,請注意圖片格式為 "&LogoWidth&"×"&LogoHeight&" 像素.<br>"
if IsVerify=true then
response.write "※ 所有申請的友情鏈接都要通過站長的審核才能顯示.<br>"
else
response.write "※ 所有申請的友情鏈接即時生效,申請成功后,請刷新頁面.<br>"
end if
if IsActivation=true then
response.write "※ 注意,申請成功后,需要從中貴站的鏈接入我站一次,進行激活才能顯示.<br>"
else
response.write "※ 無需激活,申請成功后即時顯示.<br>"
end if
if SpecialNote<>"" then
response.write replace(SpecialNote,chr(13),"<br>")&"<br>"
end if
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">有任何問題,請聯系站長:<a href="mailto:<%=Email%>"><%=MasterName%></a></td>
</tr>
</table>
<!--顯示與隱藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<form id="form1" name="form1">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td> 申請友情鏈接-第一步(注冊賬號)</td>
<td align="right"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--顯示與隱藏的表格-->
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab3">
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="35%" height="20">用戶名:</td>
<td><input name="username" type="text" id="username" size="50" maxlength="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">密碼:</td>
<td><input name="passsword" type="password" id="passsword" size="50" maxlength="20"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">確認密碼:</td>
<td><input name="repasssword" type="password" id="repasssword" size="50" maxlength="20"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">電子郵箱:</td>
<td><input name="email" type="text" id="email" size="50" maxlength="80">
<input name="step" type="hidden" id="step" value="1"></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="20" colspan="2"><input type="button" name="Submit" value=" 確 定 " onClick="submitform(1)">
<input type="reset" name="Submit" value=" 重 設 "></td>
</tr>
</table>
<!--顯示與隱藏的表格-->
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr></form>
</table>
<br>
<%end sub%>
<%
sub checksignup
dim username
dim passsword
dim repasssword
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 repasssword="" or email="" then
Errmsg = Errmsg+"<li>請填寫全部信息。"
Call ErrList(Errmsg)
exit sub
elseif passsword <> repasssword then
Errmsg = Errmsg+"<li>密碼與確認密碼不符。"
Call ErrList(Errmsg)
exit sub
elseif IsValidEmail(email)=false then
Errmsg = Errmsg+"<li>請填寫正確的電子郵箱地址。"
Call ErrList(Errmsg)
exit sub
end if
sql="select * from link where username='"&username&"'"
rs.open sql,conn,1,3
if not rs.eof then
Errmsg = Errmsg+"<li>這個用戶名已經有人用了,請更換一個。"
Call ErrList(Errmsg)
exit sub
end if
'rs.addnew
'rs("username")=username
'rs("passsword")=md5(passsword)
'rs("email")=email
'rs.update
'temp = rs.bookmark
'rs.bookmark = temp
'userid= rs("id")
'rs.close
'session("L_username")=username
'session("L_userid")=userid
call getcode (username,passsword,email)
end sub
%>
<%sub getcode(username,passsword,email)%>
<%
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="<a href=""http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"signup.asp","linkforward.asp")&"?friendid="&Encryptstr("username")&""" target=_blank title="""&L_Alt&""">"&L_SiteName&"</a>"
logolink="<a href=""http://"&request.ServerVariables("HTTP_HOST")&replace(request.ServerVariables("URL"),"signup.asp","linkforward.asp")&"?friendid="&Encryptstr("username")&""" target=_blank><img border=0 src="""&L_Logo&""" alt="""&L_Alt&"""></a>"
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#698CC3">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="698cc3" class="title">
<tr>
<td> 申請友情鏈接-第二步(獲取我站鏈接代碼)</td>
<td align="right"> </td>
</tr>
</table>
<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--顯示與隱藏的表格-->
<table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="d6e0ef" style="display:" id="Tab4">
<tr bgcolor="#FFFFFF">
<td width="50%" height="20"><strong>文字鏈接</strong>:</td>
<td><strong>圖片鏈接</strong>:</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"><%=wordlink%></td>
<td><%=logolink%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"><textarea cols="35" name="textarea" rows="10"><%=wordlink%></textarea></td>
<td><textarea cols="35" name="textarea" rows="10"><%=logolink%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2">
<%
if IsConfirm=true then
response.write "※ 請先把相應代碼拷貝到貴站友情鏈接頁面,然后繼續下一步."
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -