请帮助查验数据更新脚本高分回报

2006-04-23 09:29:51 143 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【愚公系列】《高效使用DeepSeek》018-错题本整理你是否还在为错题本上的红笔标注焦头烂额？手抄题目、反复誊写、分类混乱……传统错题整理耗时耗力，最后却成了“积灰的笔记本”？在题海战术盛行的当下，如何让每一道错题都成为精准提分的“阶梯”，而非堆积焦虑的“包袱”？答案或许就藏在AI的智能算法里。DeepSeek最新上线的「错题本智能管理」功能，正在重新定义高效学习方式。只需用手机拍摄试卷、练习册或电子文档中的错题，AI便能自动完成文字识别、知识点归类与错因分析三步跳——从模糊的草稿纸到结构清晰的电子错题本，全程不过一杯咖啡的时间。阅读详情

无论怎么试，都无法给数据表加新记录，烦请查看我的代码.


<%
dim Action
dim rs,sql,rsClass,sqlClass
dim ID,BigClassName,SmallClassName,Title,Product_Id,SpecialName,Spec,Newproduct,Price,Unit,Memo,Key,Elite,Passed,Content,IncludePic,massage

Action=trim(request("Action"))
ID=trim(request("ID"))

if Action="Save" then
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID="&ID
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.cloase
set rs=nothing
call CloseConn()
response.redirect "ProductManage.asp"
end if
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("Product_Id")=Product_Id
rs("SpecialName")=SpecialName
rs("Spec")=Spec
rs("Unit")=Unit
rs("Memo")=Memo
rs("Passed")=Passed
rs("Content")=Content
rs.update
else
if Action="Add" then
BigClassName=trim(request("BigClassName"))
SmallClassName=trim(request("SmallClassName"))
Product_Id=trim(request("Product_Id"))
SpecialName=trim(request("SpecialName"))
Spec=trim(request("Spec"))
Newproduct=trim(request("Newproduct"))
Price=trim(request("Price"))
Unit=trim(request("Unit"))
Memo=trim(request("Memo"))
Key=trim(request("Key"))
Elite=trim(request("Elite"))
Passed=trim(request("Passed"))
Content=trim(request("Content"))
IncludePic=trim(request("IncludePic"))
Title=trim(request("Title"))
BigClassName=trim(request("Title"))

