updateorder.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 30 行

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
If Request.Form("Submit") = "Update Order" Then
	strSQL = "SELECT timesboard.* From timesboard ORDER BY timesboard.boardnum ASC;"
	rsConn.CursorType = 2
	rsConn.LockType = 3
	rsConn.Open strSQL, adoCon
	Do While NOT rsConn.EOF
		rsConn.Fields("boardnum") = CInt(Request.Form("catOrder" & rsConn("boardid")))		
		rsConn.Update
		rsConn.MoveNext
	Loop
	rsConn.Close
	strSQL = "SELECT timesbbs.* From timesbbs ORDER BY timesbbs.bbsnum ASC;"
	rsConn.CursorType = 2
	rsConn.LockType = 3
	rsConn.Open strSQL, adoCon
	Do While NOT rsConn.EOF
		rsConn.Fields("bbsnum") = CInt(Request.Form("forumOrder" & rsConn("bbsid")))		
		rsConn.Update
		rsConn.MoveNext
	Loop
	rsConn.Close	
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "disforum.asp"
%>