ASP
请高手指点
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 ''0,address='东大街1号附8号',phone='028-87654321',remark=' ' where keyid=2' 中。
/ClientEdit.asp, 第 42 行
出问题的代码段我已经放在了最后。请高手指点。
<!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>
</head>
<%
SellId=trim(Request.QueryString("id")+"")
if len(SellId)<1 then
msgErr="没有需要修改的销售产品数据！请进入查询页面选择！"
Response.Redirect("SellView.asp")
end if
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=SellDSN;UID=admin;Database=SellManage"
msgErr=""
productid=trim(Request("productid")+"")
Numbers=trim(Request("Numbers")+"")
clientid=trim(Request("clientid")+"")
Producedate=trim(Request("Producedate")+"")
Content=trim(Request("Content")+"")
isPostBack=trim(Request("IsPostBack")+"")
if isPostBack="PostBack" then
checked=true '用于判断所有信息是否合法，如合法则保存数据
if len(productid)<1 then
checked=false
msgErr="销售产品必须选择！"
end if
if len(Numbers)<1 then
checked=false
msgErr=msgErr+"销售数量必须输入！"
end if
if len(clientid)<1 then
checked=false
msgErr=msgErr+"购买客户必须选择！"
end if
if len(Producedate)<1 then
checked=false
msgErr=msgErr+"销售日期必须输入！"
end if
if checked then
strsql="update xt_t_Produce set "
strsql =strsql + "productid='"+productid+"'"
strsql =strsql + ",selldate=#"+ProduceName+"#"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
msgErr="修改销售产品信息成功！"
end if
end if
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_sell where keyid="+SellId
rs.Open strsql,con
Set pr_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_produce "
pr_rs.Open strsql,con
Set client_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_client "
client_rs.Open strsql,con
%>
<body>
<form name="form1" method="post" action="">
<input name="IsPostBack" type="hidden" value="PostBack">
<table width="100%" border="1" align="center">
<tr>
<td align="right">产品名称：</td>
<td ><select name="productid" id="productid">
<% do while not (pr_rs.EOF) %>
<option value="<%=trim(pr_rs("keyid")) %>"
<%if trim(pr_rs("keyid"))=trim(rs("productid")) then%>
selected <%end if%>><%=pr_rs("name")%></option>
<%pr_rs.MoveNext
loop
pr_rs.Close %>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售日期：</td>
<td><input name="Producedate" type="text" id="Producedate" maxlength="10"
value="<%=trim(rs("producedate"))%>"></td>
</tr>
<tr>
<td align="right">销售数量：</td>
<td ><input name="Numbers" type="text" id="Numbers" maxlength="8"
value="<%=trim(rs("Numbers"))%>">
</td>
</tr>
<tr>
<td align="right">购买客户：</td>
<td ><select name="clientid" id="clientid">
<% do while not (client_rs.EOF) %>
<option value="<%=trim(client_rs("keyid")) %>"
<%if trim(client_rs("keyid"))=trim(rs("clientid")) then%>
selected <%end if%>><%=client_rs("name")%></option>
<%client_rs.MoveNext
loop
client_rs.Close %>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售说明：</td>
<td><textarea name="Content" rows="4" style="width:100% ">
<%=trim(rs("content")) %></textarea></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td align="center"><input type="submit" name="Submit" value="更新"></td>
</tr>
<tr>
<td ><font color="red" ><%=msgErr %></font></td>
</tr>
</table>
<%rs.Close%>
</form>
</body>
</html>
if checked then
strsql="update xt_t_Produce set "
strsql =strsql + "productid='"+productid+"'"
strsql =strsql + ",selldate=#"+ProduceName+"#"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
msgErr="修改销售产品信息成功！
相关推荐
ErrAssertionFailed(解决方案).md
ErrAssertionFailed(解决方案).md
Python爬虫1-Pycharm安装MySQLdb
遗憾的是pycharm找不到这个包MySQLdb。 二 解决方法 1 下载MySQL_python-1.2.5-cp27-none-win_amd64.whl 链接：https://pan.baidu.com/s/1jJNWwfk 密码：hrqb 2 将下载的这个文件放到PycharmProjects\工程名\venv\Scripts下，例如：放到E:\Django\ComPerformance\venv\Scripts下 3 在该目录的cmd中运行命令 cd E:\Django\ComPerforma
[Linux外设驱动详解]RK3588 U-Boot网络功能深度分析
本文深入分析了RK3588平台上U-Boot的网络功能实现，主要内容包括： 网络架构：详细剖析了从硬件层到协议层的完整网络栈架构，包括GMAC驱动、TFTP/NFS启动、网络命令等关键组件。 驱动实现：重点介绍了RK3588 GMAC驱动结构，包含关键数据结构、专用操作函数集、设备树兼容性配置和GRF寄存器设置。 功能实现：详细说明了驱动初始化流程、RGMII速度适配机制以及PHY接口配置过程。 高级特性：涵盖了网络启动功能、镜像更新和MAC地址传递到Linux内核的机制。 文档通过代码片段和流程图清晰展示
AI初识—LLM、Ollama、Llama都是些个啥？
LLM指的是大语言模型（Large Language Model），是一种基于深度学习的模型，能够理解和生成自然语言。它通过大量文本数据进行训练，具备了理解上下文、生成连贯文本和回答问题的能力。著名的LLM包括OpenAI的GPT系列和Google的BERT。在AI技术快速发展的背景下，LLM、Ollama和Llama代表了现代自然语言处理的不同方面。LLM为我们提供了强大的语言理解能力，Ollama为模型的部署和管理提供了便利，而Llama则在效率和多样性上不断推进。
最新Mamba环境配置教程：从CUDA到causal-conv1d的完整安装流程
本文提供最新Mamba环境配置教程，涵盖从CUDA到causal-conv1d的完整安装流程。针对深度学习领域的长序列处理需求，详细指导如何正确配置CUDA工具链、安装PyTorch及关键依赖causal-conv1d，解决常见报错问题，并验证mamba-ssm集成效果。