If Title="" Then
response.write "SORRY <br>"
response.write "请输入产品名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
If BigClassName="" Then
response.write "SORRY <br>"
response.write "产品大类不能为空!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from product"
rs.open sql,conn,1,3
massage="添加产品"
rs.addnew
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("Product_Id")=Product_Id
rs("SpecialName")=SpecialName
rs("Spec")=Spec
rs("Unit")=Unit
rs("Memo")=Memo
rs("Passed")=Passed
rs("Content")=Content
rs.update
rs.cloase
set rs=nothing
call CloseConn()
response.redirect "ProductManage.asp"
else
if Action="Edit" then
set rs=server.createobject("adodb.recordset")
sql="select * from product where ID="&ID
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.cloase
set rs=nothing
call CloseConn()
response.redirect "ProductManage.asp"
end if
massage="修改产品"
Action="Save"
else
massage="添加产品"
Action="Add"
end if
end if
end if
%>
<html>
<head>
<title>企业网站管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
.tes { border:solid; border-width: 0象素 0象素 1象素; border-color: #FFFFFF #FFFFFF #000000}
body,td,th {
font-size: 12px;
color: #666666;
}
</STYLE>
</head>
<body>

<div align="center">
<p><b><font size="5"><%=massage%></font></b></p>
<form method="POST" action="ProductEdit.asp">
<table border="0" id="table1" cellspacing="0" cellpadding="0">

<tr>
<td align="right" style="line-height:20pt">所属大类：</td>
<td>
<%
sqlClass="select * from BigClass"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
if rsClass.eof then
response.Write("还未建立大类")
else
%>
<select size="1" name="BigClassName">
<%
do while not rsClass.eof
%>
<option value="<%=rsClass("BigClassName")%>"><%=rsClass("BigClassName")%></option>
<%
rsClass.movenext
loop
%>
</select>
<%
end if
rsClass.close
set rsClass=nothing
%></td></tr>

<tr>
<td align="right" style="line-height:20pt">所属小类：</td>
<td>
<%
sqlClass="select * from SmallClass"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
if rsClass.eof then
response.Write("还未建立小类")
else
%>
<select size="1" name="SmallClassName">
<%
do while not rsClass.eof
%>
<option value="<%=rsClass("SmallClassName")%>"><%=rsClass("SmallClassName")%></option>
<%
rsClass.movenext
loop
%>
<option value="">不属于任何小类</option>
</select>
<%
end if
rsClass.close
set rsClass=nothing
%></td></tr>

<tr>
<td align="right" style="line-height:20pt">所属专题：</td>
<td>
<%
sqlClass="select * from product where SpeicalName<>''"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
if rsClass.eof then
response.Write("<input type='text' name='SpecialName' size='40' class=tes>")
else
%>
<select size="1" name="SpecialName">
<%
do while not rsClass.eof
%>
<option><%=rsClass("SpecialName")%></option>
<%
rsClass.movenext
loop
%>
</select>
<%
end if
rsClass.close
set rsClass=nothing
%></td></tr>
<tr>
<td align="right" style="line-height:20pt">作为新产品显示：</td>
<td>是<input type="radio" value="y" name="Newproduct">否<input type="radio" value="n" name="Newproduct"></td></tr>
<tr>
<td align="right" style="line-height:20pt">为推荐产品：</td>
<td>是<input type="radio" value="y" name="Elite">否<input type="radio" value="n" name="Elite"></td></tr>
<tr>
<td align="right" style="line-height:20pt">通过审核：</td>
<td>是<input type="radio" value="y" name="Passed">否<input type="radio" value="n" name="Passed"></td></tr>
<tr>
<td align="right" style="line-height:20pt">包含图片：</td>
<td>是<input type="radio" value="y" name="IncludePic">否<input type="radio" value="n" name="IncludePic"></td></tr>
<tr>
<td align="right" style="line-height:20pt">产品售价：</td>
<td><input type="text" name="Price" size="40" class=tes value="<%=rs("Price")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">单位：</td>
<td><input type="text" name="Unit" size="40" class=tes value="<%=rs("Unit")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">备注：</td>
<td><input type="text" name="Memo" size="40" class=tes value="<%=rs("Memo")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">产品内容：</td>
<td><input type="text" name="Content" size="40" class=tes value="<%=rs("Content")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">产品名称：</td>
<td><input type="text" name="Title" size="40" class=tes value="<%=rs("Title")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">规格：</td>
<td><input type="text" name="Spec" size="40" class=tes value="<%=rs("Spec")%>"></td></tr>
<tr>
<td align="right" style="line-height:20pt">产品编号：</td>
<td><input type="text" name="Product_Id" size="40" class=tes value="<%=rs("Product_Id")%>"></td></tr>
<tr>
<td align="right" style="line-height:40pt">产品图片：</td>
<td><iframe style="top:2px" ID="UploadFiles" src="../upload_Photo.asp?PhotoUrlID=3" frameborder=0 scrolling=no width="300" height="25"></iframe></td></tr>
</table>
<p></p>
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"><input type=hidden value="<%=Action%>" name="Action">

</form>
</div>
<%
rs.close
set rs=nothing
call CloseConn()
%>
</body>
</html>

...全文

java选择题错题集锦（持续更新）关于以下application,说法正确是什么？ public class Test { static int x=10; static {x+=5;} public static void main(String[] args) //4 { System.out.println(&amp;amp;amp;amp;amp;amp;amp;amp;quot;x=&amp;amp;amp;amp;amp;amp;amp;amp;quot;+x); } sta 阅读详情

lq7667

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

lq7667 2006-04-29

打赏
举报

多谢各位参与，本人已解决了这个问题：

事情是这样的，我的程序目录原来在NTFS下建立。当时没付予该目录的everyone用户写的权限。

后来将该目录拷至FAT32分区下，自然也就没有了权限选项，但继承了NTFS的权限。因而无法向

数据库写入任何数据。

任亚军 2006-04-24

打赏
举报

乱

cqq 2006-04-24

打赏
举报

一看这样的就头大啊，能不能少点啊.........

lq7667 2006-04-24

打赏
举报

谢谢二位，但二位所说我都有执行，相信已无此错误嫌疑。

youzi520 2006-04-23

打赏
举报

UPDATE 要1,3
1,1锁定了

jamila8 2006-04-23

打赏
举报

请帮助查验数据更新脚本?? 代码太多,具体提示什么错误?

www_7di_net 2006-04-23

打赏
举报

你的添加产品操作执行了下面的脚本，当然不行了
if Action="Add" then
BigClassName=trim(request("BigClassName"))
SmallClassName=trim(request("SmallClassName"))
Product_Id=trim(request("Product_Id"))
SpecialName=trim(request("SpecialName"))
Spec=trim(request("Spec"))
Newproduct=trim(request("Newproduct"))
Price=trim(request("Price"))
Unit=trim(request("Unit"))
Memo=trim(request("Memo"))
Key=trim(request("Key"))
Elite=trim(request("Elite"))
Passed=trim(request("Passed"))
Content=trim(request("Content"))
IncludePic=trim(request("IncludePic"))
Title=trim(request("Title"))
BigClassName=trim(request("Title"))
应该执行
set rs=server.createobject("adodb.recordset")
sql="select * from product"
rs.open sql,conn,1,3
massage="添加产品"
rs.addnew
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("Product_Id")=Product_Id
rs("SpecialName")=SpecialName
rs("Spec")=Spec
rs("Unit")=Unit
rs("Memo")=Memo
rs("Passed")=Passed
rs("Content")=Content
rs.update
rs.cloase
set rs=nothing
call CloseConn()
response.redirect "ProductManage.asp"

请帮助查验数据更新脚本 高分回报

相关推荐

请帮助查验数据更新脚本高分回报