savecolumn.asp

一个ASP做的政府网站的全站程序

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

<% 
Dim number,i
Dim rs
Dim mode

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

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

if request("column")="" then
	sqlStr="select * from tblcolumn where fldsubcolumn='—' order by fldpriviledge"
else
	sqlStr="select * from tblcolumn where fldcolumn='" & request("column") & "' and fldsubcolumn<>'—' order by fldpriviledge"
end if

rs.open sqlStr,dataConn,1,3

if mode = "追加" then		
	rs.AddNew
	
	rs("flddate") = Now()
	
	rs("fldcolumn") = request.form("column")
	rs("fldsubcolumn") = request.form("subcolumn")
	rs("fldtemplate") = request.form("template")
	rs("fldimage") = request.form("image")
	rs("fldpriviledge") = Int(request.form("priviledge"))
	rs("fldurl") = request.form("url")

	rs.Update

elseif mode = "更改" then

	rs.move (cint(request.form("page"))-1)*13

	number = request.form("number")

	for i = 0 to number-1

		rs("fldcolumn") = request.form("column" & i)
		rs("fldsubcolumn") = request.form("subcolumn" & i)
		rs("fldtemplate") = request.form("template" & i)
		rs("fldimage") = request.form("image" & i)
		rs("fldpriviledge") = Int(request.form("priviledge" & i))
		rs("fldurl") = request.form("url" & i)
		
		rs.Update

		rs.movenext
	next
end if

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

rs.Close
Set rs = nothing

dataConn.Close
Set dataConn = nothing

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