sysmanager.asp

来自「在ASP下实现的bbs网站建设」· ASP 代码 · 共 41 行

ASP
41 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="connection.asp" -->
<html >
<link rel="stylesheet" type="text/css" href="main.css">
<body class=clblue>
<%		dim strSQL,rsSysInfo,showSysop
 	    showSysop=mid(Application("Sysop"),2,len(Application("Sysop"))-2)	

		%>
<div align=center><center>
<Br>
<form action="set.asp" name=frmTitle>
      <table width=85% class=InfoMan border=1 cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
        <tr bgcolor="#3399CC"> 
          <td colspan=2 align=center>站长日记之系统设置</td>
        </tr>
        <tr bgcolor="#3399CC"> 
          <td width=6% align=right>1&nbsp;</td>
          <td> &nbsp;&nbsp;讨论区大名： 
            <INPUT TYPE="text" size=30 NAME="title" value="<%=Application("Title")%>" >&nbsp;&nbsp;
		  <INPUT TYPE="submit" name="SetIt" value="改名">
  </td></tr>
        <tr bgcolor="#3399CC"> 
          <td width=6% align=right>2&nbsp;</td>
          <td> &nbsp;&nbsp;管理员名单： 
            <INPUT TYPE="text" size=30 NAME="sysop" value="<%=showSysop%>" >&nbsp;&nbsp;
		  <INPUT TYPE="submit" name="SetIt" value="管理员">
  </td></tr>
 </table>
</form>
<%		dim rsBook,iUser,i,byOrder,deleteid,misspassid
		dim rsBoard,rsBook1,strFtitle,strBname
		set rsBook=server.CreateObject("ADODB.RecordSet")
		set rsBook1=server.CreateObject("ADODB.RecordSet")
		set rsBoard=server.CreateObject("ADODB.RecordSet")
%>
</center></div>
</body>
</html>

sysmanager.asp - 源码说明

本页面展示了「在ASP下实现的bbs网站建设」中的 sysmanager.asp 源码文件，采用 ASP 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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