📄 lianxiadd.asp

📁 企业网上办公自动化通过对各办公自动化要素的闭环整合
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<%
	if request("post")<>"" then 
	call www
	end if 
	function www
			Email=request("email")
		if request("name")="" or  request("tel")="" or  request("address")="" or request("qq")="" or request("email")="" then
			response.Write("<script language=javascript>alert('请把信息填写完整！');location='javascript:history.go(-1)'</script>")
		'判断输入的email地址的格式是否正确
		elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
			response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确！');" & "history.back()" & "</script>"
		Response.End
		else
			set rs1=server.CreateObject("adodb.recordset")
			sql1="select * from lianxi"
			rs1.open sql1,conn,1,3
			rs1.addnew
			rs1("lanmu")=request("lanmu")
			rs1("name")=request("name")
			rs1("tel")=request("tel")
			rs1("address")=request("address")
			rs1("qq")=request("qq")
			rs1("email")=request("email")
			rs1.update
			rs1.close
			response.Redirect("chenggong.htm")
		end if 
	end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-size: 16px;
	font-weight: bold;
	color: #0000FF;
}
body {
	background-color: #ffffff;
}
body,td,th {
	font-size: 12px;
}
.style2 {color: #FFFFFF}
.style3 {
	font-size: 14px;
	color: #000000;
}
-->
</style>
<link href="biaodan.css" rel="stylesheet" type="text/css">
</head>

<body>
<form name="form1" method="post" action="">
  <table width="337" height="272" border="0" align="center" cellspacing="1" bgcolor="#336699">
    <tr>
      <td height="41" colspan="2" background="images/tile_sub.gif"><div align="center" class="style1 style2 style3">添加名片详细信息</div></td>
    </tr>
    <tr>
      <td width="87" bgcolor="#FFFFFF"><div align="right">选择名片夹：</div></td>
      <td width="240" bgcolor="#FFFFFF">　
        <select name="lanmu" class="unnamed1" id="lanmu">
        <%
	  set rs=server.CreateObject("adodb.recordset")
	  sql="select * from lanmu where name='"&session("admin_name")&"'"
	  rs.open sql,conn,1,1
	  if not rs.eof then
	  max=rs.recordcount
	  for i=1 to max
	   %>
        <option value=<%=rs("id")%>><%=rs("lanmu")%></option>
        <%
		rs.movenext
		next
		else
		response.Write("<script language=javascript>alert('您还没有添加名片夹');location='javascript:history.go(-1)'</script>")
		end if
		rs.close
		%>
      </select>        
      <input name="post" type="hidden" id="post" value="true"></td></tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">姓名：</div></td>
      <td bgcolor="#FFFFFF">　
        <input name="name" type="text" class="unnamed1" id="name"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">电话：</div></td>
      <td bgcolor="#FFFFFF">　
        <input name="tel" type="text" class="unnamed1" id="tel"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">地址：</div></td>
      <td bgcolor="#FFFFFF">　
        <input name="address" type="text" class="unnamed1" id="address"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">QQ：</div></td>
      <td bgcolor="#FFFFFF">　
        <input name="qq" type="text" class="unnamed1" id="qq"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">email:</div></td>
      <td bgcolor="#FFFFFF">　
        <input name="email" type="text" class="unnamed1" id="email"></td>
    </tr>
    <tr bgcolor="#F3F3F3">
      <td colspan="2" height="35"><div align="center">
        <input type="submit" name="Submit" value="提交">
        　
        <input type="reset" name="Submit2" value="重置">
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>
⌨️ 快捷键说明

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