www.gusucode.com > 在线影院小偷程序联盟多风格后台版 3.2源码程序 > cfss_admin/admin_link.asp
<%@ LANGUAGE = VBScript.Encode %>
<%
'***************************************************
' 程序名称：站长内容联盟网免费版后台管理系统 v2010
' 程序开发：长发帅帅(FJQQ)
' 联系方式：admin@091.cc QQ:529171
' 官方网站：http://www.091.cc/
' 技术支持：http://www.091.cc/book
' 版权声明：未经本人书面署名许可不得删除本版权信息
'***************************************************
%>
<!-- #include file="../inc/fjqq.asp" -->
<!-- #include file="check.asp" -->
<%
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
fjqq_str=request.Form("cfss_link")
createhtml"../js/link.txt",fjqq_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="cfss_link" rows="10" cols="100"><%=FSOFileRead("../js/link.txt")%></textarea></td></tr>
<tr><td class="forumrow"> 示例：网站名|网址|简介|图片(没有就留空，建议用文字链接，因为图片链接对SEO效果不好)</td></tr>
<tr><td class="forumrow"> <input type="submit" value="确认更新" /></td></tr>
</form></table>
</body>
</html><%
end Sub
%>