users.asp

来自「本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 47 行

ASP
47
字号
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="head.asp"-->
<title><%=NetName%> - 典型用户</title>

<body>
<!--#include file="toper.asp"-->
<table width="750" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><%
	if Session("Id")<>"" and Session("UserName")<>"" then
	  response.write "<br>"
	  call ShowMenu
	  response.write "<br>"
	end if%></td>
  </tr>
</table>
<table width="500" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td valign="top"><%ShowContent()%>
	<br>
	</td>
  </tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td></td>
  </tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td></td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</body>
</html>
<%
Function ShowContent ()
	sql="select Users from Content"
	set rs=conn.execute (sql)
	if not rs.eof then
		response.write rs("Users")
		rs.close
	end if
End Function
%>

⌨️ 快捷键说明

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