membermodify.asp

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

ASP
81 行
字号 
<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "object/Member.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 objInterface
%>

<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>
	<%
		Set objInterface = New Interface
		objInterface.Header
		Set objInterface = Nothing
	%>
	<table width="776" cellpadding="0" cellpadding="0" border="0" align="center" class="ground">
		<tr valign="top">
			<td align="center" width="194">
				<br>&nbsp;<br>
				<%
					Set objInterface = New Interface
					objInterface.Navigation
					Set objInterface = Nothing
				%>
				<%
					If Session("UsrLevel") = True Then
						%><br>&nbsp;<br><%
						Set objMember = New Member
						objMember.MemberPanel()
						Set objMember = Nothing
					End If
				%>
				<br>&nbsp;<br>
			</td>
			<td align="left" width="582">
				<br>&nbsp;<br>
				<%
					If Session("UsrLevel") = True Then
						Set objMember = New Member
						objMember.MemberModify Trim(Request.QueryString("id"))
						Set objMember = Nothing
					Else
						Set objMember = New Member
						objMember.MemberModify Session("Passport")
						Set objMember = Nothing
					End If
				%>
				<br>&nbsp;<br>
			</td>
		</tr>
	</table>
	<%
		Set objInterface = New Interface
		objInterface.Footer
		Set objInterface = Nothing
	%>
</body>

</html>

membermodify.asp - 源码说明

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

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

⌨️ 快捷键说明

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