?? huiyuan_add.asp
字號:
<%
if session("username")="" then
%>
<script language="javascript">
top.location.href="../login.asp"
</script>
<%
response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<html>
<head>
<title><%=dianming%> - 添加會員</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style2.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
if fla4="0" then
%>
<br><center><font color="#FF0000">你不具備此權(quán)限，請與管理員聯(lián)系！</font></center>
<%
response.end
end if
%>
<%if request("hid1")="" then%>
<script language="javascript">
function check()
{
if (document.form1.username.value==""||document.form1.card.value=="")
{
alert("有*號的必須填寫！");
return false;
}
}
</script>
<form name="form1">
<table width="98%" border="0" cellpadding="0" cellspacing="2" align="center">
<tr>
<td height="21"> <img src="../Images/ico/ico29.gif" width="32" height="32" hspace="2" vspace="2" align="absmiddle"><font size="+1"><strong> 添加會員</strong></font></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="2" align="center" class="TableMenu">
<tr class="a1" style="color:#ffffff;font-size:12px;">
<th height="30" style="color:#ffffff;font-size:14px" colspan="2"><img src="../images/add.gif" border="0" hspace="2" align="absmiddle">會員基本資料填寫 <font size="-1">(帶*號的為必填項)</font></th>
</tr>
<tr class="a3">
<td width="28%" height="30" align="right"><b>會員姓名：</b> </td>
<td width="72%"> <input type="text" name="username" style="width:200px">
<font color="#ff0000">*</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>會員性別：</b> </td>
<td> <input type="radio" name="xinbie" value="女" checked="checked">
女
<input type="radio" name="xinbie" value="男">
男 </td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>聯(lián)系電話：</b> </td>
<td> <input type="text" name="tel" style="width:200px"></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>家庭住址：</b></td>
<td> <input type="text" name="address" style="width:300px"></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>身份證號：</b></td>
<td> <input type="text" name="sfz" style="width:300px"></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>介紹人：</b></td>
<td width="70%">
<input name="huiyuan2" readonly onClick="JavaScript:window.open('../huiyuan/huiyuan.asp?form=form1&field=jieshao&field2=huiyuan2&field3=huiyuan3','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=895,height=503,top=142,left=115');" style="width:90px" value="單擊選擇會員"> <input type="text" name="huiyuan3" style="width:150px" readonly><input type="hidden" name="jieshao"></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>會員卡號：</b></td>
<td> <input type="text" name="card" style="width:300px"> <font color="#ff0000">*</font></td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>經(jīng)辦人：</b></td>
<td>
<%
sql="select * from login order by id"
set rs_login=conn.execute(sql)
if rs_login.eof then
%>
<a href="user_add.asp">先添加員工</a>
<%
else
%>
<select name="login">
<%
do while rs_login.eof=false
%>
<option value="<%=rs_login("username")%>"<%if rs_login("username")=session("username") then%> selected="selected"<%end if%>><%=rs_login("username")%></option>
<%
rs_login.movenext
loop
%>
</select>
<%
end if
%>
</td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>會員生日：</b></td>
<td>
<select name="shenri1">
<%for x=1930 to 2006%>
<option value="<%=x%>"<%if x=1970 then%> selected="selected"<%end if%>><%=x%></option>
<%next%>
</select> 年
<select name="shenri2">
<%for x=1 to 12%>
<option value="<%=x%>"><%=x%></option>
<%next%>
</select> 月
<select name="shenri3">
<%for x=1 to 31%>
<option value="<%=x%>"><%=x%></option>
<%next%>
</select> 日
<select name="yinyan">
<option value="陰">陰歷</option>
<option value="陽">陽歷</option>
</select>
</td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" height="30"><b>入會時間：</b></td>
<td> <input name="startdate" value="<%=date()%>" readonly onClick="JavaScript:window.open('day.asp?form=form1&field=startdate&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=500,left=520');" style="width:150px"></td>
</tr>
<tr class="a3">
<td align="right" height="30"><b>備注：</b></td>
<td> <textarea name="beizhu" cols="70" rows="4"></textarea></td>
</tr>
<tr bgcolor="#ffffff">
<td height="30"> </td>
<td> <input type="submit" value=" 確認添加 " onClick="return check()">
<input type="hidden" name="hid1" value="ok">
<input type="reset" value=" 重新填寫 "> </td>
</tr>
</table>
</form>
<%
else
nowusername=request("username")
nowxinbie=request("xinbie")
nowtel=request("tel")
nowaddress=request("address")
nowsfz=request("sfz")
nowjieshao=request("jieshao")
nowcard=request("card")
nowlogin=request("login")
nowstartdate=request("startdate")
nowshenri1=request("shenri1")
nowshenri2=request("shenri2")
nowshenri3=request("shenri3")
nowyinyan=request("yinyan")
nowshenri=nowshenri1&"-"&nowshenri2&"-"&nowshenri3
nowenddate=cdate(nowstartdate)+365
nowbeizhu=request("beizhu")
sql="select * from huiyuan where card='"&nowcard&"'"
set rs=conn.execute(sql)
if rs.eof=false then
%>
<script language="javascript">
alert("您輸入的會員卡號已經(jīng)存在，請重新輸入！")
window.history.go(-1)
</script>
<%
response.end
end if
if nowjieshao="" then
nowjieshao=0
else
sql="update huiyuan set jifen=jifen+"&jieshaojifen&" where id="&nowjieshao
conn.execute(sql)
end if
sql="insert into huiyuan(username,xinbie,tel,address,sfz,jieshao,card,login,startdate,shenri,enddate,beizhu,yinyan) values('"&nowusername&"','"&nowxinbie&"','"&nowtel&"','"&nowaddress&"','"&nowsfz&"',"&nowjieshao&",'"&nowcard&"','"&nowlogin&"',#"&nowstartdate&"#,#"&nowshenri&"#,#"&nowenddate&"#,'"&nowbeizhu&"','"&nowyinyan&"')"
conn.execute(sql)
%>
<script language="javascript">
alert("會員添加成功！")
window.location.href="huiyuan.asp"
</script>
<%
end if
%>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -