📄 manggtitle.asp

📁 此程序为网上下载

💻 ASP

字号:

<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
If grade <> 12 Then Response.Redirect "manerr.asp?id=255"
title=Trim(Request.Form("title"))
if title="" then Response.Redirect "manerr.asp?id=256"
html=Trim(Request.Form("html"))
if html<>"1" then gbtop=Server.HTMLEncode(title)
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sql="SELECT value FROM system WHERE name='ggtitle'"
rs.open sql,conn,1,3
if Not(rs.Eof and rs.Bof) then
 rs("value")=title
 rs.Update
 Application.Lock
  Application("wsaxhg_title")=title
 Application.UnLock
end if
rs.close
conn.close
set rs=nothing
set conn=nothing%><html>
<head>
<title>站长公告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【站长公告】</font></h1>
</div>
<hr noshade size="1" color=009900>
<b>［操作完成］</b><br>
<hr noshade size="1" color=009900>
<table border="1" cellspacing="0" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="E0E0E0" cellpadding="4">
<tr>
<td><font color="#FF9933">已经将聊天室顶部公告更改为：</font><br>
<br><%=title%><br><br><div align=center><a href="javascript:history.go(-1)">返回</a></div></td>
</tr>
</table>
<hr noshade size="1" color=009900>
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -