⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addmember.asp

📁 公司通讯录 Jaddress 1.0
💻 ASP
字号:
<!--#include file="top.htm"-->
<!--#include file="db.asp"-->
<!--#include file="session.asp"-->
<body><table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="25%" valign="top" rowspan="2">
  <table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
    <%mess="个 人 通 讯 记 录 列 表"
    add=request("add")
    if add="on" then
                cmp=request("cmp")
                name=request("name")
                sort=request("sort")
                email=request("email")
                tel=request("tel")
                telf=request("telf")
                mob=request("mob")
                cz=request("cz")
                if sort="" then
                 sort="-"
                 end if
                 if email="" then
                 email="-"
                 end if
                 if tel="" then
                 tel="-"
                 end if
                 if telf="" then
                 telf="-"
                 end if
                 if mob="" then
                 mob="-"
                 end if
                 if cz="" then
                 cz="-"
                 end if
                 if email="" then
                 email="-"
                 end if
    strSql = "insert into address(name,sort,cmp,email,tel,telf,mob,cz) values('"&name&"','"&sort&"','"&cmp&"','"&email&"','"&tel&"','"&telf&"','"&mob&"','"&cz&"')"
	conn.Execute strSql
	mess="添加新记录成功!"
	end if
    Set rsd = Server.CreateObject("ADODB.Recordset")
    sql="Select * From cp Order By id"
rsd.open sql,Conn,3,3
do while not rsd.eof
%>
    <tr>
      <td width="100%" class="coolButton" height="30"><a href=default.asp?id=<%=rsd("id")%> target=_self title=<%=rsd("comp")%>详细情况><%=rsd("comp")%></a></td>
    </tr>
    <%rsd.MoveNext
Loop%>
  </table>
    </td>
    <td width="75%" valign="top">
<form action=addmember.asp target=_self><input type="hidden" name="add" value="on">
  <div align="center">
      <table border="2" width="90%" bordercolorlight="#000000" cellspacing="1" cellpadding="0" bordercolordark="#000000">
        <tr>
          <td width="67%" align="right">
            <p align="left">&nbsp;姓名:<input type="text" name="name" size="15" style="font-size: 9pt">&nbsp;所属公司:<select name="cmp" style="font-size: 9pt">
    <option value="1" selected>请选择所在公司</option>
    <%rsd.movefirst
    do while not rsd.eof%>
    <option value="<%=rsd("id")%>"><%=rsd("comp")%></option><%rsd.MoveNext
Loop
rsd.close%>
  </select></p>
          </td>
    <center>
          <td width="26%" rowspan="2">
            <p align="center"><input type="submit" value="添  加" style="font-size: 12pt"></td>
        </tr>
    </center>
        <tr>
          <td width="82%" align="right">
            <p align="left">&nbsp;部门及职位:<input type="text" name="cmp1" size="20" style="font-size: 9pt"> 
            EMAIL:<input type="text" name="email" size="20" style="font-size: 9pt"></p>
          </td>
        </tr>
        <tr>
          <td width="100%" align="right" colspan="2">
            <p align="left">&nbsp;办公电话:<input type="text" name="tel" size="10" style="font-size: 9pt">分机:<input type="text" name="telf" size="8" style="font-size: 9pt">手机或传呼:<input type="text" name="mob" size="10" style="font-size: 9pt">传真:<input type="text" name="cz" size="10" style="font-size: 9pt"></p>
          </td>                 
    <center>
    </center>
    <center>
        </tr>
      </table>
    </center>
  </div>
    </form></td>
  </tr>
  <tr>
    <td width="75%" valign="top">
      <p align="center"><font color="#FF0000"><%=mess%></font><iframe src="listmember.asp?curpage=0" width=100% height=250></iframe>
      </p>
    </td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -