?? bjxshopreg.asp
字號(hào):
<!--#include file="bjxshoprg.asp"-->
<%zj=Request.ServerVariables("SERVER_NAME")%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>注冊(cè)程序</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body>
<div align="center">
<center>
<br>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">感謝您使用BJXSHOP購(gòu)物系統(tǒng)系統(tǒng)!</p>
</td>
</tr>
</table>
</center>
</div><br>
<%if request("type")="reg" then
if request("check")="yes" then
regname=Request("regname")&bjxroom
regcode=Request("regcode")
if request("regname")="" or request("regcode")="" then
response.write("<script language=vbscript>msgbox ""注冊(cè)失敗:用戶名和注冊(cè)碼不能為空!""</script>")
error="yes"
elseif len(regcode)>20 then
response.write("<script language=vbscript>msgbox ""注冊(cè)失敗:注冊(cè)碼不能多于20個(gè)字符!""</script>")
elseif IsNumeric(regcode)=false then
response.write("<script language=vbscript>msgbox ""注冊(cè)失敗:注冊(cè)碼只能是數(shù)字!""</script>")
else
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(regname&"http://www.bjxdesign.net"))
Do While yzcv>1000000000000
yzcv=yzcv-1000000000000
loop
regcode=regcode+0
if yzcv=regcode then
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(Server.MapPath("bjxshoprg.asp"), True)
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)®name&chr(34)&chr(13)&"zcv="®code&chr(37)&">"
Set TS1 = Nothing
Set FSO = Nothing
response.write("<script>alert('注冊(cè)成攻:!!!恭喜!!!您所填寫(xiě)的信息已成功注冊(cè)!');location.href='/'</script>")
response.end
else
response.write("<script language=vbscript>msgbox ""注冊(cè)失敗:用戶名或注冊(cè)碼錯(cuò)誤!""</script>")
end if
end if
end if
%>
<div align="center">
<center>
<form action="bjxshopreg.asp?type=reg&check=yes" method="post">
<table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
<tr>
<td bgcolor="#FFFFFF">用戶名：</td>
<td bgcolor="#FFFFFF">
<input name="regname" size="20">
</td>
<td bgcolor="#FFFFFF">注冊(cè)號(hào)：</td>
<td bgcolor="#FFFFFF">
<input name="regcode" size="20">
</td>
</tr>
</table>
<p><input type="submit" value=" 注冊(cè)到您的服務(wù)器<%=zj%>上 "></p>
</form>
</center>
</div>
<center>
<table border="0" cellspacing="1" width="430" cellpadding="2" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF"> <p>獲得注冊(cè)號(hào)(購(gòu)買(mǎi)程序)請(qǐng)聯(lián)系<br>
公司網(wǎng)站： <a href="http://www.bjxdesign.net">http://www.bjxdesign.net</a> Q Q：736050<br>
客服郵箱： <a href="mailto:colinzxz@sohu.com">colinzxz@sohu.com </a> 客服電話：020-31241345 <br>
工作時(shí)間 8:30 - 18:30(周一至周日) </p> </td>
</tr>
</table>
</center>
<%else%>
<%if zcn="未注冊(cè)" or zcv="未注冊(cè)" then%>
<script language=vbscript>
aaa=msgbox("系統(tǒng)檢測(cè)到您所使用的是未注冊(cè)版本!"&chr(13)&"該版本功能受到限制,"&chr(13)&"如果您想得到所有功能,請(qǐng)注冊(cè)!"&chr(13)&"是否注冊(cè)?",vbyesno)
if aaa=6 then window.location = "bjxshopreg.asp?type=reg"
</script>
<%end if%>
<div align="center">
<center>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">恭喜！您已經(jīng)注冊(cè)成功?。?lt;/p>
<p align="center">需要修改什么的請(qǐng)與我們聯(lián)系</p>
<p align="center"> 公司網(wǎng)站： <a href="http://www.bjxdesign.net">http://www.bjxdesign.net</a> Q Q：736050<br>
客服郵箱： <a href="mailto:colinzxz@sohu.com">colinzxz@sohu.com </a> 客服電話：020-31241345 <br>
工作時(shí)間 8:30 - 18:30(周一至周日) </p>
<p align="center">如你在使用程序中有什么問(wèn)題或好的建議歡迎隨時(shí)與我們聯(lián)系</p>
<p align="center">如您需要增加一些功能或者是升級(jí)請(qǐng)與我聯(lián)系，歡迎咨詢！<br>
<br>
- 請(qǐng)支持正版 -
版權(quán)所有、肆意抄襲、模仿必究 - </td>
</tr>
</table>
</center>
</div>
<%end if%>
<br>
<div align="center">
<center>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">程序制作：伴江行 授權(quán)予：<font color="#FF0000">bjxshop<%=zcn%></font>
注冊(cè)號(hào)：<font color="#FF0000"><%=zcv%></font>
<%if zcn="未注冊(cè)" or zcv="未注冊(cè)" then%>
[<a href="bjxshopreg.asp?type=reg"><font color="#0000FF">注冊(cè)程序</font></a>]
<%end if%>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -