<!--#include file="../include/Conn.jsp"-->
<!--#include file="../Include/Char.jsp" -->
<!--#include file="../include/md5.jsp"-->
<!--#include file="Admin_IsLogin.jsp" -->
<%

'Define Variable 
dim i
dim rs
dim mGrade,mSql,mFlag,mBgColor


'initialization 
mFlag=true'add

'Display
if request("action")="edit" then 
 'Read
 mSql="Select * From T_CardMember Where F_ID="&Request.QueryString("ModifyID")
 Set rs = conn.Execute(mSql)
 if Not rs.Eof then 
	  m_CardNumber = rs("F_CardNumber")
	  m_RealName = rs("F_RealName")
	  m_Sex = rs("F_Sex")
	  m_IDCard = rs("F_IDCard")
	  m_Address = rs("F_Address")
	  m_Zipcode = rs("F_Zipcode")
	  m_Corp = rs("F_Corp")
	  m_CorpTel = rs("F_CorpTel")
	  m_Corpaddress = rs("F_CorpAddress")
	  m_Birthday = rs("F_Birthday")
	  m_Tel = rs("F_Tel")
	  m_Email = rs("F_Email")
	  m_Mobile = rs("F_Mobile")
	  m_Pas = rs("F_Pas")
	  m_BuyCardTime = rs("F_BuyCardTime")
	  m_AvailabilityTime = rs("F_AvailabilityTime")
	  m_IsSecrecy = rs("F_IsSecrecy")
	  m_IsFree = rs("F_IsFree")
 End if
 mFlag=false
 rs.Close
end if

if Request.ServerVariables("REQUEST_METHOD")="POST" and Request.Querystring("action")<>"Search" then
   
   mModifyID = Request.Querystring("ModifyID")
   mCardNumber = checkStr(Trim(Request.Form("txtCardNumber")))
   mRealName = checkStr(Trim(Request.Form("txtRealName")))
   mSex = checkStr(Trim(Request.Form("radSex")))
   mIDCard = checkStr(Trim(Request.Form("txtIDCard")))
   mBirthday = checkStr(Trim(Request.Form("txtBirthday")))
   mAddress = checkStr(Trim(Request.Form("txtAddress")))
   mZipcode = checkStr(Trim(Request.Form("txtZipcode")))
   mEmail = checkStr(Trim(Request.Form("txtEmail")))
   mCorp = checkStr(Trim(Request.Form("txtCorp")))
   mCorpTel = checkStr(Trim(Request.Form("txtCorpTel")))
   mCorpAddress = checkStr(Trim(Request.Form("txtCorpAddress")))
   mTel = checkStr(Trim(Request.Form("txtTel")))
   mMobile = checkStr(Trim(Request.Form("txtMobile")))
   mPas = checkStr(Trim(Request.Form("txtPas")))
   mSecrecy = checkStr(Trim(Request.Form("selSecrecy")))
   mIsFree = Request.Form("radIsFree")
   mCardNumber = checkStr(Trim(Request.Form("txtCardNumber")))
   mAvailabilityTime = checkStr(Trim(Request.Form("txtAvailabilityTime")))
   mBuyCardTime = checkStr(Trim(Request.Form("txtBuyCardTime")))
   mMemo = checkStr(rTrim(Request.Form("txtMemo")))
   

  
   If Request.QueryString("action") = "Insert" then
    mSql = "Select * From T_CardMember Where F_CardNumber='"&mCardNumber&"'"
	Set rs = conn.Execute(mSql)
	if not rs.Eof then
	   rs.Close
	   call msgbox("对不起，该卡号的数据已录入",1)
	   response.end
	end if
     mSql = "Insert Into T_CardMember(F_CardNumber,F_RealName,F_Sex,F_IDCard,F_Birthday,F_Address,F_Zipcode,F_Corp,F_Email,F_CorpAddress,F_CorpTel,F_Tel,F_Mobile,F_Pas,F_IsFree,F_IsSecrecy,F_AvailabilityTime,F_BuyCardTime,F_Memo)"
     mSql = mSql +"Values('"&mCardNumber&"','"&mRealName&"',"&mSex&",'"&mIDCard&"','"&mBirthday&"','"&mAddress&"','"&mZipcode&"','"&mCorp&"','"&mEmail&"','"&mCorpAddress&"','"&mCorpTel&"','"&mTel&"','"&mMobile&"','"&mPas&"',"&mIsFree&","&mSecrecy&",'"&mAvailabilityTime&"','"&mBuyCardTime&"','"&mMemo&"')"
     conn.Execute(mSql)
   Else
     mSql = "UPDATE T_CardMember SET"
     mSql = mSql+" F_CardNumber='"&mCardNumber&"',"
	 mSql = mSql+" F_RealName='"&mRealName&"',"
     mSql = mSql+" F_Sex='"&mSex&"',"
     mSql = mSql+" F_IDCard='"&mIDCard&"',"
     mSql = mSql+" F_Birthday='"&mBirthday&"',"
     mSql = mSql+" F_Address='"&mAddress&"',"
     mSql = mSql+" F_Zipcode='"&mZipcode&"',"
     mSql = mSql+" F_Corp='"&mCorp&"'," 
     mSql = mSql+" F_Email='"&mEmail&"'," 
     mSql = mSql+" F_CorpAddress='"&mCorpAddress&"'," 
     mSql = mSql+" F_CorpTel='"&mCorpTel&"'," 
     mSql = mSql+" F_Tel='"&mTel&"'," 
     mSql = mSql+" F_Mobile='"&mMobile&"'," 
     mSql = mSql+" F_Pas='"&mPas&"'," 
     mSql = mSql+" F_IsFree="&mIsFree&"," 
     mSql = mSql+" F_IsSecrecy="&mSecrecy&"," 
     'mSql = mSql+" F_CardNumber="&mCardNumber&"," 
     mSql = mSql+" F_AvailabilityTime="&mAvailabilityTime&"," 
     mSql = mSql+" F_BuyCardTime="&mBuyCardTime&"," 
     mSql = mSql+" F_Memo='"&mMemo&"'" 
     mSql = mSql +" WHERE F_ID = " & mModifyID
     conn.execute(mSql)
   End if
   Call CloseDatabase()
   Response.redirect "Admin_CardMember2.jsp?action=IsModify&pageno="&Request("pageno")
End if

'Delect Records
if request("action")="Delete" then
  mSql = "DELETE FROM T_CardMember WHERE F_ID=" &Request.QueryString("DeleteID")
  conn.execute mSql
  Response.write "<script>location.replace('Admin_CardMember2.jsp?action=IsDelete&pageno="&Request.Querystring("pageno")&"')</script>"
end if
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
function jDelete(url)
{
  if((confirm(" 警告:请确定是否删除,删除后不能恢复! "))==true) 
	self.location=url+'&action=Delete';
}
</SCRIPT>
<script language="javascript">
function CheckData(){
  if (document.form1.txtRealName.value=="")
   {
    alert("对不起,用户名不能为空，请输入！");
	document.form1.txtRealName.focus();
	return false;
   }
}
</script>
</head>
<body text="#000000" >

	  <%	admin_flag=",0|11|0,"

      if instr(session("flag"),admin_flag)=0 or isnull(session("flag"))=true then
         Response.write "<br><br><br><br><b><font color=red>对不起，您没有管理本页面的权限!</font></B>"
		 Response.end
	  end if
      %>
<br>
<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
           <tr> 
          
    <th height="22" colspan="8" align="center" sytle="line-height:150%">数据查询</th>
        </tr> 
	      <tr>
            <form name="frmSearch" method="post" action="Admin_CardMember2.jsp?action=Search">
              <td height="33" align="center" bgcolor="#FFFFFF" class=forumRow> 请输入关键字 
                <input class="INPUT" type="text" name="Keywords" >
                <input name="btnSearch" type="submit"  value="搜索"> </td>
            </form>
          </tr>
        </table>
        
