📄 admin_callpost.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
End Select
Sub admin_index()
postnu=request.Form("postnu")
postsize=request.Form("postsize")
postfile=request.Form("postfile")
Postopen=request.Form("Postopen")
posts=request.form("posts")
titles=request.form("titles")
title=request.Form("title")
If postnu="" And postsize = "" And Postopen="" Then
postjs=""
Else
If IsNumeric(postnu) = false or IsNumeric(postsize) = false Then
%>
<script language="javascript">
alert("显示条数和每条子数必须是纯数字")
document.location="javascript:history.back(-1)"
</script>
<%
response.end()
End If
If posts = "主目录" Then
%>
<script language="javascript">
alert("目前不支持主目录的调用")
document.location="javascript:history.back(-1)"
</script>
<%
response.end()
End If
if titles <> "" Then
top = "&top="
top = top+titles
End If
if postfile <> "" Then
file = "&postfile="
postfiles = file+postfile&"/"
postfi=postfile&"/"
End If
postjs="<script type=""text/javascript"" language=""javascript"" src="""& postfi &"fywen_title.Asp?post="&posts&"&postnu="&postnu&"&postsize="&postsize&"&open="&postopen&"&title="&title&""&top&postfiles&"""></script>"
End If
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—贴吧管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">首页调用</strong></td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>修改说明：</strong></td>
</tr>
<tr>
<td height="38" class="table_2" valign="top">首页调用目前只支持贴吧最新帖子调用，只需把生成的代码放在网页适当的位置即可，当设置不调不到帖子时请检查调用路径是否正确！<br>
如果在标题头部内容添加图片地址格式为：<img src=图片地址> 在src=里不必加引号<br>
*如果在网站首页调用贴吧内容请在调用目录内输入贴吧所在的文件夹名称（例：如果在Post文件夹就输入Post）如果调用页面与被调用页面在同一目录或非主目录的目录内在文件夹名称前加“../”*</td>
</tr>
</table>
<br><form action="admin_callpost.asp" method="post">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" colspan="2"><strong class="size">首页调用设置</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="2">生成js调用代码设置</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">显示条数：</td>
<td width="78%"><input name="postnu" class="input" id="postnu" style="width:145px;" value="<%=postnu%>" >
*</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">每条字数：</td>
<td width="78%"><input name="postsize" class="input" id="postsize" style="width:145px;" value="<%=postsize%>" >
*</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">调用目录：</td>
<td width="78%"><input name="postfile" class="input" id="postfile" style="width:145px;" value="<%=postfile%>" >
如果在贴吧目录内调用请留空</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">标题头部内容：（选填）</td>
<td width="78%"><input name="titles" class="input" id="titles" style="width:350px;" value="<%=titles%>" >
可以是文字也可以是图片地址html代码</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">打开方式：</td>
<td width="78%"> <INPUT name="Postopen" type="radio" value="no" checked>
原窗口打开 <input type="radio" value="yes" name="Postopen">
新窗口打开</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">显示方式：</td>
<td width="78%"> <INPUT name="title" type="radio" value="no" checked>
未结束的标题后面不显示省略号
<input type="radio" value="yes" name="title">
未结束的标题后面显示省略号</td>
</tr>
<tr>
<td height="25" class="table_3" width="22%">选取版面：</td>
<td width="78%"><select name="posts" id="skin">
<%
sql="select * from [post] where [posts]='0' order by [id] desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="主目录"><%=rs("posttitle")%></option>
<%
set rs1= server.createobject("adodb.recordset")
sql1= "select * from [post] where [posttitle]='"&rs("posttitle")&"' And [posts]<>'0' order by [id] desc "
rs1.open sql1,conn,1
if not rs1.eof and not rs1.bof then
do while not rs1.eof
%>
<option value="<%=server.URLEncode(rs1("posts"))%>">> <%=rs1("posts")%></option>
<%
rs1.movenext
loop
End if
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<option value=""没有分类"">没有分类</option>"
End if
%>
</select></td>
</tr>
<tr>
<td height="25" class="bj" width="22%"> </td>
<td class="bj" height="25" width="78%"><input name="submit" type="submit" value="生成调用代码" class="buttion"> </td>
</tr>
<tr>
<td height="100" class="table_3" width="22%"> </td>
<td width="78%"><textarea name="fywentj" cols="60" rows="6" class="input_2"><%=postjs%></textarea></td>
</tr>
</table>
</form>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -