28,390
社区成员
发帖
与我相关
我的任务
分享大侠们我求教一个问题
表单提交程序 不知道为什么 khmc这个参数传不过去 哪个大侠帮我解决一下
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK
href="cssD1.css" rel=stylesheet>
<title>添加客户表单添加</title>
</head>
<body>
<table width="100%" height="197" border="1" align="left" cellpadding="0" cellspacing="0">
<form action="submitclient.asp " method="post">
<tr bgcolor="#5582aa">
<td height="31" colspan="2"><div align="center"><font color="#FFFFFF"><strong>添加客户</strong></font></div></td>
</tr>
<tr>
<td width="3%" height="164" background="img/bor0101.gif"> </td>
<td width="97%" align="center"> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" class="A2">
<tr bgcolor="#999999">
<td height="16" colspan="4">
<div align="center"><font color="#FFFFFF">添加客户信息</font></div></td>
</tr>
<tr>
<td width="18%">客户名称：</td>
<td width="31%"><input name="khmc" type="text" id="khmc" size="20"></td>
<td width="19%">联系人 ：</td>
<td width="32%"><input name="lxr" type="text" id="lxr" size="20"></td>
</tr>
<tr>
<td>客户来源：</td>
<td><select name="khly" id="khly">
<%
set rs1=server.CreateObject("adodb.recordset")
SQL="select * from souce "
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<option><%=rs1("souce")%></option>
<%rs1.movenext
loop
%>
</select></td>
<td>手机号码：</td>
<td><input name="mob" type="text" id="mob" size="11"></td>
</tr>
<tr>
<td>联系方式：</td>
<td> <input name="tel" type="text" id="tel" size="10"></td>
<td>电子邮件：</td>
<td><input name="mail" type="text" id="mail" size="20"></td>
</tr>
<tr>
<td>客户类型：</td>
<td> <select name="crmkind" id="crmkind">
<%
set rs2=server.CreateObject("adodb.recordset")
SQL="select * from crmkind "
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option><%=rs2("crmkind")%></option>
<%rs2.movenext
loop
%>
</select></td>
<td>详细地址：</td>
<td><input name="address" type="text" id="address"></td>
</tr>
<tr>
<td height="26">传真电话：</td>
<td><input name="fax" type="text" id="fax" size="20"></td>
<td>客户购买产品：</td>
<td><select name="product" id="product">
<%
set rs3=server.CreateObject("adodb.recordset")
SQL="select * from product "
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<option selected><%=rs3("product")%></option>
<%rs3.movenext
loop
%>
</select></td>
</tr>
<tr>
<td height="24">询问产品报价：</td>
<td colspan="3"><textarea name="bz" cols="50" id="bz"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="添加"></td>
<td> </td>
<td> </td>
</tr>
</table></td>
</tr>
</form>
</table>
</body>
</html>
提交程序
<!--#include file="conn.asp"-->
<%
khmc=request.Form("khmc")
lxr=request.Form("lxr")
khly=request.Form("khly")
mob=request.Form("mob")
tel=request.Form("tel")
mail=request.Form("mail")
crmkind=request.Form("crmkind")
address=request.form ("address")
fax=request.Form("fax")
bz=request.Form("bz")
time1=time()
product=request.Form("product")
set rs=server.CreateObject("adodb.recordset")
SQL="select * from crm "
rs.open sql,conn,1,3
rs.addnew
rs("gsname")=gsname
rs("lxr")=lxr
rs("khly")=khly
rs("mob")=mob
rs("tel")=tel
rs("mail")=mail
rs("crmkind")=crmkind
rs("address")=address
rs("fax")=fax
rs("bz")=bz
rs("time1")=date()
rs("product")=product
rs.update()
response.Write("添加成功")
%>
...全文
请发表友善的回复…
发表回复
