add.asp

系统管理,大家可以看看,能给你不少的启发吧.

<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="check.asp"-->
<%
''''''''''''''''''''''''''''''''''''
'程序编写:james
'QQ:49566906
'E-mail:[e-mail]
''''''''''''''''''''''''''''''''''''
'添加记录
If Request.Querystring("action")="add" then
dim jiner1,jiner2,jiner3,jiner4,jiner5,jiner6,jiner7,jiner8,zjiner,kfname,bjname,cpname1,pric1,shuliang1,zshu
dim shu1,shu2,shu3,shu4,shu5,shu6,shu7,shu8,a,shuoming
a=1

    kfname=request.form("kfname")
	bjname=request.form("bjname")
	cpname1=request.form("cpname1")
	pric1=request.form("pric1")
	shuliang1=request.form("shuliang1")


If kfname="" or bjname="" or cpname1="" or pric1="" or shuliang1="" then
	Response.Write "<script>alert('请填写一份完整的报价表信息，否则无法提交！');this.location.href='add.asp';</SCRIPT>"

Else

		   shu1=request("shuliang1")*a
		   shu2=request("shuliang2")*a
		   shu3=request("shuliang3")*a
		   shu4=request("shuliang4")*a
		   shu5=request("shuliang5")*a
		   shu6=request("shuliang6")*a
		   shu7=request("shuliang7")*a
		   shu8=request("shuliang8")*a
		   zshu=shu1+shu2+shu3+shu4+shu5+shu6+shu7+shu8

    jiner1=request("pric1")*request("shuliang1")
    jiner2=request("pric2")*request("shuliang2")
    jiner3=request("pric3")*request("shuliang3")
    jiner4=request("pric4")*request("shuliang4")
    jiner5=request("pric5")*request("shuliang5")
	jiner6=request("pric6")*request("shuliang6")
	jiner7=request("pric7")*request("shuliang7")
	jiner8=request("pric8")*request("shuliang8")
    zjiner=jiner1+jiner2+jiner3+jiner4+jiner5+jiner6+jiner7+jiner8
	shuoming=request.form("shuoming")
	
	'shuoming=htmlencode(request.form("shuoming"))


Set mRs= Server.CreateObject("adodb.recordSet")
mRs.open "Select * from shuju",conn,1,3

	mRs.addnew
'记录开始  台头信息
	mRs("kfname")= request("kfname")
	mRs("bjname")= request("bjname")
	mRs("bname")= request("bname")
	mRs("date")=request("date")
	mRs("fax")= request("fax")
	mRs("tel")= request("tel")
	mRs("zjiner")=zjiner
	mRs("zhidan")= request("zhidan")
	mRs("zshu")=zshu
'1号产品	
	mRs("cpname1")= request("cpname1")
	mRs("size1")= request("size1")
	mRs("cailiao1")= request("cailiao1")
	mRs("color1")= request("color1")
	mRs("danwei1")= request("danwei1")
	mRs("pric1")= request("pric1")
	mRs("shuliang1")= request("shuliang1")
	mRs("djr1")= request("djr1")
	mRs("bz1")= request("bz1")
	mRs("jiner1")= jiner1
'2号产品
	mRs("cpname2")= request("cpname2")
	mRs("size2")= request("size2")
	mRs("cailiao2")= request("cailiao2")
	mRs("color2")= request("color2")
	mRs("danwei2")= request("danwei2")
	mRs("pric2")= request("pric2")
	mRs("shuliang2")= request("shuliang2")
	mRs("djr2")= request("djr2")
	mRs("bz2")= request("bz2")
	mRs("jiner2")= jiner2
'3号产品
	mRs("cpname3")= request("cpname3")
	mRs("size3")= request("size3")
	mRs("cailiao3")= request("cailiao3")
	mRs("color3")= request("color3")
	mRs("danwei3")= request("danwei3")
	mRs("pric3")= request("pric3")
	mRs("shuliang3")= request("shuliang3")
	mRs("djr3")= request("djr3")
	mRs("bz3")= request("bz3")
	mRs("jiner3")= jiner3	
'4号产品
	mRs("cpname4")= request("cpname4")
	mRs("size4")= request("size4")
	mRs("cailiao4")= request("cailiao4")
	mRs("color4")= request("color4")
	mRs("danwei4")= request("danwei4")
	mRs("pric4")= request("pric4")
	mRs("shuliang4")= request("shuliang4")
	mRs("djr4")= request("djr4")
	mRs("bz4")= request("bz4")
	mRs("jiner4")= jiner4
'5号产品
	mRs("cpname5")= request("cpname5")
	mRs("size5")= request("size5")
	mRs("cailiao5")= request("cailiao5")
	mRs("color5")= request("color5")
	mRs("danwei5")= request("danwei5")
	mRs("pric5")= request("pric5")
	mRs("shuliang5")= request("shuliang5")
	mRs("djr5")= request("djr5")
	mRs("bz5")= request("bz5")
	mRs("jiner5")= jiner5
'6号产品
	mRs("cpname6")= request("cpname6")
	mRs("size6")= request("size6")
	mRs("cailiao6")= request("cailiao6")
	mRs("color6")= request("color6")
	mRs("danwei6")= request("danwei6")
	mRs("pric6")= request("pric6")
	mRs("shuliang6")= request("shuliang6")
	mRs("djr6")= request("djr6")
	mRs("bz6")= request("bz6")
	mRs("jiner6")= jiner6	
'7号产品
	mRs("cpname7")= request("cpname7")
	mRs("size7")= request("size7")
	mRs("cailiao7")= request("cailiao7")
	mRs("color7")= request("color7")
	mRs("danwei7")= request("danwei7")
	mRs("pric7")= request("pric7")
	mRs("shuliang7")= request("shuliang7")
	mRs("djr7")= request("djr7")
	mRs("bz7")= request("bz7")
	mRs("jiner7")= jiner7
'8号产品
	mRs("cpname8")= request("cpname8")
	mRs("size8")= request("size8")
	mRs("cailiao8")= request("cailiao8")
	mRs("color8")= request("color8")
	mRs("danwei8")= request("danwei8")
	mRs("pric8")= request("pric8")
	mRs("shuliang8")= request("shuliang8")
	mRs("djr8")= request("djr8")
	mRs("bz8")= request("bz8")
	mRs("jiner8")= jiner8			
	
	mRs("shuoming")= shuoming
	mRs.update
	Response.Write"<script>alert('新报价单提交完成！');this.location.href='index.asp';</SCRIPT>"
'End If
mRs.close
Set mRs=nothing
End If
conn.close
Set conn=nothing
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =Title %> - 登记新报价</title>
<style type="text/css">
<!--
.STYLE5 {color: #FF6600}
.STYLE6 {color: #FF0000}
-->
</style>
<!--#include file="head.asp"-->		
<div align="center">
  <p class="STYLE6">新加一份报价单　</p>
  <table width="892" border="0" cellpadding="0" cellspacing="0" background="img/bg_header_aurora.jpg">
	<tr bgcolor="#FFFFFF">
		<td width="892" bordercolor="#808080">
		<form name="form" method="post" action="add.asp?action=add" >
			<table border="1" width="892" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF">
			  <tr>
                <td align="right" width="112">
				<p align="left">TO:</td>
			    <td width="121"><input name="kfname" type="text" id="kfname" value="客户名称" size="10" maxlength="30"></td>
			    <td width="58">From:</td>
			    <td width="64"><input name="bjname" type="text" id="bjname" value="报价人" size="8" maxlength="30"></td>
			    <td width="64">币别:</td>
			    <td width="98"><select name="bname" id="bname" size="1">
                  <option>CNY/￥</option>
                  <option>HK$/HKD</option>
                  <option>$</option>
                </select></td>
			    <td width="48">日期:</td>
			    <td width="151"><input name="date" type="text" id="date" size="10" value="<%=date%>" maxlength="30"></td>
			    <td width="12">　</td>
			    <td width="122">　</td>
		      </tr>
			  <tr>
                <td align="center" width="112"><strong><font size="2"><%=Len1%></font></strong></td>
			    <td align="center" width="121"><strong><font size="2"><%=Len2%></font></strong></td>
			    <td align="center" width="58"><strong><font size="2"><%=Len3%></font></strong></td>
			    <td align="center" width="64"><strong><font size="2"><%=Len4%></font></strong></td>
			    <td align="center" width="64"><strong><font size="2"><%=Len5%></font></strong></td>
			    <td align="center" width="98"><span class="STYLE6">单价(元)</span></td>
			    <td align="center" width="48"><span class="STYLE6">数量</span></td>
			    <td align="center" width="151"><strong><font size="2"><%=Len6%></font></strong></td>
			    <td width="12" align="center">　</td>
			    <td width="122" align="center"><strong><font size="2"><%=Len7%></font></strong></td>
		      </tr>
			  <tr>
                <td align="left" width="112"><label>
                  <input name="cpname1" type="text" id="cpname1" value="数据1" size="16" maxlength="30">
                </label></td>
			    <td align="left" width="121"><input name="size1" type="text" id="size1" value="-----" size="16" maxlength="30"></td>
			    <td align="left" width="58"><input name="cailiao1" type="text" id="cailiao1" value="--" size="8" maxlength="30"></td>
			    <td align="center" width="64"><input name="color1" type="text" id="color1" value="--" size="8" maxlength="30"></td>
			    <td align="left" width="64">
				<select name="danwei1" id="danwei1" size="1">
			      <option value="--" selected>单位</option>
			      <option>个</option>
			      <option>块</option>
			      <option>片</option>
                                                                                <option>其它					</option>
                  </select></td>
			    <td align="left" width="98"><input name="pric1" type="text" id="pric1" value="1.00" size="8" maxlength="8"></td>
			    <td align="left" width="48"><input name="shuliang1" type="text" id="shuliang1" value="1" size="4" maxlength="6"></td>
			    <td align="left" width="151"><input name="djr1" type="text" id="djr1" value="数据N" size="20" maxlength="40"></td>
			    <td width="12" align="left">　</td>