<br>
<table class=tableBorder width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
 
  <tr> 
    <td>
	
	<table  width="100%" border="0" cellspacing="1" cellpadding="2" align="center">
        <tr> 
          <th height="22" colspan="11" align="center" sytle="line-height:150%">会员列表</th>
        </tr>
        <tr  align="center"> 
          <td class=forumHeaderBackgroundAlternate width="3%"><b>ID</b></td>
          <td class=forumHeaderBackgroundAlternate width="5%"><b>都市卡号</b></td>
          <td class=forumHeaderBackgroundAlternate width="5%"><b>姓名</b></td>
          <td class=forumHeaderBackgroundAlternate width="2%"><strong>性别</strong></td>
          <td class=forumHeaderBackgroundAlternate width="7%"><b>手机</b></td>
          <td class=forumHeaderBackgroundAlternate width="9%"><b>身份证</b></td>
          <td class=forumHeaderBackgroundAlternate width="9%"><b>购卡时间</b></td>
          <td class=forumHeaderBackgroundAlternate width="3%"><strong>购买</strong></td>
          <td class=forumHeaderBackgroundAlternate width="3%"><strong>挂<b>购</b></strong></td>
          <td class=forumHeaderBackgroundAlternate width="7%"><b>管理<a title="添加记录" href='Admin_CardMember2.jsp?pageno=<%=mPage%>#anInsert'>[添加]</a></b></td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
        <%  
    m_Keywords = Trim(Request("Keywords"))
	Set rs=Server.createobject("Adodb.RecordSet")
    pageno=request.querystring("pageno")
    pmcount=25  
    m_SQL = "SELECT * FROM T_CardMember WHERE (F_IsFree=0)"
    m_SQL = m_SQL +" and (F_RealName like  '%" & m_Keywords & "%'"
	m_SQL = m_SQL +" or F_CardNumber like  '%" & m_Keywords & "%'"
	m_SQL = m_SQL +" or F_IDCard like  '%" & m_Keywords & "%')"
	m_SQl = m_SQL + " ORDER BY F_ID DESC"
	rs.open m_SQL,conn,1,1
	if rs.eof then
	   'response.write "<br><p  align='center'><font color=red><B> 对不起，数据已清空！</B></font></p>"
    else
    rs.pagesize=pmcount
    mpage=rs.pagecount
    if pageno="" then pageno=1
    if  cint(pageno)<1 or cint(pageno)>mpage then  pageno=1
    rs.absolutepage=pageno

 Dim rc,re
 rc=rs.pagesize
 re=1
 do while not rs.eof and rc>0
 mBgColor=Request.Querystring("BgColor")
 if Trim(rs("F_ID"))=Trim(mBgColor) then mColor= "D6DFFF" else mColor= "ffffff"
%>
        <tr bgcolor="<%=mColor%>"   onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EBEEF6'" > 
          <td class=forumRow  width="3%" align="center"><%=rs("F_ID")%></td>
          <td class=forumRow width="5%" align="center" > <%=rs("F_CardNumber")%> </td>
          <td class=forumRow width="5%" align="center" > <a href="Admin_CardMember2.jsp?action=edit&ModifyID=<%=rs("F_ID")%>&BgColor=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>#anModify"><%=rs("F_RealName")%></a> </td>
          <td class=forumRow width="2%" align="center" > <% if rs("F_Sex")<>"" then
			     if rs("F_Sex")=1 then Response.write "男" else Response.write "女"
			   end if
			 %> </td>
          <td class=forumRow width="7%" ><%=rs("F_Mobile")%></td>
          <td class=forumRow width="9%" ><%=rs("F_IDCard")%></td>
          <td class=forumRow width="9%" align="center" ><%=left(rs("F_BuyCardTime"),10)%></td>
          <td class=forumRow width="3%" align="center" ><%if rs("F_IsFree") = 1 then Response.write "<font color=red>否</font>" else Response.write "是"%></td>
          <td class=forumRow width="3%" align="center" > <%
			'推荐处理
			if Request("action") = "IsRegsiter" then
			  mIsRegsiter = Request("IsRegsiter")
			  if mIsRegsiter=1 then mIsRegsiter = 0 else mIsRegsiter = 1
			  mSql = "update T_CardMember Set F_IsRegister= "&mIsRegsiter&" Where F_ID="&Request("ID")
              conn.execute(mSql)
			  Response.redirect "Admin_CardMember2.jsp?pageno="&Request("pageno")
			end if
			Response.Write "<a href='Admin_CardMember2.jsp?action=IsRegsiter&IsRegsiter="&rs("F_IsRegister")&"&pageno="&Request("pageno")&"&ID="&rs("F_ID")&"'>"
			if rs("F_IsRegister")=1 then Response.Write "<font color=red>是</font>" Else Response.write "否"
			Response.Write "</a>"
			%> </td>
          <td class=forumRow width="7%" align="center" ><a title="修改记录" href='Admin_CardMember2.jsp?action=edit&ModifyID=<%=rs("F_ID")%>&BgColor=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>#anModify'><font color="#666666">[修改]</font></a><a title="请确定是否删除,删除后不能恢复!" href="javascript:jDelete('Admin_CardMember2.jsp?DeleteID=<%=rs("F_ID")%>&pageno=<%=cstr(pageno)%>')"><font color="#666666">[删除]</font></a></td>
        </tr>
        <%
 rs.movenext
 re=re+1
 rc=rc-1
 loop
 end if
