📄 sysmanager.asp
字号:
<%@ 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 </td>
<td> 讨论区大名：
<INPUT TYPE="text" size=30 NAME="title" value="<%=Application("Title")%>" >
<INPUT TYPE="submit" name="SetIt" value="改名">
</td></tr>
<tr bgcolor="#3399CC">
<td width=6% align=right>2 </td>
<td> 管理员名单：
<INPUT TYPE="text" size=30 NAME="sysop" value="<%=showSysop%>" >
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -