saveessay.asp

来自「一个ASP做的政府网站的全站程序」· ASP 代码 · 共 73 行

<%@ Language=VBScript %>
<!--#include file="connect.asp"-->

<% 
Dim number,i
Dim rs_essay
Dim mode

number=1
mode = request.form("mode")

Set rs_essay = Server.CreateObject("ADODB.Recordset")

sqlStr="select id,fldorder,fldtopic,fldcolumn,fldsubcolumn,fldphoto,fldurl,fldhits,flddate from tblessay where fldcolumn='" & request("column") & "' and fldsubcolumn='" & request("subcolumn") & "' order by fldorder desc"

rs_essay.open sqlStr,dataConn,1,3

if mode = "追加" then		
	rs_essay.AddNew
	
	rs_essay("flddate") = Now()
	rs_essay("fldorder") = 1 
	rs_essay("fldtopic") = request.form("topic")
	rs_essay("fldcolumn") = request("column")
	rs_essay("fldsubcolumn") = request("subcolumn")	
	rs_essay("fldurl") = request.form("url")
	rs_essay("fldphoto") = request.form("photo")
	rs_essay("fldhits") = 1

	rs_essay.Update

elseif mode = "更改" then
	
	rs_essay.move (cint(request.form("page"))-1)*13

	number = request.form("number")

	for i = 0 to number-1
		'rs_essay("flddate") = request.form("date" & i)
		rs_essay("fldorder") = Int(request.form("order" & i))
		rs_essay("fldtopic") = request.form("topic" & i)
		rs_essay("fldcolumn") = request("column")
		rs_essay("fldsubcolumn") = request("subcolumn")
		rs_essay("fldurl") = request.form("url" & i)
		rs_essay("fldphoto") = request.form("photo" & i)
		
		rs_essay.Update

		rs_essay.movenext
	next
end if

if rs_essay.recordcount mod 13 = 0 then
	back_page=rs_essay.recordcount\13+1
else 
	back_page=rs_essay.recordcount\13
end if

rs_essay.Close
Set rs_essay = nothing



dataConn.Close
Set dataConn = nothing

if mode = "追加" then
	response.redirect  "essay.asp?page=1" & "&column=" & request("column")  & "&subcolumn=" & request("subcolumn")
elseif mode = "更改" then
	response.redirect  "essay.asp?page=" & request.form("page") & "&column=" & request("column") & "&subcolumn=" & request("subcolumn")
end if
%>