%>
      </table>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="FFFFFF">
        <tr> 
          <td class=forumRow width="51%" height="22"> &nbsp;共 <font color=red><strong>
            <% = rs.recordcount%>
            </strong></font> 条记录 当前第 <font color=red><strong>
            <% = Trim(pageno)%>
            </strong></font>页/共 <font color=red><strong>
            <% = Trim(mpage)%>
            </strong></font>页 </td>
          <td class=forumRow width="49%" align="right"> 
            <%
if pageno="" then pageno=1
if pageno>1 then
   response.write "<a href='Admin_CardMember2.jsp'> <img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'>"
end if

if pageno>1 then
   response.write "<a href='Admin_CardMember2.jsp?pageno="&pageno-1&"'><img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'>"
end if

add=5'数字分页个数+1
if pageno-int(add/2)<=1 then m=1 else m=pageno-int(add/2)
if m+add>mpage then 
   n=mpage
   if mpage-add<=1 then m=1 else m=mpage-add
else
   n=m+add
end if

for pno=m to n
 if pno=cint(pageno) then
   response.write "&nbsp;<font color=red>"&pno&"</font>"
 else
   response.write "<b>&nbsp;<a href='Admin_CardMember2.jsp?pageno="&pno&"'>"&pno&"</a></b>"
 end if
next
response.write "&nbsp"

if int(pageno) < int(rs.pagecount) then
  response.write "<a href='Admin_CardMember2.jsp?pageno="&pageno+1&"'><img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'></a>"
else 
  response.write "<img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'>"
end if

if int(pageno) < int(rs.pagecount) then
   response.write "<a href='Admin_CardMember2.jsp?pageno="&mpage&"'><img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'>"
end if
Response.write "&nbsp;&nbsp;"
%>
          </td>
        </tr>
      </table>
        </td>
  </tr>
</table>
<br>
<%if mFlag=true then'add%>
<form name="form1" method="post" action="Admin_CardMember2.jsp?action=Insert&pageno=<%=request("pageno")%>" onSubmit="return CheckData()">
  <a name="add"></a> 
  <table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
        <tr> 
          
      <th height="22" colspan="9" align="center" sytle="line-height:150%">功能：新增记录</th>
        </tr>
              
			  <tr> 
                  
      <td class=forumRow width="12%" height="17"><font color="#FF0000">都市卡号：</font></td>
                  <td class=forumRowHighlight width="88%">
<input class="INPUT" name="txtCardNumber" type="text" size="21" maxlength="8">
        <input type="submit" name="Submit3" value="提交" class="button"> </td>
                </tr>
			    <tr> 
                  <td class=forumRow width="12%" height="19">会员姓名：</td>
                  <td class=forumRowHighlight width="88%">
<input name="txtRealName" type="text" class="INPUT" value="<%=request("realname")%>" size="21" maxlength="20">
                    性　　别： 
                    <input name=radSex type=radio value=1 checked >
                    男 
                    <input name=radSex type=radio value=2 >
                    女</td>
                </tr>
                <tr> 
                  <td  class=forumRow width="12%" height="8">出生日期：</td>
                  <td class=forumRowHighlight width="88%">
<input class="INPUT" name="txtBirthday" type="text" size="21" maxlength="20"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="9"><font color="#FF0000">身 份 证：</font></td>
                  <td class=forumRowHighlight>
<input name="txtIDCard" type="text" class="INPUT" value="<%=request("idcard")%>" size="30" maxlength="18"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="22">家庭地址：</td>
                  <td class=forumRowHighlight width="88%">
