📄 fso.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
Response.Expires=0
If session("kenanbook")="" Then
Response.Redirect("adminlogin.asp")
End If
sql="select * from admin where admin='"&session("kenanbook")&"' and flag=0"
set rs=conn.execute(sql)
If rs.Bof Then
Response.write "<script language=javascript>alert('你没有权限进入此页！');history.back();</script>"
Response.End
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>留言本管理页面</title>
</head>
<body>
<%
If showbanner=true Then
call banner()
End If
%>
<% header()%>
<%
If Request.QueryString("style")="add" Then
gg=Request.Form("gg")
set fso = Server.Createobject("Scripting.FileSystemObject")
path = server.MapPath("text.txt")
set file = fso.opentextfile(path,2,TRUE)
file.write(gg)
file.close
set file = nothing
set fso = nothing
Response.Write("<script language=javascript>alert('公告更新成功！！！请返回！！！');window.location.replace('adminindex.asp')</script>")
End If
%>
<table width=<%=bodywidth%> height="264" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="216" align="center"><br>
<!--#include file="menu.asp"-->
</td>
<td width="544" valign="top"><br> <br> <table width="441" height="290" border="0" align="center" cellpadding="0" cellspacing="0" class="table002">
<tr align="center">
<td width="441" height="19" colspan="2">发布留言本公告</td>
</tr>
<tr>
<td colspan="2" valign="top">
<form name="form1" method="post" action="fso.asp?style=add">
<table width="107%" height="207" border="0" align="center" cellpadding="0" cellspacing="6">
<tr>
<td width="14%"> </td>
<td width="86%"> </td>
</tr>
<tr>
<td height="102">发布公告:</td>
<td><textarea name="gg" cols="40" rows="3"></textarea></td>
</tr>
<tr>
<td height="43"> </td>
<td><input type="submit" name="Submit" value="发布">
<input type="button" name="Submit2" value="取消" onClick="javascript:history.back()"></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<% footer()
connclose()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -