itemmodify.asp

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

ASP
72 行
字号 
<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Member.asp" -->
<!-- #Include File = "object/Category.asp" -->
<!-- #Include File = "object/Item.asp" -->
<!-- #Include File = "object/Interface.asp" -->

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

<%
	If Trim(Request.QueryString("id")) = "" Or IsNumeric(Trim(Request.QueryString("id"))) = False Then
		Response.Redirect("Default.asp")
	End If
%>

<%
	Dim objMember
	Dim objCategory
	Dim objDBMS
	Dim objItem
	Dim objInterface
	Set objMember = New Member
	Set objCategory = New Category
	Set objItem = New Items
	Set objInterface = New Interface
%>

<html>

<head>
	<title>欢迎光临 Larrix BLOG 官方网站</title>
	<meta http-equiv="content-type" content="text/html; charset=gb2312">
	<link rel="stylesheet" href="../images/Style.css" type="text/css">
</head>

<body>
	<% objInterface.Header %>
	<table width="776" cellpadding="0" cellpadding="0" border="0" align="center" class="ground">
		<tr valign="top">
			<td align="center" width="194">
				<br>&nbsp;<br>
				<% objInterface.Navigation %>
				<%
					If Session("UsrLevel") = True Then
						%><br>&nbsp;<br><%
						objMember.MemberPanel()
					End If
				%>
				<br>&nbsp;<br>
			</td>
			<td align="left" width="582">
				<br>&nbsp;<br>
				<% objItem.ItemModify Trim(Request.QueryString("id")), Session("Passport") %>
				<br>&nbsp;<br>
			</td>
		</tr>
	</table>
	<% objInterface.Footer %>
</body>

</html>

<%
	Set objMember = Nothing
	Set objCategory = Nothing
	Set objItem = Nothing
	Set objInterface = Nothing
%>

itemmodify.asp - 源码说明

本页面展示了「一个ＡＳＰ网站博克程序」中的 itemmodify.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP网站相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?