|
语句在应用端的代码里
如果是网站就是网页的代码里
随便找了一个asp的代码如下,虽然是连sqlserver的,不过oracle应该也一样
——————————————————————
批量专辑操作
Function Topic_SetTopicMode
Dim TopModeID
If Request.form("mode")<>"" and IsNumeric(Request.form("mode")) Then
TopModeID=Cint(Request.form("mode"))
Else
ErrCodes=ErrCodes+"<li>"+template.Strings(2)
Exit Function
End If
Dim ID
For I=1 To Request.Form("Announceid").Count
ID=Replace(Request.Form("Announceid")(I),"'","")
ID=CLng(ID)
Dvbbs.Execute("Update Dv_Topic Set Mode="&TopModeID&" Where BoardID="&Dvbbs.BoardID&" And TopicID=" & ID)
Next
SQL="insert into Dv_Log (L_AnnounceID,L_BoardID,L_ToUser,L_UserName,L_Content,L_IP,l_type) Values ("&Id&","&Dvbbs.BoardID&",'More','"&Dvbbs.Membername&"','批量专辑操作','"&Ip&"',3)"
Dvbbs.Execute(SQL)
sucmsg="<li>批量专辑操作成功。<li>您的操作信息已经记录在案。"
Dvbbs.Dvbbs_suc(sucmsg)
End Function
—————————————————————————————————————————————— |
|