<input name="txtAddress" type="text" class="INPUT" value="<%=request("homeaddress")%>" size="39" maxlength="20">
                    邮　　编： 
                    <input name="txtZipcode" type="text" class="INPUT" value="<%=request("zipcode")%>" size="15" maxlength="6"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="-1">单　　位：</td>
                  <td class=forumRowHighlight width="88%">
<input name="txtCorp" type="text" class="INPUT" value="<%=request("company")%>" size="39" maxlength="120"> 
                  </td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="1">电子邮件：</td>
                  <td class=forumRowHighlight>
<input name="txtEmail" type="text" class="INPUT" value="<%=request("email")%>" size="39" maxlength="120"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="0">单位地址：</td>
                  <td class=forumRowHighlight>
<input class="INPUT" name="txtCorpAddress" type="text" size="39" maxlength="220"> 
                  </td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="2">单位电话：</td>
                  <td class=forumRowHighlight>
<input class="INPUT" name="txtCorpTel" type="text" size="16" maxlength="30"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="9">宅　　电：</td>
                  <td class=forumRowHighlight>
<input name="txtTel" type="text" class="INPUT" value="<%=request("tel")%>" size="16" maxlength="30">
        <font color="#FF0000">手　　机：</font> 
        <input name="txtMobile" type="text"  class="INPUT" value="<%=request("mobile")%>" size="30" maxlength="30">
                    小 灵 通： 
                    <input name="txtPas" type="text" class="INPUT" size="15" maxlength="30"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="19">&nbsp;</td>
                  <td class=forumRowHighlight width="88%">&nbsp; </td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="17">购卡日期：</td>
      <td class=forumRowHighlight width="88%"> 
        <input name="txtBuyCardTime" type="text" class="INPUT" size="14" maxlength="20">
                    有效日期： 
                    <input name="txtAvailabilityTime" type="text" class="INPUT" size="15" maxlength="20"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="3">卡 密 码：</td>
                  <td class=forumRowHighlight>
<input name="txtPassword" type="text" class="INPUT" size="16" maxlength="20">
                    否何保密： 
                    <select class=SELECT name="selSecrecy">
                      <option value="1" >保密</option>
                      <option value="0" >不保密</option>
                    </select></td>
                </tr>
                <tr> 
                  <td class=forumRow height="4">是否免费：</td>
                  <td class=forumRowHighlight>
				  <input  name=radIsFree type=radio value=1 >
                    是 
                    <input name=radIsFree type=radio  value=0 checked>
                    否</td>
                </tr>
                <tr> 
                  
      <td class=forumRow>备　　注： </td>
                  <td class=forumRowHighlight><textarea class="INPUT" name="txtMemo" cols="70" rows="6" ><%=request("memo")%></textarea></td>
                </tr>
                <tr> 
                  <td class=forumRow height="37" colspan="2">
				      <input type="submit" name="Submit" value="提交" class="button"> 
                      <input type="reSet" name="Submit2" value="重置" class="button"></td>
                </tr>
              </table>

            </form>
