想将一段ASP代码用一个存储过程实现

cx_hzgdj cx_hzgdj 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我是想将以下ASP中的代码,转成SQL存储过程,前辈们帮帮忙,学习:

<%
strSql="select id,nsort1,filename from upload where id>1 and id<=1000 order by id"
set rs=conn.Execute(strSql)
if rs_1.eof and rs_1.bof then

else
do while not rs_1.eof
select case rs_1("nsort1")
case "article"
strSql="select 1 from article where charindex('"&rs_1("filename")&"',word)>0"
case "forum"
strSql="select 1 from bbs_data where charindex('"&rs_1("filename")&"',word)>0"
Case Else
strSql=""
end select
If strSql<>"" then
set rs=server.createobject("adodb.recordset")
rs.open strSql,conn,1,1
If rs.RecordCount>0 Then
strSql=""
Else
conn.execute("update upload set iid=0,types=0 where id="&rs_1("id"))
End If
rs.close:set rs=Nothing
End if
rs_1.movenext
loop
rs_1.close:set rs_1=Nothing
end if
%>
...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部
cx_hzgdj
MS-SQL Server 34,876 成员 254,635 内容