iteminsertupdate.asp

来自「一个ＡＳＰ网站博克程序」· ASP 代码 · 共 33 行

<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->

<%
	If Session("Passport") = "" Or Session("Passport") <= 0 Or Session("UsrLevel")="" Then
		Response.Redirect("../Default.asp")
	End If
%>

<%
	Dim objDBMS
	Dim intCount, strValue
	For intCount = 1 To Request.Form("value").Count
  		strValue = strValue & Request.Form("value")(intCount)
	Next
	Set objDBMS = New LarrixDBMS
	objDBMS.Open "SELECT * FROM [Items]", 3
	objDBMS.objRSET.AddNew
	objDBMS.objRSET("MemberID").Value = Session("Passport")
	objDBMS.objRSET("CategoryID").Value = Trim(Request.Form("category"))
	objDBMS.objRSET("ItemLAB").Value = Trim(Request.Form("label"))
	objDBMS.objRSET("ItemVAL").Value = strValue
	objDBMS.objRSET("ItemDTM").Value = Date()
	objDBMS.objRSET("ItemURL").Value = Request.ServerVariables("REMOTE_ADDR")
	objDBMS.objRSET("ItemNUM").Value = 0
	objDBMS.objRSET("ItemTOP").Value = CBool(Trim(Request.Form("top")) = "1")
	objDBMS.objRSET("ItemHID").Value = CBool(Trim(Request.Form("hide")) = "1")
	objDBMS.objRSET("ItemLOC").Value = CBool(Trim(Request.Form("lock")) = "1")
	objDBMS.objRSET.Update
	objDBMS.Close
	Set objDBMS = Nothing
	Response.Redirect("Default.asp")
%>