<!DOCclassid HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="conn.asp"-->
<!--#include file="manager/checkstr.asp"-->
<%response.Buffer=true%>
<HTML><HEAD>
<TITLE>欢迎光临:::番禺消费网:::</TITLE>
<META http-equiv=Content-classid content="text/html; charset=gb2312">
<META content=加入都市俱乐部，享受消费打折优惠。 name=Description>
<META content="都市便e店, 便e店,娱乐,茶馆,中餐,西餐,景点,酒店,美容美发,运动健身,桑拿足浴,生活购物,精品消费"
name=Keywords>
<STYLE classid=text/css></STYLE>
<LINK href="images/style_life.css" classid=text/css
rel=stylesheet>
<STYLE classid=text/css>
@import url("CSS/menu.css");
.style3 {color: #FFFFFF}
.style2 {color: #FFFFFF}
body {
background-image: url();
}
.style6 {color: #FF0000}
</STYLE>
<script language="JavaScript">
<!--
function checkform()
{
if(document.add.myname.value=="")
{
window.alert("请输入名称！");
document.add.myname.focus();
return false;
}
if(document.add.tel1.value=="")
{
window.alert("请输入电话！");
document.add.tel1.focus();
return false;
}
if (!chkemail(document.add.email.value)&&document.add.email.value!="")
{
alert("Email地址不正确！");
return false;
}
return true;
}
function chkemail(a)
{
var i=a.length;
var temp = a.indexOf('@');
var tempd = a.indexOf('.');
if (temp > 1) {
if ((i-temp) > 3){
if (tempd!=-1){
return 1;
}
}
}
return 0;
}
-->
</script>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY>
<!-- logo_banner /-->
<!--#include file="top.asp"-->
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#666666>
<form name=form1 method="get" action="select.asp">
<tr>
<td width=254><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50"> </td>
<td><span class="style3">您的位置：<a href="index.asp" target="_parent" class="style3">首页</a>>注册消费卡</span></td>
</tr>
</table></td>
<td width="506"><table width=100% border=0 cellspacing=0 cellpadding=0>
<!--DWLayoutTable-->
<tr>
<td width=38 height="21"> </td>
<td width="31" valign="middle"><span class="style3">类别</span> </td>
<td width="85">
<select name=selecttype id="SearshType">
<option value="none">所有类别</option>
<%
set rsop=conn.execute("select * from myclass order by id")
do while not rsop.eof
response.write "<option value='"+CStr(rsop(0))+"'>"+rsop(1)+"</option>"+chr(13)+chr(10)
rsop.movenext
loop
rsop.close
set rsop=nothing
%>
</select>
</td>
<td width="93" valign="middle"><span class="style3">商家名称</span></td>
<td width="200" valign="middle"><input name=sjname type=text id="sjname" size=20></td>
<td width="59" valign="top"><input type="submit" name="Submit" value="搜索"></td>
</tr>
</table></td>
</tr>
</form>
</table>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td width=193 height=2 bgcolor=#d7d7d7></td>
<td height=2 bgcolor=#999999></td>
</tr>
</table>
<!-- 特别推荐 -->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD height=4></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width=192 height="293" align=left vAlign=top
background="images/life_list_bgleft.gif">
<TABLE cellSpacing=0 cellPadding=0 width=192 border=0>
<TBODY>
<TR>
<TD><table class="more" width="192" height="26" border="0" cellpadding="0" cellspacing="0" bgcolor="#FE9305">
<tr>
<td><span class="color_04"> ■ 特别推荐</span><span class="style3"> </span> <a href="morehot.asp" target="_parent"></a></td>
<td><a href="moretuijian.asp?info=2" target="_parent"><span class="style4">More...</span></a></td>
</tr>
</table></TD>
</TR>
<TR>
<TD class=bg1 vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<!--DWLayoutTable-->
<TBODY>
<%
dim n
n=0
set rstj=server.CreateObject("adodb.recordset")
sqltj="select top 12 * from sjdata where tj='2' and ok='1' order by id desc"
rstj.open sqltj,conn,1,1
if not rstj.bof and rstj.eof then
response.Write("无相关内容")
else
%>
<%
do while not rstj.eof
n=n+1
%>
<TR>
<TD width="182" height="25" valign="top">
<img src="images/left_dian.gif"> <A href="clientv.asp?info=<%=rstj("id")%>&info2=<%=rstj("classid")%>&info3=<%=rstj("sjname")%>" target=_blank><%=rstj("sjname")%></A></TD>
</TR>
<%
if n>=12 then exit do
rstj.movenext
loop
end if
rstj.close
set rstj=nothing
%>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
</TD>
<TD width=1 align=middle vAlign=top
background="images/line_v.gif"><IMG height=46
src="images/life_list_04.gif" width=1></TD>
<TD width=560 vAlign=top>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#eeeeee">
<form action="add_car.asp" method="post" name="add" onSubmit="return checkform()">
<tr align="center" valign="middle" bgcolor="#FE9305">
<td height="25" colspan="2"><span class="style3">注册消费卡</span></td>
</tr>
<tr bgcolor="#ffffff">
<td width="196" height="25" align="right">姓 名：</td>
<td width="361" height="25"><input name="myname" id="myname" style="width:300px" maxlength="100">
<span class="style6">(必填)</span></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">性 别：</td>
<td height="25"><input type="radio" name="sex" value="男" checked>男士 <input type="radio" name="sex" value="女">女士</td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">年 龄：</td>
<td height="25"><input name="age" size="2" maxlength="2"> 岁</td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">住 址：</td>
<td height="25"><input name="address" style="width:300px" maxlength="100"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">电 话：</td>
<td height="25"><input name="tel1" style="width:300px" maxlength="30">
<span class="style6">(必填)</span></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">手 机：</td>
<td height="25"><input name="tel2" style="width:300px" maxlength="30"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">邮 箱：</td>
<td height="25"><input name="email" style="width:300px" maxlength="50"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">Ｑ Ｑ：</td>
<td height="25"><input name="qq" style="width:300px" maxlength="20"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">消费习惯：</td>
<td height="25"><select name="xiguan"><option value="注重价格">注重价格</option><option value="注重质量">注重质量</option><option value="注重品牌">注重品牌</option></select></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">消费者权益：</td>
<td height="25"><select name="quanyi"><option value="了解">了解</option><option value="简单了解">简单了解</option><option value="不了解">不了解</option></select></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">最常去的消费场所：</td>
<td height="25"><input name="changqu" style="width:300px" maxlength="100"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">最想去的消费场所：</td>
<td height="25"><input name="xiangqu" style="width:300px" maxlength="100"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">印象最差的消费场所：</td>
<td height="25"><input name="bad" style="width:300px" maxlength="100"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对消费的看法：</td>
<td height="25"><input name="kanfa1" style="width:300px" maxlength="200"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对消费的期望：</td>
<td height="25"><input name="qiwang" style="width:300px" maxlength="200"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对加盟商家的看法：</td>
<td height="25"><input name="kanfa2" style="width:300px" maxlength="200"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">最想那家商家加盟：</td>
<td height="25"><input name="zuixiang" style="width:300px" maxlength="200"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对消费卡相应的推广活动（有奖品派送）：</td>
<td height="25"><select name="tuiguang"><option value="想参加">想参加</option><option value="不感兴趣">不感兴趣</option></select></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对商家举办的促销或赠送活动：</td>
<td height="25"><select name="cuxiao"><option value="非常想参与">非常想参与</option><option value="有时间会参与">有时间会参与</option><option value="不感兴趣">不感兴趣</option></select></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" align="right">对定期回访调查活动：</td>
<td height="25"><select name="huifang"><option value="感兴趣">感兴趣</option><option value="无所谓">无所谓</option><option value="不感兴趣">不感兴趣</option><option value="抗拒">抗拒</option></select></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" colspan="2" align="center">
<input type="submit" name="submit" value="提 交"> <input type="reset" value="取 消"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="25" colspan="2">注：本资料仅做为本中心完善消费卡相关服务而设，本中心保证对此资料保密。在接到您的申请后本中心会尽快处理，令你早日可拥有消费卡。请配合本中心做好相应的工作。谢谢！咨询电话：020--84872108</td>
</tr>
</form>
</table>
</TD>
</TR>
</TBODY></TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="2" bgcolor="#FF6600"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</BODY></HTML>
<%
dim myname,sex,age,address,tel1,tel2,email,qq,xiguan,quanyi,changqu,xiangqu,bad
dim kanfa1,qiwang,kanfa2,zuixiang,tuiguang,cuxiao,huifang
dim active
active=request.Form("submit")
if active="提 交" then
myname=Checkstr(trim(request.Form("myname")))
sex=Checkstr(trim(request.Form("sex")))
age=Checkstr(trim(request.Form("age")))
address=Checkstr(trim(request.Form("address")))
tel1=Checkstr(trim(request.Form("tel1")))
tel2=Checkstr(trim(request.Form("tel2")))
email=Checkstr(trim(request.Form("email")))
qq=Checkstr(trim(request.Form("qq")))
xiguan=Checkstr(trim(request.Form("xiguan")))
quanyi=Checkstr(trim(request.Form("quanyi")))
changqu=Checkstr(trim(request.Form("changqu")))
xiangqu=Checkstr(trim(request.Form("xiangqu")))
bad=Checkstr(trim(request.Form("bad")))
kanfa1=Checkstr(trim(request.Form("kanfa1")))
qiwang=Checkstr(trim(request.Form("qiwang")))
kanfa2=Checkstr(trim(request.Form("kanfa2")))
zuixiang=Checkstr(trim(request.Form("zuixiang")))
tuiguang=Checkstr(trim(request.Form("tuiguang")))
cuxiao=Checkstr(trim(request.Form("cuxiao")))
huifang=Checkstr(trim(request.Form("huifang")))
set rs=server.CreateObject("adodb.recordset")
sql="insert into car(myname,sex,age,address,tel1,tel2,email,qq,xiguan,quanyi,changqu,xiangqu,bad,kanfa1,qiwang,kanfa2,zuixiang,tuiguang,cuxiao,huifang) "&_
"values('"&myname&"','"&sex&"','"&age&"','"&address&"','"&tel1&"','"&tel2&"','"&email&"','"&qq&"','"&xiguan&"','"&quanyi&"','"&changqu&"','"&xiangqu&"'"&_
",'"&bad&"','"&kanfa1&"','"&qiwang&"','"&kanfa2&"','"&zuixiang&"','"&tuiguang&"','"&cuxiao&"','"&huifang&"')"
rs.open sql,conn,1,3
if err.number<>0 then
err.clear
response.Write("<script language=javascript>alert('数据库操作失败');")
response.Write("Javascript:history.go(-1)</script>")
else
response.Write "<script language=Javascript>alert('申请成功！请到:广州市番禺市桥德信路25号3楼302（即德兴大桥旁） 领卡.');"
response.Write "window.location='add_car.asp';</script>"
end if
end if
%>
<%
conn.close
set conn=nothing
%>
