📄 admin_link.asp

📁 1、采用4.5修改而成。 2、添加了求片区

💻 ASP

字号:

<!-- #include file="../inc/sub.asp" -->
<!-- #include file="check.asp" -->
<%'====================================================================
'=              Copyright (c) 2005-2007,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：admin_link.asp                   =
'=                     摘    要：后台—友情链接                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-10-8                         =
'====================================================================%>
<%
Dim action
action=Request.QueryString ("action")
Select Case Lcase(action)
Case "add"
	Call add
Case Else
	Call main'
End Select
call admin_footer()

Sub add
maxz_str=request.Form("zt_link")
createhtml"../template/link.txt",maxz_str
response.redirect"?"
End Sub 
Sub main%><html>
<head>
<title>友情链接管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>

</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder">
<form method="post" action="?action=add"><tr>
<th>友情链接列表</th></tr>
<tr><td class="forumrow"><textarea name="zt_link" rows="10" cols="100"><%=FSOFileRead("../template/link.txt")%></textarea></td></tr>
<tr><td class="forumrow">&nbsp;示例：网站名|网址|简介|图片(没有就留空，建议用文字链接，因为图片链接对SEO效果不好)</td></tr>
<tr><td class="forumrow">&nbsp;<input type="submit" value="确认更新" /></td></tr>
</form></table>
</body>
</html><%
end Sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -