📄 join.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>『驴友格子阁』—三分天下、英雄云集、割据一方、占格为王！</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #ffffff;
}
-->
</style></head>
<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))'本地路径
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))'服务器路径
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
dim G_useradmin1
dim G_userpass1,G_userpass2
dim G_webname,G_weburl1
dim G_webinfo,G_photoshop,G_webclass
dim G_userqq
if Request.QueryString("add")="yes" then
G_useradmin1=Request("G_useradmin1")
G_userpass1=Request("G_userpass1")
G_userpass2=Request("G_userpass2")
G_webname=Request("G_webname")
G_weburl1=Request("G_weburl1")
G_webinfo=Request("G_webinfo")
G_photoshop=Request("G_photoshop")
G_webclass=Request("G_webclass")
G_userqq=Request("G_userqq")
If G_useradmin1="" Then
response.write"<SCRIPT language=JavaScript>alert('用户名不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
If G_webclass="0" Then
response.write"<SCRIPT language=JavaScript>alert('请选择网站分类！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'If left(Request("G_weburl1"),4)<>"www." Then
'response.write"<SCRIPT language=JavaScript>alert('域名前面请加www.，如果需要注册二级域名请联系客服QQ：150154016');"
'response.write"javascript:history.go(-1)<==='/SCRIPT>"
'response.end
'end if
If G_userpass1<>G_userpass2 Then
response.write"<SCRIPT language=JavaScript>alert('两次输入密码不能一致！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
dim rs2tmp
set rs2tmp=conn.execute("Select * from G_user Where G_useradmin='"&trim(request.form("G_useradmin1"))&"'")
if not rs2tmp.eof then
response.write"<SCRIPT language=JavaScript>alert('用户名已经存在,请重新输入！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
G_weburl1=trim(request.form("G_weburl1"))
set rs2tmp=conn.execute("Select * from G_user Where (G_weburl like '%"&G_weburl1&"%')")
if not rs2tmp.eof then
response.write"<SCRIPT language=JavaScript>alert('该域名已经注册过，如有问题请联系客服QQ：150154016');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from G_user"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("G_useradmin")=G_useradmin1
rs2("G_userpass")=md5(G_userpass1)
rs2("G_webname")=G_webname
rs2("G_weburl")=G_weburl1
rs2("G_webinfo")=G_webinfo
rs2("G_photoshop")=G_photoshop
rs2("G_webclass")=G_webclass
rs2("G_userqq")=G_userqq
rs2.update
rs2.close
dim html
html = "<script>alert('注册成功,请重新登陆！！！');window.location.href='login.asp'</script>"
response.write html
'response.redirect "join.asp"
end if
end if
end if%>
<body>
<div align="center">
<!--#include file="top.asp"-->
<!--头部代码结束-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#887872"></td>
</tr>
</table>
<!--顶线注册2000家可以删除-->
<table width="1000" border="0" cellspacing="0" cellpadding="0" background="images/grid1.gif">
<tr>
<td height="400" align="center" valign="top"><table width="647" border="0" cellspacing="0" cellpadding="0" bgColor=#efefef>
<tr>
<td width="647"> </td>
</tr>
<tr>
<td align="center"><form name="form1" method="post" action="join.asp?add=yes">
<table width="600" border="0" cellspacing="0" cellpadding="0" bgColor=#efefef>
<tr>
<td height="28" colspan="2" align="left"><font color="#FF0000">身受注册要填N多项目的痛苦，我现在写的程序都尽量减少填写项目！有意见可以联系我QQ：150154016</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">用户名称：</td>
<td height="28"><input name="G_useradmin1" type="text" id="G_useradmin1" size="40"> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">管理密码：</td>
<td height="28"><input name="G_userpass1" type="password" id="G_userpass1" size="40"> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">密码验证：</td>
<td height="28"><input name="G_userpass2" type="password" id="G_userpass2" size="40">
<font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">网站名称：</td>
<td height="28"><input name="G_webname" type="text" id="G_webname" size="40" maxlength="20"> <font color="#FF0000">*</font>限制输入超过10个字</td>
</tr>
<tr align="left">
<td height="28" colspan="2"><font color="#FF0000">不得含有六合彩、三级、成人、色情、做爱、强奸、偷拍、情色、反动、暴力等法律不允许限制词语。</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">网站域名：</td>
<td height="28"><input name="G_weburl1" type="text" id="G_weburl1" value="www." size="40"> <font color="#FF0000">*</font>请不要带<font color="#FF0000">http://</font>，否则不能注册！</td>
</tr>
<tr>
<td width="120" height="28" align="left">网站介绍：</td>
<td height="28"><input name="G_webinfo" type="text" id="G_webinfo" maxlength="20" size="60"> <font color="#FF0000">*</font> 限制输入超过20个字</td>
</tr>
<tr align="left">
<td height="28" colspan="2"><font color="#FF0000">不得含有六合彩、三级、成人、色情、做爱、强奸、偷拍、情色、反动、暴力等法律不允许限制词语。</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">所属分类：</td>
<td height="28"><select name="G_webclass" id="G_webclass">
<option value="0">所属分类</option>
<%
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from G_class"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
response.write ("<option value=0>暂无分类</option>")
else
do while not rs2.eof%>
<option value="<%=rs2("G_classid")%>"><%=rs2("G_class")%></option>
<%rs2.movenext
loop
rs2.close
end if%>
</select><font color="#FF0000">*</font></td>
</tr>
<tr>
<td width="120" height="28" align="left">网络寻呼：</td>
<td height="28"><input name="G_userqq" type="text" id="G_userqq" onkeyup="if(isNaN(value)){alert('QQ号码只允许输入数字');value='';}" size="40">
<font color="#FF0000">*</font>只可以输入数字QQ号码！</td>
</tr>
<tr>
<td height="28" align="left"> </td>
<td height="28"><iframe name="ad" frameborder=0 width="454" height="26" scrolling=no src="Spread/picon1.asp"></iframe></td>
</tr>
<tr>
<td width="120" height="28" align="left">驴友阁子图片：</td>
<td height="28"><input name="G_photoshop" type="text" id="G_photoshop" value="no" size="40">
如果没有图片请保留<font color="#FF0000">no</font>，否则不能通过验证！</td>
</tr>
<tr align="left">
<td height="70" colspan="2">
1：可以不提供图片，但是不提供图片请不要改变no；驴友阁子中将显示文本广告(网站名称+网站介绍)。<br>
2：图片不得含有六合彩、三级、成人、色情、做爱、强奸、偷拍、情色、反动、暴力等法律不允许画面。<br>
3：图片尺寸:100*100像素；只能是静态的GIF或jpg图片，不可以是GIF动画或Flash!
3：注册成功以后每换一次图片将从新审核一次。</td>
</tr>
<tr>
<td height="28" align="right"> </td>
<td height="28"><table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left"><input type="submit" name="Submit" value="确定加盟"></td>
<td align="right"><input type="reset" name="Submit2" value="重新填写"></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
<!--底线注册超过2000家可以删除-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#887872"></td>
</tr>
</table>
<!--底部代码开始-->
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -