您所在位置：主题：类型不匹配
jiayou2008
[专家分：0] 发布于 2007-03-30 11:45:00
求助：这是一修改页面，但100行提示为类型不匹配，数据库中其字段类型为字符型
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/chk.asp"-->
<%
If NOT IsEmpty (request("AddProSubmit")) then
dim productdate,discount
if request("productdateyear")<>"" then
productdate=""
end if
dim id
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
dim a,b
if request("weightkg")="" or isnull(request("weightkg")) then
a= 0
else
a=CDBL(request("weightkg"))
end if
b=a/0.4536
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from UseInformation where id="&id,conn,1,3
rs("Itemd")=request("Itemd")
rs("EMS")=request("EMS")
rs("ReciverName")=request("ReciverName")
rs("City")=request("City")
rs("State")=request("State")
rs("Address")=request("Address")
rs("weightkg")=a
rs("weightlb")=b
rs("upsprice")=request("upsprice")
rs("ZipCode")=request("ZipCode")
rs("Telephone")=request("Telephone")
rs("EMS")=request("EMS")
rs("UpsNumber")=request("UpsNumber")
rs("MailingDate")=request("MailingDate")
rs("MoreInformation")=request("MoreInformation")
rs.Update
rs.Close
set rs=nothing
call MsgBox("Revision successfully!","GoUrl","Management.asp")
response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="file:///D|/www/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #0099CC;
}
-->
</style></head>
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="219" align="left" valign="top">
<br>
<!--#include file="menu.htm"-->
<br>
</td>
<td width="561" align="left" valign="top">
<br>Revision information<br>
<form action="" method="post" name="myform" id="myform">
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>
Item Number：
</td>
<td colspan="2">
[color=FF0000]<input name="Itemd" type="text" id="Itemd" value="<%=trim(rs("Itemd"))%>">[/color]
//上一行为第100行
</td>
</tr>
<tr>
<td>
EMS Nubmer：
</td>
<td colspan="2">
<input name="EMS" type="text" id="EMS" value="<%=trim(rs("EMS"))%>">
</td>
</tr>
<tr>
<td>
Reciver Name：
</td>
<td colspan="2">
<input name="ReciverName" type="text" id="ReciverName" value="<%=trim(rs("ReciverName"))%>">
</td>
</tr>
<tr>
</tr>
<tr>
<td>
City：
</td>
<td colspan="2">
<input name="City" type="text" id="City" value="<%=trim(rs("City"))%>">
</td>
</tr>
<tr>
<td>
State：
</td>
<td colspan="2">
<input name="State" type="text" id="State" value="<%=trim(rs("State"))%>">
</td>
</tr>
<tr>
<td>
Address：
</td>
<td colspan="2">
<input name="Address" type="text" id="Address" value="<%=trim(rs("Address"))%>">
</td>
</tr>
<tr>
<td>
weightkg：
</td>
<td colspan="2">
<input name="weightkg" type="text" id="weightkg" value="<%=trim(rs("weightkg"))%>">
</td>
</tr>
<tr>
<td>
weightlb：
</td>
<td colspan="2">
<input name="weightlb" type="text" id="weightlb" value="<%=trim(rs("weightlb"))%>">
</td>
</tr>
<tr>
<td>
ups price：
</td>
<td colspan="2">
<input name="upsprice" type="text" id="upsprice" value="<%=trim(rs("upsprice"))%>">
</td>
</tr>
<tr>
<td>
Zip Code：
</td>
<td colspan="2">
<input name="ZipCode" type="text" id="ZipCode" value="<%=trim(rs("ZipCode"))%>">
</td>
</tr>
<tr>
<td>
Telephone Number：
</td>
<td colspan="2">
<input name="Telephone" type="text" id="Telephone" value="<%=trim(rs("Telephone"))%>">
</td>
</tr>
<tr>
<td>
UPS Number：
</td>
<td colspan="2">
<input name="UpsNumber" type="text" id="UpsNumber" value="<%=trim(r1("UpsNumber"))%>">
</td>
</tr>
<tr>
<td>
Mailing Date：
</td>
<td colspan="2">
<input name="MailingDate" type="text" id="MailingDate" value="<%=trim(rs("MailingDate"))%>">
</td>
</tr>
<tr>
<td>
Telephone Number：
</td>
<td colspan="2">
<input name="TelephoneNumber" type="text" id="TelephoneNumber" value="<%=trim(rs("TelephoneNumber"))%>">
</td>
</tr>
<tr>
<td>
More Information：
</td>
<td colspan="2">
<textarea name="MoreInformation" cols="46" rows="8" id="MoreInformation" value="<%=trim(rs("MoreInformation"))%>"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="3">
<input name="Revision" type="submit" id="Revision" onClick="return checkpro();" value="Revision">
</td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/chk.asp"-->
<%
If NOT IsEmpty (request("AddProSubmit")) then
dim productdate,discount
if request("productdateyear")<>"" then
productdate=""
end if
dim id
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
dim a,b
if request("weightkg")="" or isnull(request("weightkg")) then
a= 0
else
a=CDBL(request("weightkg"))
end if
b=a/0.4536
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from UseInformation where id="&id,conn,1,3
rs("Itemd")=request("Itemd")
rs("EMS")=request("EMS")
rs("ReciverName")=request("ReciverName")
rs("City")=request("City")
rs("State")=request("State")
rs("Address")=request("Address")
rs("weightkg")=a
rs("weightlb")=b
rs("upsprice")=request("upsprice")
rs("ZipCode")=request("ZipCode")
rs("Telephone")=request("Telephone")
rs("EMS")=request("EMS")
rs("UpsNumber")=request("UpsNumber")
rs("MailingDate")=request("MailingDate")
rs("MoreInformation")=request("MoreInformation")
rs.Update
rs.Close
set rs=nothing
call MsgBox("Revision successfully!","GoUrl","Management.asp")
response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="file:///D|/www/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #0099CC;
}
-->
</style></head>
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="219" align="left" valign="top">
<br>
<!--#include file="menu.htm"-->
<br>
</td>
<td width="561" align="left" valign="top">
<br>Revision information<br>
<form action="" method="post" name="myform" id="myform">
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>
Item Number：
</td>
<td colspan="2">
[color=FF0000]<input name="Itemd" type="text" id="Itemd" value="<%=trim(rs("Itemd"))%>">[/color]
//上一行为第100行
</td>
</tr>
<tr>
<td>
EMS Nubmer：
</td>
<td colspan="2">
<input name="EMS" type="text" id="EMS" value="<%=trim(rs("EMS"))%>">
</td>
</tr>
<tr>
<td>
Reciver Name：
</td>
<td colspan="2">
<input name="ReciverName" type="text" id="ReciverName" value="<%=trim(rs("ReciverName"))%>">
</td>
</tr>
<tr>
</tr>
<tr>
<td>
City：
</td>
<td colspan="2">
<input name="City" type="text" id="City" value="<%=trim(rs("City"))%>">
</td>
</tr>
<tr>
<td>
State：
</td>
<td colspan="2">
<input name="State" type="text" id="State" value="<%=trim(rs("State"))%>">
</td>
</tr>
<tr>
<td>
Address：
</td>
<td colspan="2">
<input name="Address" type="text" id="Address" value="<%=trim(rs("Address"))%>">
</td>
</tr>
<tr>
<td>
weightkg：
</td>
<td colspan="2">
<input name="weightkg" type="text" id="weightkg" value="<%=trim(rs("weightkg"))%>">
</td>
</tr>
<tr>
<td>
weightlb：
</td>
<td colspan="2">
<input name="weightlb" type="text" id="weightlb" value="<%=trim(rs("weightlb"))%>">
</td>
</tr>
<tr>
<td>
ups price：
</td>
<td colspan="2">
<input name="upsprice" type="text" id="upsprice" value="<%=trim(rs("upsprice"))%>">
</td>
</tr>
<tr>
<td>
Zip Code：
</td>
<td colspan="2">
<input name="ZipCode" type="text" id="ZipCode" value="<%=trim(rs("ZipCode"))%>">
</td>
</tr>
<tr>
<td>
Telephone Number：
</td>
<td colspan="2">
<input name="Telephone" type="text" id="Telephone" value="<%=trim(rs("Telephone"))%>">
</td>
</tr>
<tr>
<td>
UPS Number：
</td>
<td colspan="2">
<input name="UpsNumber" type="text" id="UpsNumber" value="<%=trim(r1("UpsNumber"))%>">
</td>
</tr>
<tr>
<td>
Mailing Date：
</td>
<td colspan="2">
<input name="MailingDate" type="text" id="MailingDate" value="<%=trim(rs("MailingDate"))%>">
</td>
</tr>
<tr>
<td>
Telephone Number：
</td>
<td colspan="2">
<input name="TelephoneNumber" type="text" id="TelephoneNumber" value="<%=trim(rs("TelephoneNumber"))%>">
</td>
</tr>
<tr>
<td>
More Information：
</td>
<td colspan="2">
<textarea name="MoreInformation" cols="46" rows="8" id="MoreInformation" value="<%=trim(rs("MoreInformation"))%>"></textarea>
</td>
</tr>
<tr align="center">
<td colspan="3">
<input name="Revision" type="submit" id="Revision" onClick="return checkpro();" value="Revision">
</td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
