<%@language="vbscript" codepage="936"%>
<%
' *** restrict access to page: grant or deny access to this page
mm_authorizedusers=""
mm_authfailedurl="eorr.asp"
mm_grantaccess=false
if session("mm_username") <> "" then
if (true or cstr(session("mm_userauthorization"))="") or _
(instr(1,mm_authorizedusers,session("mm_userauthorization"))>=1) then
mm_grantaccess = true
end if
end if
if not mm_grantaccess then
mm_qschar = "?"
if (instr(1,mm_authfailedurl,"?") >= 1) then mm_qschar = "&"
mm_referrer = request.servervariables("url")
if (len(request.querystring()) > 0) then mm_referrer = mm_referrer & "?" & request.querystring()
mm_authfailedurl = mm_authfailedurl & mm_qschar & "accessdenied=" & server.urlencode(mm_referrer)
response.redirect(mm_authfailedurl)
end if
%>
<%
' *** edit operations: declare variables
dim mm_editaction
dim mm_abortedit
dim mm_editquery
dim mm_editcmd
dim mm_editconnection
dim mm_edittable
dim mm_editredirecturl
dim mm_editcolumn
dim mm_recordid
dim mm_fieldsstr
dim mm_columnsstr
dim mm_fields
dim mm_columns
dim mm_typearray
dim mm_formval
dim mm_delim
dim mm_altval
dim mm_emptyval
dim mm_i
mm_editaction = cstr(request.servervariables("script_name"))
if (request.querystring <> "") then
mm_editaction = mm_editaction & "?" & request.querystring
end if
' boolean to abort record edit
mm_abortedit = false
' query string to execute
mm_editquery = ""
%>
<%
' *** insert record: set variables
if (cstr(request("mm_insert")) = "form1") then
mm_editconnection = mm_conn_string
mm_edittable = "zwxx"
mm_editredirecturl = "zwxxadd.asp"
mm_fieldsstr = "title|value|xtitle|value|nr|value"
mm_columnsstr = "title|',none,''|xtitle|',none,''|nr|',none,''"
' create the mm_fields and mm_columns arrays
mm_fields = split(mm_fieldsstr, "|")
mm_columns = split(mm_columnsstr, "|")
' set the form values
for mm_i = lbound(mm_fields) to ubound(mm_fields) step 2
mm_fields(mm_i+1) = cstr(request.form(mm_fields(mm_i)))
next
' append the query string to the redirect url
if (mm_editredirecturl <> "" and request.querystring <> "") then
if (instr(1, mm_editredirecturl, "?", vbtextcompare) = 0 and request.querystring <> "") then
mm_editredirecturl = mm_editredirecturl & "?" & request.querystring
else
mm_editredirecturl = mm_editredirecturl & "&" & request.querystring
end if
end if
end if
%>
<%
' *** insert record: construct a sql insert statement and execute it
dim mm_tablevalues
dim mm_dbvalues
if (cstr(request("mm_insert")) <> "") then
' create the sql insert statement
mm_tablevalues = ""
mm_dbvalues = ""
for mm_i = lbound(mm_fields) to ubound(mm_fields) step 2
mm_formval = mm_fields(mm_i+1)
mm_typearray = split(mm_columns(mm_i+1),",")
mm_delim = mm_typearray(0)
if (mm_delim = "none") then mm_delim = ""
mm_altval = mm_typearray(1)
if (mm_altval = "none") then mm_altval = ""
mm_emptyval = mm_typearray(2)
if (mm_emptyval = "none") then mm_emptyval = ""
if (mm_formval = "") then
mm_formval = mm_emptyval
else
if (mm_altval <> "") then
mm_formval = mm_altval
elseif (mm_delim = "'") then ' escape quotes
mm_formval = "'" & replace(mm_formval,"'","''") & "'"
else
mm_formval = mm_delim + mm_formval + mm_delim
end if
end if
if (mm_i <> lbound(mm_fields)) then
mm_tablevalues = mm_tablevalues & ","
mm_dbvalues = mm_dbvalues & ","
end if
mm_tablevalues = mm_tablevalues & mm_columns(mm_i)
mm_dbvalues = mm_dbvalues & mm_formval
next
mm_editquery = "insert into " & mm_edittable & " (" & mm_tablevalues & ") values (" & mm_dbvalues & ")"
if (not mm_abortedit) then
' execute the insert
set mm_editcmd = server.createobject("adodb.command")
mm_editcmd.activeconnection = mm_editconnection
mm_editcmd.commandtext = mm_editquery
mm_editcmd.execute
mm_editcmd.activeconnection.close
if (mm_editredirecturl <> "") then
response.redirect(mm_editredirecturl)
end if
end if
end if
%>
<%
dim repeat1__numrows
dim repeat1__index
repeat1__numrows = 5
repeat1__index = 0
recordset1_numrows = recordset1_numrows + repeat1__numrows
%>
宋村镇人民政府欢迎您