<%else%>
<form name="form1" method="post" action="Admin_CardMember2.jsp?action=Modify&pageno=<%=request("pageno")%>&ModifyID=<%=request("ModifyID")%>" onSubmit="return CheckData()">
<table class=tableBorder width="95%" border="0" align="center" cellpadding="2" cellspacing="1">
        <tr> 
          
      <th height="22" colspan="9" align="center" sytle="line-height:150%">功能：修改记录</th>
        </tr>
               <tr> 
                  
      <td class=forumRow width="12%" height="17"><font color="#FF0000">都市卡号：</font></td>
                  <td class=forumRowHighlight width="88%"><input class="INPUT" name="txtCardNumber" type="text"   value="<%=m_CardNumber%>" size="21" maxlength="8">
      </td>
                </tr>
			    <tr> 
                  <td class=forumRow width="12%" height="19">会员姓名：</td>
                  <td class=forumRowHighlight width="88%"><input name="txtRealName" class="INPUT" type="text"   value="<%=m_RealName%>" size="21" maxlength="20">
                    性　　别： 
                    <input name=radSex type=radio value=1 <%if m_Sex="1" then Response.Write "checked"%>>
                    男 
                    <input name=radSex type=radio value=2 <%if m_Sex="2" then Response.Write "checked"%>>
                    女</td>
                </tr>
                <tr> 
                  <td  class=forumRow width="12%" height="8">出生日期：</td>
                  <td class=forumRowHighlight width="88%"><input class="INPUT" name="txtBirthday" type="text"   value="<%=m_Birthday%>" size="21" maxlength="20"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="9"><font color="#FF0000">身 份 证：</font></td>
                  <td class=forumRowHighlight><input class="INPUT" name="txtIDCard" type="text"   value="<%=m_IDCard%>" size="30" maxlength="20"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="22">家庭地址：</td>
                  <td class=forumRowHighlight width="88%"><input class="INPUT" name="txtAddress" type="text"   value="<%=m_Address%>" size="39" maxlength="120">
                    邮　　编： 
                    <input name="txtZipcode" type="text" class="INPUT"   value="<%= m_Zipcode%>" size="15" maxlength="6"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="-1">单　　位：</td>
                  <td class=forumRowHighlight width="88%"><input class="INPUT" name="txtCorp" type="text"   value="<%=m_Corp%>" size="39" maxlength="120"> 
                  </td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="1">电子邮件：</td>
                  <td class=forumRowHighlight><input name="txtEmail" class="INPUT" type="text"   value="<%=m_Email%>" size="39" maxlength="120"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="0">单位地址：</td>
                  <td class=forumRowHighlight><input class="INPUT" name="txtCorpAddress" type="text"   value="<%=m_CorpAddress%>" size="39" maxlength="120"> 
                  </td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="2">单位电话：</td>
                  <td class=forumRowHighlight><input class="INPUT" name="txtCorpTel" type="text"   value="<%=m_CorpTel%>" size="16" maxlength="30"></td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="9">宅　　电：</td>
                  <td class=forumRowHighlight><input class="INPUT" name="txtTel" type="text"   value="<%=m_Tel%>" size="16" maxlength="30">
        <font color="#FF0000">手　　机：</font> 
        <input name="txtMobile" type="text"  class="INPUT"  value="<%=m_Mobile%>" size="30" maxlength="30">
                    小 灵 通： 
                    <input name="txtPas" type="text" class="INPUT"   value="<%=m_Pas%>" size="15" maxlength="30"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="19">&nbsp;</td>
                  <td class=forumRowHighlight width="88%">&nbsp; </td>
                </tr>
                <tr> 
                  
      <td class=forumRow width="12%" height="17">购卡日期：</td>
      <td class=forumRowHighlight width="88%">
<input name="txtBuyCardTime" type="text" class="INPUT"   value="<%=m_BuyCardTime%>" size="14" maxlength="20">
                    有效日期： 
                    <input name="txtAvailabilityTime" type="text" class="INPUT"   value="<%=m_AvailabilityTime%>" size="15" maxlength="20"></td>
                </tr>
                <tr> 
                  <td class=forumRow width="12%" height="3">卡 密 码：</td>
                  <td class=forumRowHighlight><input name="txtPassword" type="text" class="INPUT"   value="<%=m_Password%>" size="16" maxlength="20">
                    否何保密： 
                    <select class=SELECT name="selSecrecy">
                      <option value="1" <%if m_IsSecrecy = 1 then Response.write "selected"%>>保密</option>
                      <option value="0" <%if m_IsSecrecy = 0 then Response.write "selected"%>>不保密</option>
                    </select></td>
                </tr>
                <tr> 
                  <td class=forumRow height="4">是否免费：</td>
                  <td class=forumRowHighlight>
				  <input  name=radIsFree type=radio value=1 
				 <%
				  if m_IsFree="1" then Response.Write "checked"%>>
                    是 
                    <input name=radIsFree type=radio  value=0 <%if m_IsFree="0" then Response.Write "checked"%>>
                    否</td>
                </tr>
                <tr> 
                  
      <td class=forumRow>备　　注： </td>
                  <td class=forumRowHighlight><textarea class="INPUT" name="txtMemo" cols="70" rows="6" ><%=mMemo%></textarea></td>
                </tr>
                <tr> 
                  <td class=forumRow height="37" colspan="2">
				      <input type="submit" name="Submit" value="提交" class="button"> 
                      <input type="reSet" name="Submit2" value="重置" class="button"></td>
                </tr>
              </table>

            </form>

        <%end if%>


</body>
</html>
<%
 rs.close
 CloseDatabase
%>
