<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<% Call IsBrower() %>
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<script language="javascript">
function openChild(webname,k)
{
var picname=window.showModalDialog(webname,window,"dialogWidth:350px;status:no;dialogHeight:110px");
if(k == 1)//判断是否刷新
{
if(picname!=undefined)
document.Frm.UserPic.value=picname;
}
}
</script>
<table width="779" height="450" border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
<tr bgcolor="#FFFFFF">
<td width="161" valign="top" class="w9pt"><!--#include file="AdminLeft.asp"-->
</td>
<td width="615" align="center" valign="top"><br>
<br>
<table width="90%" border="0" cellpadding="0" cellspacing="1" class="TableAll">
<tr>
<td height="25" align="center" class="TrTop">增加会员信息</td>
</tr>
<tr>
<td height="30" align="center" class="TrBody"><form action="" method="post" name="Frm" id="Frm" onSubmit="return Search();">
<table border="0" cellpadding="5" cellspacing="1" class="TableAll">
<tr class="TrBody">
<td width="60" align="right">会员姓名</td>
<td width="145"><input name="UserName" type="text" id="UserName" style="width:100px ">
<font color="#FF0000">*</font> </td>
<td width="48">会员卡号</td>
<td width="234"><input name="UNumber" type="text" id="UNumber" style="width:100px ">
<font color="#FF0000">*</font></td>
</tr>
<tr class="TrBody">
<td align="right">会员生日</td>
<td><input name="Uage" type="text" id="Uage" style="width:100px "></td>
<td>会员性别</td>
<td><select name="Usex" id="Usex" style="width:100px ">
<option selected>男</option>
<option>女</option>
</select></td>
</tr>
<tr class="TrBody">
<td align="right">会员积分</td>
<td><input name="PenName" type="text" id="PenName" style="width:100px "></td>
<td>身体状况</td>
<td><input name="Zk" type="text" id="Zk" style="width:100px "></td>
</tr>
<tr class="TrBody">
<td align="right">护照号码</td>
<td><input name="Hzhao" type="text" id="Hzhao" style="width:100px "></td>
<td>婚嫁状况</td>
<td><select name="UserTest" id="UserTest" style="width:100px ">
<option>未婚</option>
<option>已婚</option>
<option>保密</option>
</select></td>
</tr>
<tr class="TrBody">
<td align="right">联系电话</td>
<td><input name="Utel" type="text" id="Utel" style="width:100px "></td>
<td>有效期限</td>
<td><select name="EduType" id="EduType" style="width:100px ">
<option>一年</option>
<option>二年</option>
<option>三年</option>
<option>四年</option>
<option>五年</option>
</select></td>
</tr>
<tr class="TrBody">
<td align="right">入会方式</td>
<td><select name="UserEdu" id="UserEdu" style="width:100px ">
<option>个人</option>
<option>团体</option>
<option>家庭</option>
<option>朋友介绍</option>
</select></td>
<td>入团时间</td>
<td><input name="Rtuan" type="text" id="Rtuan" style="width:100px "></td>
</tr>
<tr class="TrBody">
<td align="right">向往国家</td>
<td><input name="Gjia" type="text" id="Gjia" style="width:100px "></td>
<td>会员照片</td>
<td><input name="UserPic" type="text" id="UserPic" value="Upload/empty.jpg" maxlength="100">
<input type="button" name="Submit3" value="上传" onClick="openChild('UpLoadPick.asp',1);"></td>
</tr>
<tr class="TrBody">
<td align="right">家庭成员</td>
<td colspan="3"><input name="Usercy" type="text" id="Usercy" size="50"></td>
</tr>
<tr class="TrBody">
<td align="right">工作单位</td>
<td colspan="3"><input name="Userdw" type="text" id="Userdw" size="50"></td>
</tr>
<tr class="TrBody">
<td align="right">家庭住址</td>
<td colspan="3"><input name="UAddr" type="text" id="UAddr" size="50"></td>
</tr>
<tr class="TrBody">
<td align="right">备注</td>
<td colspan="3"><textarea name="UserNote" cols="60" rows="5" id="UserNote"></textarea></td>
</tr>
<tr align="center" class="TrBody">
<td colspan="4"><input type="submit" name="Submit" value="开始添加">
<input type="reset" name="Submit2" value="重新填写"></td>
</tr>
<script language="javascript">
function Search()
{
if(Frm.UserName.value==""){
alert('请输入会员姓名！');
Frm.UserName.focus();
return false;
}
if(Frm.UserNum.value==""){
alert('请输入会员卡号！');
Frm.UserNum.focus();
return false;
}
return true;
}
</script>
</table>
</form></td>
</tr>
</table>
<br>
</td>
</tr>
</table>
<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserNum=ReplaceBadChar(Request.Form("UNumber"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr)
IF UserName<> "" And UserNum <> "" Then
Uage=ReplaceBadChar2(Request.Form("Uage"))
Usex=ReplaceBadChar2(Request.Form("Usex"))
PenName=ReplaceBadChar2(Request.Form("PenName"))
Zk=ReplaceBadChar2(Request.Form("Zk"))
Hzhao=ReplaceBadChar2(Request.Form("Hzhao"))
UserTest=ReplaceBadChar2(Request.Form("UserTest"))
Utel=ReplaceBadChar2(Request.Form("Utel"))
EduType=ReplaceBadChar2(Request.Form("EduType"))
Edu=ReplaceBadChar2(Request.Form("Edu"))
Rtuan=ReplaceBadChar2(Request.Form("Rtuan"))
Gjia=ReplaceBadChar2(Request.Form("Gjia"))
Pic=ReplaceBadChar2(Request.Form("Pic"))
Usercy=ReplaceBadChar2(Request.Form("Usercy"))
Userdw=ReplaceBadChar2(Request.Form("Userdw"))
UAddr=ReplaceBadChar2(Request.Form("UserAddr"))
UserNote=ReplaceBadChar2(Request.Form("UserNote"))
Udep=ReplaceBadChar2(Request.Form("XcDepID"))
Uclass=ReplaceBadChar2(Request.Form("XcClass"))
'response.Write(UserName & UserNum & UserPenName & UserAge & UserSex & UserEdu & Usertype & UserTest & UserTel & UserPic & UserNote & UserAddr & Udep & UClass)
Call IsOpr()
StrSql="Select * From XcClass Where ClassName='" + Uclass + "'"
RsClass=Conn.execute(StrSql)
'UserIn=RsClass("Intime")
'UserOut=RsClass("Outtime")
'Response.Write(UserIN)
StrSql="Select * From XcUserInfo Where UNumber='" & UserNum & "'"
Set Rsu=Conn.Execute(StrSql)
IF Rsu.Eof Then
'------------------------------------------
StrSql="Insert Into XcUserInfo(UserName,UNumber,PenName,Uage, Usex,PenName,Zk,Hzhao,Utel,EduTYpe,Edu,Rtuan,Gjia,Pic,Usercy,Userdw,UserTest,UserNote) Values('"
StrSql=StrSql & UserName & "','" & UNumber & "','"& Uage & "','" & Usex & "','"& PenName & "','"
StrSql=StrSql & Zk & "','" & Hzhao & "','"& UserTest & "','" & Utel & "','" & & EduTYpe & "','" &Edu & "','"
StrSql=StrSql & Rtuan & "','" & Gjia & "','" & Pic & "','" & Usercy & "','" & Userdw & "','"
StrSql=StrSql & UAddr & "','" & UserNote & "')"
'Response.Write(StrSql)
Conn.execute(StrSql)
'------------------------------------------
Call UserOpr(" 增加会员：" & UserName)
Call ShowMessAge("增加会员成功！","AdminInstu.asp")
Else
ShowMess("会员卡号存在，请选择其他的会员卡号！")
End IF
End IF
'===========================================
%>
上面的是代码...出现下面的错误......
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/Cvip/AdminInStu.asp, line 175, column 78
StrSql=StrSql & Zk & "','" & Hzhao & "','"& UserTest & "','" & Utel & "','" & & EduTYpe & "','" &Edu & "','"
-----------------------------------------------------------------------------^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /Cvip/AdminInStu.asp
