您所在位置：主题：存储到数据库时，下拉框和文本框怎么是相同的???
shandian84
[专家分：0] 发布于 2008-08-26 15:31:00
大家看一下代码：（就是存储到数据库时，下拉框 卡号和文本框 产品 怎么是相同的，要怎么改一下。大家帮我看看！！！）
1.sap:
<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_Member where user_shop='"&session("usershop")&"'"
rs.open sql,conn,1,1%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="style.css">
<title>本次消费信息输入</title>
</head>
<SCRIPT LANGUAGE="JavaScript">
function doFun(a, b)
{
b.value = a.value;
}
</SCRIPT>
<form method="POST" name="myform" action="2.asp">
<table width="60%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td align="center" bgcolor="#EBE9FE" >卡号</td>
<td align="center" bgcolor="#EBE9FE" >产品</td>
<td align="center" bgcolor="#EBE9FE" >消费时间</td>
<td align="center" bgcolor="#EBE9FE" >消费积分</td>
</tr>
<tr>
<td bgcolor="#EBE9FE" align="center" ><select name="user_number" onchange="doFun(user_number, user_pp)">
<option selected>请选择卡号</option>
<%do while not rs.eof%>
<option value="<%=rs("user_pp")%>"><%=rs("user_number")%></option>
<%
rs.movenext
loop%>
</select></td>
<td bgcolor="#EBE9FE" align="center" >
<input name="user_pp" type="text" size="25" > </td>
<td bgcolor="#EBE9FE" align="center" ><input type="text" name="this_time" value="<%=date()%> " /></td>
<td bgcolor="#EBE9FE" align="center" ><input type="text" name="this_score" ></td>
</tr>
<tr>
<td bgcolor="#EBE9FE" colspan="5" align="center"><input type="submit" value="提交" name="B1" ><input type="reset" value="全部重写" name="B2"> </td>
</tr>
</table>
</form>
</html>
2.asp:
<!-- #include file = "conn.asp" -->
<%
sub saveB()
dim usernumber,username,thistime,thisscore,userpp
session("usernumber")=request("user_number")
'sql="select * from user_member where user_number='"&request("user_number")&"'"
usernumber=request("user_number")
username=request("user_name")
userpp=request("user_pp")
thistime=request("this_time")
thisscore=request("this_score")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from this"
rs.open sql,conn,2,2
rs.addnew
rs("user_number")=usernumber
rs("user_name")=username
rs("user_pp")=userpp
rs("user_this_time")=thistime
rs("user_this_score")=thisscore
rs.update
rs.close
end sub
%>
<% call saveB()
response.write"<script>"
response.write"alert('添加成功');"
response.write"location.href='member_show.asp';"
response.write"</script>"
response.end
%>
1.sap:
<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_Member where user_shop='"&session("usershop")&"'"
rs.open sql,conn,1,1%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="style.css">
<title>本次消费信息输入</title>
</head>
<SCRIPT LANGUAGE="JavaScript">
function doFun(a, b)
{
b.value = a.value;
}
</SCRIPT>
<form method="POST" name="myform" action="2.asp">
<table width="60%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td align="center" bgcolor="#EBE9FE" >卡号</td>
<td align="center" bgcolor="#EBE9FE" >产品</td>
<td align="center" bgcolor="#EBE9FE" >消费时间</td>
<td align="center" bgcolor="#EBE9FE" >消费积分</td>
</tr>
<tr>
<td bgcolor="#EBE9FE" align="center" ><select name="user_number" onchange="doFun(user_number, user_pp)">
<option selected>请选择卡号</option>
<%do while not rs.eof%>
<option value="<%=rs("user_pp")%>"><%=rs("user_number")%></option>
<%
rs.movenext
loop%>
</select></td>
<td bgcolor="#EBE9FE" align="center" >
<input name="user_pp" type="text" size="25" > </td>
<td bgcolor="#EBE9FE" align="center" ><input type="text" name="this_time" value="<%=date()%> " /></td>
<td bgcolor="#EBE9FE" align="center" ><input type="text" name="this_score" ></td>
</tr>
<tr>
<td bgcolor="#EBE9FE" colspan="5" align="center"><input type="submit" value="提交" name="B1" ><input type="reset" value="全部重写" name="B2"> </td>
</tr>
</table>
</form>
</html>
2.asp:
<!-- #include file = "conn.asp" -->
<%
sub saveB()
dim usernumber,username,thistime,thisscore,userpp
session("usernumber")=request("user_number")
'sql="select * from user_member where user_number='"&request("user_number")&"'"
usernumber=request("user_number")
username=request("user_name")
userpp=request("user_pp")
thistime=request("this_time")
thisscore=request("this_score")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from this"
rs.open sql,conn,2,2
rs.addnew
rs("user_number")=usernumber
rs("user_name")=username
rs("user_pp")=userpp
rs("user_this_time")=thistime
rs("user_this_score")=thisscore
rs.update
rs.close
end sub
%>
<% call saveB()
response.write"<script>"
response.write"alert('添加成功');"
response.write"location.href='member_show.asp';"
response.write"</script>"
response.end
%>
