循环更新的问题,在线等...

2006-07-10 08:47:29 80 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

FreeBSD 15.1 四大核心工具实战：freebsd-update、portsnap、pkg 与 portmaster 深度解析 FreeBSD 是一套以稳定性、安全性和 ABI 兼容性为核心设计原则的类 Unix 操作系统。其维护体系不同于 Linux 发行版，依赖 freebsd-update 实现基础系统的原子化二进制更新，依托 portsnap 保障 Ports Tree 的确定性快照同步，通过 pkg 构建基于 SQLite 与签名验证的零信任二进制包管理，再以 portmaster 精准处理源码级循环依赖与配置继承。这些机制共同支撑 ZFS 文件系统之上的高可用生产环境，广泛应用于邮件网关、CDN 边缘节点及金融基础设施等阅读详情

if request("Submit")<>"" then
for each id in request("movedata") '循环取筛选框表单的值
Set rb=Server.CreateObject("ADODB.RecordSet")
rb.open"Select * From Info Where Class_ID=35 and id="&id,conn,1,1
next
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open "orderinfo",conn,3,2
rss.addnew
for each id in request("movedata") '循环更新到另一个表中
rss("fileid")=request("movedata")
rss("username")=Session("UserName")
if rb("附件")="" then
rss("filesize")="无"
else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFile(server.MapPath("upload/"&rb("附件")))
rss("filesize")=fld.size
end if
if rb("来源")="0级PDS文件" then
rss("types")="PDS"
else
rss("types")="LD2"
end if
rss("filename")=rb("标题")
rss("adddate")=date
next
rss.update
response.write("<script>alert('添加下载队列成功!');location.href='list.asp?Bclassid=30&classID=35'</script>")
else
response.write("<script>alert('添加下载队列失败,返回重试!');location.href='list.asp?Bclassid=30&classID=35'</script>")
end if

...全文