📄 regok.asp
字号:
<!--#include file="../../Include/AdoConn.asp"-->
<%
set rst=server.CreateObject ("adodb.recordset")
strsql="select top 1 * from xt_td_user"
rst.Open strsql,conn
code=Request("code")
if code<>"" then'修改
for i=1 to 17
strSet=strSet & rst(i).name & "=" & "'" & Request("textfield" & cstr(i+1)) & "'"
if i<>17 then
strSet=strSet+","
end if
next
strsql="update xt_td_user set " & strSet & " where 会员卡号='" & code & "'"
conn.execute (strsql)
session("UID")=code
session("呢称")= Request("textfield3")
else'新增
'''''''''''''''''''''检查数据库内是否有此用户呢称
set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 呢称 from xt_td_user where 呢称='"& Request("textfield3") &"'"
rst2.Open strsql,conn,3,2
if not rst2.EOF then
%>
<script Language="JavaScript">
<!--
alert("系统中已有此呢称，请选用其他呢称!");
history.back(-1);
// -->
</script>
<%
error=1
end if
'''''''''''''''''''''检查结束
'''''''''''''''''''''确定会员卡号
'会员卡号：8位号:第一位为9为新注册会员，否则为卡会员
userType=Request("usertype")'会员职位编码
if userType="0" then '老会员
if len(trim(request("textfield1")))<8 or (not isnumeric(request("textfield1"))) then
%>
<script Language="JavaScript">
<!--
alert("原卡号输入错误!");
history.back(-1);
// -->
</script>
<%
error=1
end if
userCode=trim(Request("textfield1"))
else'新会员
set rst1=server.CreateObject ("ADODB.recordset")
StrSQL="select max(会员卡号) from XT_TD_user where left(会员卡号,1)='9'"
set rst1=conn.execute(StrSQL)
if isnull(rst1(0)) then
userCode="90000000"
else
userCode=cstr(clng(rst1(0))+1)
end if
end if
'''''''''''''''''''''结束
if error<>1 then
dim strTitle,strValue'记录自动生成form\rst.fields语句的变量
strTitle=rst(0).name+","
strValue="'" & userCode & "'"+","
for i=1 to 16
strTitle=strTitle & rst(i).name
strValue=strValue & "'" & Request("textfield" & cstr(i+1)) & "'"
if i<>16 then
strTitle=strTitle+","
strValue=strValue+","
end if
next
strsql="insert into XT_TD_user (" & strTitle & ") values (" & strValue & ")"
conn.execute (strsql)
end if
session("UID")=usercode
session("呢称")= Request("textfield3")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>BBS论坛</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>TD {
FONT-SIZE: 12px
}
P {
FONT-SIZE: 12px
}
LI {
FONT-SIZE: 12px
}
INPUT {
FONT-SIZE: 12px
}
SELECT {
FONT-SIZE: 12px
}
A.a01:link {
COLOR: #333333; TEXT-DECORATION: none
}
A.a01:visited {
COLOR: #993333; TEXT-DECORATION: none
}
A.a01:active {
COLOR: #333333; TEXT-DECORATION: none
}
A.a01:hover {
COLOR: #ff0000; TEXT-DECORATION: underline
}
A.a02:link {
COLOR: #666666; TEXT-DECORATION: underline
}
A.a02:visited {
COLOR: #666666; TEXT-DECORATION: underline
}
A.a02:active {
COLOR: #666666; TEXT-DECORATION: underline
}
A.a02:hover {
COLOR: #666666; TEXT-DECORATION: none
}
A.a03:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A.a03:visited {
COLOR: #cccccc; TEXT-DECORATION: none
}
A.a03:active {
COLOR: #cccccc; TEXT-DECORATION: none
}
A.a03:hover {
COLOR: #cccccc; TEXT-DECORATION: underline
}
A.a04:link {
COLOR: #000000; TEXT-DECORATION: none
}
A.a04:visited {
COLOR: #999999 ; TEXT-DECORATION: none
}
A.a04:active {
COLOR: #999999; TEXT-DECORATION: none
}
A.a04:hover {
COLOR: #999999; TEXT-DECORATION: underline
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY bgColor=#666666 leftMargin=0 text=#000000 marginheight="0"
marginwidth="0">
<TABLE bgColor=#cccccc border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<tr>
<td valign="top" height="21" bgcolor="#f1f1f1" width="276"><font size="2"> 会员注册_填写信息</font></td>
<td valign="top" bgcolor="#f1f1f1" height="21" align="right">
① ②
<font color="#FF0000">③ </font>
</td>
</tr>
<TR>
<TD align=middle height=329 vAlign=top colspan="2">
<TABLE border=0 cellPadding=0 cellSpacing=0 height="80%" width="50%">
<TBODY>
<TR>
<TD align=middle><IMG height=128 src="../bbs/images/bbs_pic23.gif"
width=198></TD>
</TR>
<TR>
<TD align=middle>
<P style="LINE-HEIGHT: 150%"><b>恒奇欢迎您的到来，请记住您的会员卡号</b>
<BR><font color="#FF0000"><%=session("UID")%></font><br>
请您继续定制自己的头像</P></TD></TR>
<TR>
<TD align=middle><IMG height=32 onclick="location.href='../bbs/faces.asp'"
src="../bbs/images/bbs_pic24.gif" style="CURSOR: hand"
width=113></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD colspan="2">
</TD></TR>
</TBODY></TABLE>
<table width="100%" border="0" bgcolor="#f1f1f1" cellpadding="0" cellspacing="0">
<tr>
<td width="2%" height="22" valign="top"> </td>
<td width="12%" valign="middle" align="left" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../index.asp"><font size="2">首页</font></a></td>
<td width="12%" valign="middle" align="left" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../Hotel/hotel_query.asp"><font size="2">酒店预订</font></a></td>
<td width="12%" valign="middle" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../plane/plane_query.asp"><font size="2">机票预订</font></a>
</td>
<td width="12%" valign="middle" align="left" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../CAR/Rentcar.htm"><font size="2">汽车租赁</font></a></td>
<td width="12%" valign="middle" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../City/city_query.asp"><font size="2">城市指南</font></a>
</td>
<td width="12%" valign="middle" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../TRIP/TRIP.HTM"><font size="2">旅游指南</font> </a>
</td>
<td width="12%" valign="middle" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../member/member_query.asp"><font size="2">会员中心</font></a></td>
<td width="12%" valign="middle" ><img src="../Images/biaoti_zy_4.gif" width="4" height="8">
<a class="a04" href="../Bbs/default.asp"><font size="2">BBS</font></a>
</td>
<td width="2%" valign="top"> </td>
</tr>
</table>
<table bgColor="#cccccc" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<td align="middle" bgColor="#666666" height="40"><font color="#cccccc">Copyright©
www.heng7.net All rights reserved.<br>
Email:ybquan@21cn.com</font></td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -