mysql 更新查询

Posted 2023-02-26

代码如下:

if Session("_WIsSupper") = true then
Over_Type = Request("Over_Type")
Sql = "Update cm_Source Set Src_IsOver="&Over_Type&",Src_ModifyDate='"&Now()&"' Where Src_ID="&Src_ID
conn.execute(Sql)
Response.Redirect("index.asp")
else
Call MsgBox2("哈哈，您有点越轨行为哦！",1,"SrcShow.asp?Src_ID="&Src_ID)
Response.End()
end if

出现错误:不能更新查询，因为 FROM 子句不是单一的简单表名。
不好意思..代码发错了..:
Set Rs = Server.CreateObject("Adodb.recordset")
Sql = "SELECT cm_Source.*, cm_User.User_CoolName, cm_User.User_Address, cm_SrcType.Type_name, cm_SrcChild.Child_name FROM cm_SrcChild INNER JOIN (cm_SrcType INNER JOIN (cm_Source INNER JOIN cm_User ON cm_Source.Src_UserID = cm_User.User_ID) ON cm_SrcType.Type_id = cm_Source.Src_TypeID) ON cm_SrcChild.Child_id = cm_Source.Src_ChildID WHERE cm_Source.Src_IsOver=False and "
if Session("_WUserID")<>ssrc_userid then
sql = sql &"cm_Source.Src_ID="&Src_ID
end if
Rs.open Sql,conn,1,2
if rs.eof then
Call zaidaxue.MsgBox2("无法找到资源！",0,"0")
Response.End()
else
Rs("Src_SeeNum")=Rs("Src_SeeNum")+1
Rs.Update
Src_Type = Rs("Src_TypeID") '类型
Src_Child = Rs("Src_ChildID") '二级类别
Src_SeeNum = Rs("Src_SeeNum")
end if
Src_Type = -1
str_PageUrl = Request.ServerVariables("PATH_INFO")
Rs.close

参考技术A 这么多内联啊？

看晕了。