Open landv opened 1 year ago
<%@LANGUAGE="VBSCRIPT"%> <!--#include file = '../../include/conn.asp'--> <!--#include file = '../../include/encode.asp'--> <% ' dim sql_level,rs_level ' sql_level="select d.code membership,v.code vip_code,v.name vip_name from dic_card_membership d,dic_vip_level_svc v where d.code=v.membership_code" ' set rs_level=server.CreateObject("adodb.recordset") ' set rs_level = conn.execute(sql_level) dim sql , rs card_no = "0808" sql = "select sum(1) as f from member_info_svc where card_no = '" & card_no & "'" set rs=conn.execute(sql) response.Write sql response.Write rs("f") response.End %>
<%Option Explicit%> <!--#include file = '../../include/conn.asp'--> <!--#include file = '../../include/encode.asp'--> <% 'by:landv 20200310 '在不记名批量发卡增加开始卡号字段 '修改提交数据方式为ajax dim sql,rs dim member_title,member_country,member_language dim member_department,member_position,member_id_type dim getpwd_rights 'dim member_chname,member_engname,member_linkman,member_id_no sql = "select top 1 code from dic_title order by sort_id" set rs = conn.execute(sql) member_title=trim(rs("code")) sql = "select top 1 code from dic_country order by sort_id" set rs = conn.execute(sql) member_country=trim(rs("code")) sql = "select top 1 code from dic_language order by sort_id" set rs = conn.execute(sql) member_language=trim(rs("code")) sql = "select top 1 code from dic_position order by sort_id" set rs = conn.execute(sql) member_position=trim(rs("code")) sql = "select top 1 code from dic_title order by sort_id" set rs = conn.execute(sql) member_id_type=trim(rs("code")) sql = "select top 1 code from dic_card_department order by sort_id" set rs = conn.execute(sql) member_department=trim(rs("code")) '批量获得卡密码权限控制 getpwd_rights= fn_check_right(session("user_code") ,"S257") 'entry数组 dim rsEntry,cntEntry,i,sqlEntry sqlEntry="select code,name,months from dic_card_entry order by sort_id" set rsEntry=conn.execute(sqlEntry) cntEntry=rsEntry.recordcount if cntEntry>0 then redim arrEntry(cntEntry,3) rsEntry.movefirst for i=1 to cntEntry arrEntry(i,0)=trim(rsEntry("code")) arrEntry(i,1)=trim(rsEntry("name")) arrEntry(i,2)=trim(rsEntry("months")) rsEntry.movenext next end if dim membership_type membership_type=trim(request("sel_membership")) %> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=gb2312" /> <link rel="stylesheet" type="text/css" href="../../include/main.css" /> <script language="javascript"> var vRoot='<%=Application("vroot")%>'; </script> <script type="text/javascript" src="../../include/cele_date.js"></script> <script type="text/javascript" src="../../include/checkinfo.js"></script> <%include_jquery() ' 引入jquery.js%> <script type="text/javascript"> init(); function get_s_date(t1,t2) { show_cele_date (t1,"1900-1-1","<%=calendar_end_year%>-12-31",t2,'',0, 70) ; } function get_s_date2(t1,t2) { show_cele_date (t1,"1900-1-1","<%=calendar_end_year%>-12-31",t2,'',0,400) ; } function fn_oksubmit() { if(form1.sel_membership.value=="") { alert("<%=f_glo("SR002071")%>"); return false; } if(form1.sel_vip_level.value=="") { alert("<%=f_glo("SM000052")%>"); return false; } if (form1.card_num.value=="") { alert("<%=f_glo("SM002546")%>"); return false; } if (form1.member_source.value=="") { alert("<%=f_glo("SM002547")%>"); return false } // by landv 20200310 // form1.action="memberinfo_add_batch_save.asp"; // form1.submit(); $.ajax({ type: "POST", url: "memberinfo_add_batch_save_new.asp", data: $('#form1').serialize(), success: function(data) { alert(data); }, error: function(){ alert("异常!"); } }); } // by landv 20200310 function fn_get_expire_date() { var v1=form1.enroll_date.value; var v2=""; if (v1!="" && CheckDate(v1,2)==true) { //得到当前选中entry的months var sel=form1.sel_entry.selectedIndex+1; var mm=0; if (<%=cntEntry%>>0) { <%for i=1 to cntEntry%> if (sel==<%=i%>) { mm="<%=arrEntry(i,2)%>"; } <%next%> } //调用vbscript函数,以得加月后的expire_date v2=fn_get_expire_date_vbs(v1,mm); v2=new Date(v2); var yy2=v2.getFullYear(); var mm2=v2.getMonth()+1; var dd2=v2.getDate(); v2=yy2+"-"+mm2+"-"+dd2; form1.expiry_date.value=v2; } else { form1.enroll_date.value=""; form1.expiry_date.value=""; } } function getHTML() { var url = 'initial_balance_ajax.asp'; //请求页面 var pars = 'membership_code='+$('#sel_membership').val()+'&entry_code='+$('#sel_entry').val()+'&level_code='+$('#sel_vip_level').val()+'&ajax=true'; $.ajax({ type: "POST", url: url, data: pars, success: function(text) { if(text!="invalid") { $("#init_balance").val(text); } else { $("#init_balance").val(JStrToMoney(0.00)); } } }); } function fn_change_card_type(card_type) { form1.action="memberinfo_add_batch_input.asp"; form1.submit(); } </script> <script type="text/vbscript"> function fn_get_expire_date_vbs(v1,m) fn_get_expire_date_vbs=DateAdd("m",m,v1)-1 end function </script> </head> <body> <center> <h2><%=f_glo("SM002548")%></h2> <form name="form1" id="form1" class="input-9-frm"> <table border="0" cellPadding="1" cellSpacing="1" width="86%" class="input-9-tb" align="center"> <tr> <td > <%=f_glo("SR002072")%><font color="red">*</font> </td> <td> <select id="sel_membership" name="sel_membership" style="width:100%" onChange="fn_change_card_type(this.value);getHTML();"> <option value="" selected><%=f_glo("SR001844")%>.....</option> <% dim sql_ship,rs_ship sql_ship="select code,name from dic_card_membership where code in (select membership from users_membership_range where user_code='"&session("user_code")&"') and valid_type='OTHER' order by sort_id" set rs_ship=server.createobject("adodb.recordset") set rs_ship= conn.execute(sql_ship) while not rs_ship.eof %> <option value="<%=rs_ship("code")%>" <%if membership_type=rs_ship("code") then %> selected <%end if %>><%=rs_ship("name")%></option> <% rs_ship.movenext wend %> </select> </td> <td><%=f_glo("P0000019")%><font color="red">*</font></td> <td> <select id="sel_vip_level" name="sel_vip_level" style="width:100%" onChange="getHTML();"> <option value="" selected><%=f_glo("SR001844")%>.....</option> <% dim sql_level,rs_level sql_level="select d.code membership,v.code vip_code,v.name vip_name from dic_card_membership d,dic_vip_level_svc v where d.code=v.membership_code and d.code='"&membership_type & "'" set rs_level=server.CreateObject("adodb.recordset") set rs_level = conn.execute(sql_level) while not rs_level.eof %> <option value="<%=rs_level("vip_code")%>"><%=rs_level("vip_name")%></option> <% rs_level.movenext wend %> %> </select> </td> </tr> <tr> <td width="20%"><%=f_glo("SM000027")%><font color="red">*</font></td> <td width="30%"> <select id="sel_entry" name="sel_entry" style="width:100%" onChange="getHTML();"> <% rsEntry.movefirst do while not rsEntry.eof %> <option value="<%=rsEntry("code") %>"><%=rsEntry("name") %> </option> <% rsEntry.movenext loop %> </select> </td> </tr> <% '新增 landv 20200310 %> <tr> <td width="20%"><font color="red">起始卡号*</font></td> <td width="30%"><input style="width:100%;" name="start_card_num" id="start_card_num" onkeyup="value=value.replace(/[^0-9]/g,'')" /></td> <td width="20%"><%=f_glo("SM002549")%><font color="red">*</font></td> <td width="30%"><input style="width:100%;" name="card_num" id="card_num" onkeyup="value=value.replace(/[^0-9]/g,'')" /></td> </tr> <% '新增 landv 20200310 %> <tr> <td width="20%"><%=f_glo("SM002480")%></td> <td width="30%"> <select name="sel_sendtype" style="width :100%"> <%dim sql_sendtype,rs_sendtype sql_sendtype="select code,name from dic_card_sendtype order by sort_id" set rs_sendtype=conn.execute(sql_sendtype) do while not rs_sendtype.eof %> <option value="<%=rs_sendtype("code")%>"><%=rs_sendtype("name")%></option> <% rs_sendtype.movenext loop %> </select> </td> <td width="20%"><%=f_glo("SM000029")%><font color="red">*</font></td> <td width="30%"> <input type="hidden" name="member_source" id="member_source" /> <input name="member_source_name" id="member_source_name" style="width:90%;" value onClick="ShowFinder_member_source('form1.member_source','form1.member_source_name','<%=membership_type%>','','1');" readonly="readonly" /> <a href="javascript:ShowFinder_member_source('form1.member_source','form1.member_source_name','<%=membership_type%>','','1');"><img src="../../images/imgbtn_Date.jpg" align="absMiddle" border="0"></a> </td> </tr> <tr> <td width="20%"><%=f_glo("SM000031")%><font color="red">*</font></td> <td width="30%"><input style="width:100%" name="enroll_date" value="<%=date()%>" onClick="javascript:get_s_date2(form1.enroll_date,form1.enroll_date );"></td> <td width="20%"><input type="button" name="btn_to_dt" value="<%=f_glo("SM000032")%> >>" class="buttonface" style="width:85px" onclick="fn_get_expire_date();"><font color="red">*</font></td> <td width="30%"><input style="width:100%" name="expiry_date" readonly onClick="javascript:get_s_date2(form1.expiry_date,form1.expiry_date );"></td> </tr> <tr> <td width="20%"><%=f_glo("SM000034")%></td> <td width="30%"><input style="width:100%" id="init_balance" name="init_balance" onkeypress="checkMoneyNew(this.value,this.Tabindex)" value="<%=StrToMoney(0)%>" onblur="javascript:fn_toMoney(this)"></td> <td width="20%"><%=f_glo("SM000067")%></td> <td width="30%"><input style="width:100%" id="email" name="email" <%if getpwd_rights = false then %>readonly <%end if %> /></td> </tr> <tr> <td width="20%"><%=f_glo("SM000039")%></td> <td colspan="3"><textarea rows="3" cols="20" id="memo" name="memo" style="width:100%;"></textarea></td> </tr> </table> <br /> <input type="button" name="button_s" value="<%=f_glo("SM000040")%>" class="buttonface" onclick="javascript:return fn_oksubmit();"> <input type=hidden name="member_title" value="<%=member_title %>"/> <input type=hidden name="member_country" value="<%=member_country %>"/> <input type=hidden name="member_language" value="<%=member_language %>"/> <input type=hidden name="member_department" value="<%=member_department %>"/> <input type=hidden name="member_position" value="<%=member_position %>"/> <input type=hidden name="member_id_type" value="<%=member_id_type %>"/> </form> </center> </body> </html> <script language="javascript"> fn_get_expire_date(); </script> <!--#include file = '../../include/close.asp'-->
测试
memberinfo_add_batch_save.asp