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

📄 khzl_comm_tj.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="other/customer.inc" -->
<script language="javascript">
function checkForm(){
		str="请输入该公司的简称";
		if (!checkString(form.elements["index_1"],str))return false;

		str="请输入索引码!\n\n索引码为公司名中每字的第一个字母组合!\n\n例如:“天王星电脑”的索引码为“twxdn”!";
		if (!checkString(form.elements["search_1"],str))return false;

		str="请输入该公司的电话号码";
		if (!checkString(form.elements["comtel"],str))return false;
		
		str="您所输入的电话号码无效!\n\n(例如:0510-2727686)";
		if (!checkPhone(form.elements["comtel"],str))return false;

		str="您所输入的传真号码无效!\n\n(例如:0510-2727686)";
		if (!checkPhone(form.elements["comfax"],str))return false;

		str="请输入公司地址!";
		if (!checkString(form.elements["address_1"],str))return false;

		if (form.elements["email"].value!=""){
		str="请输入正确的Email地址!\n\n(例如:webmaster@chinawatertreatment.com)";
		if (!checkEmail(form.elements["email"],str)) return false;     
		}
}
</script>


<%
	' 将数据中的单引号改成两个单引号,并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function

			'与数据库*.mdb建立连接
			Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
			sql = "Insert Into company (index) Values( "
			sql = sql & SqlStr("晨景软体_webcool") & ")"
			'发送sql指令,加入信息
			conn.Execute sql
			
			name="晨景软体_webcool"
			SET rs=CONN.EXECUTE("SELECT id FROM company WHERE index='"&name&"'")

%>

<html>
<head>
<title>『晨景软体』-客户资源管理系统    </title>
<meta http-equiv="Content-Type" content="text/html;">
<style>
.drag{position:relative;cursor:hand}
</style>
<script language="JavaScript">
var dragapproved=false
var eventsource,x,y
function move()
 {
  if (event.button==1&&dragapproved) //改变被拖动元素在页面上的位置
   {
    self.moveBy (event.clientX-x,event.clientY-y); //改变窗体位置
    return false
   }
 }
function drags()
 {
  if (!document.all)
  return
  if (event.srcElement.className=="drag") //捕捉鼠标当前位置
   {
    dragapproved=true//确信当前鼠标是按下
    x=event.clientX//鼠标当前位置
    y=event.clientY//鼠标当前位置
    document.onmousemove=move//调动move函数
   }
 }
document.onmousedown=drags   //鼠标左键按下时,准备拖动
document.onmouseup=new Function("dragapproved=false")//鼠标左键放开时,拖动停止
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<link rel="stylesheet" href="other/customer.css">
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" width="374" height="194">
 <form name="form" action="khzl_comm_tj_1.asp" method="post">
  <tr>
    <td width="17"><img src="images/spacer.gif" width="4" height="1" border="0"></td>
    <td width="411"><img src="images/spacer.gif" width="411" height="1" border="0"></td>
    <td width="4"><img src="images/spacer.gif" width="4" height="1" border="0"></td>
    <td width="1"><img src="images/spacer.gif" width="1" height="1" border="0"></td>
  </tr>

  <tr class="title">
    <td colspan="3" background="images/khzl_zltj_jb(2)_r1_c1.gif">
      <div id="Layer1" style="position:absolute; width:19px; height:14px; z-index:3; left: 397px; top: 6px"><a href="javascript:window.close()"><img src="images/xx.gif" width="13" height="13" border="0"></a></div>   &nbsp;&nbsp;&nbsp;『晨景软体』-客户资料-资料添加</td>
    <td width="1"><img src="images/spacer.gif" width="1" height="25" border="0"></td>
  </tr>
  <tr>
    <td rowspan="2" width="17"><img name="khzl_zltj_jb2_r2_c1" src="images/khzl_zltj_jb(2)_r2_c1.gif" width="4" height="474" border="0"></td>
      <td bgcolor="#cdd5e4" width="411" height="451"> 
        <table width="400" border="0" height="437" cellpadding="0" cellspacing="0" class="small" align="right">
          <tr class="small"> 
            <td width="18%" height="24"> 
              <div align="left"><font size="2" class="small">公司简称: </font></div>
            </td>
            <td height="16" width="25%"><font size="2"> 
              <input type="text" name="index_1" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" maxlength="20" class="small">
              </font></td>
            <td height="16" width="19%"><font size="2" class="small">索&nbsp;引&nbsp;码:</font> 
            </td>
            <td height="16" width="38%"><font size="2"> 
              <input type="text" name="search_1" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="10">
              </font></td>
          </tr>
          <tr class="small"> 
            <td height="2" width="18%"><font size="2" class="small">公司电话:</font></td>
            <td height="16" width="25%"> 
              <input type="text" name="comtel" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="15">
            </td>
            <td height="16" width="19%"><font size="2" class="small">公司传真:</font></td>
            <td height="16" width="38%"> 
              <input type="text" name="comfax" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="15">
            </td>
          </tr>
          <tr class="small"> 
            <td width="18%" height="25"><font size="2" class="small">法人代表:</font></td>
            <td width="25%" height="16"> 
              <input type="text" name="comman" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="8">
            </td>
            <td width="19%" height="16"><font size="2" class="small" >邮  编:</font></td>
            <td width="38%" height="16"> 
              <input type="text" name="post" size="16" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="6">
            </td>
          </tr>
          <tr class="small"> 
            <td width="18%" height="22"><font size="2" class="small">公司地址:</font></td>
            <td colspan="3" height="16"> 
              <input type="text" name="address_1" size="43" style="background-color: #cdd5e4; border-left: 0 solid #B9B9B9; border-right: 0 solid #B9B9B9; border-top: 0 solid #B9B9B9; border-bottom: 1 solid #B9B9B9" class="small" maxlength="40">
            </td>
          </tr>
          <tr> 
            <td width="18%" height="11" class="small" >登记日期:</td>
            <td colspan="3" height="16" > 
              <p> 
                <select name="nian" class="small">
                  <option>1999</option>
                  <option>2000</option>
                  <option>2001</option>
                  <option>2002</option>
                  <option>2003</option>
                  <option>2004</option>
                  <option>2005</option>
                  <option>2006</option>
                </select>

⌨️ 快捷键说明

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