📄 admin_author.asp
字号:
</td>
<td width="75%" colspan="3" class="alt1">
<input name="Ar_pic" type="text" size="40" type="reset">
<br>
<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleFace" name="a" height="25" width="450">
</iframe></td>
</tr>
<tr>
<td width="25%" height="22" align="right" class="alt2">
CnEndcode 代码：<br>
<input onclick="chmode('2')" type="radio" checked value="2" name="mode">
提示插入 <br>
<input onclick="chmode('0')" type="radio" value="0" name="mode">
直接插入 <br>
<input onclick="chmode('1')" type="radio" value="1" name="mode">
帮助信息 </td>
<td width="75%" colspan="3" class="alt1"><!--#include file="../inc/ubbcode.asp"--></td>
</tr>
<tr>
<td width="25%" height="22" align="right" class="alt2" valign="top">
<br>
<br>
<br>
访谈内容<a class="smalltxt" onclick="checklength(document.input)">
[字数检查]</a>：<br>
</td>
<td width="75%" colspan="3" class="alt1">
<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 96%; HEIGHT: 350px" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"></textarea>
<br><input name="attach" type="hidden">
<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleview" name="a" height="35" width="460">
</iframe></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="确认发表">
<input type="reset" class="button" value="重置内容"></div>
</td>
</tr>
</form>
</table>
<%end sub
Sub ftlist()%>
<script language="JavaScript">
<!--
function del(sortname) {
return(confirm(''CnEndWeb（终点）提醒：\n\n真的要删除 [ ' + sortname + ' ] 吗？\n\n注意，仅此一次确认！\n'));
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="8"><b>查看所有作家访谈</b></td>
</tr>
<form name="form" onsubmit="javascript:return cnendb();" target="cnendb" action="admin_save.asp?info=author_ftlistdel">
<tr align="center" height="25">
<td class="tcat"></td>
<td width="45%" class="tcat"><font color="#FFFFFF"><b>访谈文章名称</b></font></td>
<td width="15%" class="tcat"><font color="#FFFFFF"><b>访谈作家</b></font></td>
<td width="15%" class="tcat"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
sql="select Ar_id,Ar_class,Ar_name,Ar_Author,Ar_lock from Article where Ar_Author<>0 order by Ar_id desc"
'MySQL需要如下语句
conn.CursorLocation=3
rs.open sql,conn,1,1
if rs.eof and rs.bof then%>
<tr align="center">
<td height="22" class="alt1" colspan="9" valign="middle"><span class="style1">暂时没有任何访谈纪录，请添加！</span></td>
</tr>
<%else
Rs.PageSize=MaxAuthorPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
%>
<tr align="center">
<td class="alt2">
<input type="checkbox" name="checked" value="<%=rs("Ar_id")%>"></td>
<td class="alt1" align="left">
<a href="../read_Article.asp?id=<%=rs("Ar_id")%>" target="_blank"><%=rs("Ar_name") %></a></td>
<td class="alt2"><%
set rs2=server.createobject("adodb.recordset")
sql2="select author_Name from Author where Author_ID="&rs("Ar_Author")
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
Response.Write "已被删除"
else
Response.Write "<a href=admin_Author.asp?info=ftedit&id="&rs("Ar_id")&">"&rs2("author_Name")&"</a>"
end if
rs2.close
set rs2=nothing
%></td>
<td class="alt1">
<a title="修改" href="admin_Author.asp?info=ftedit&id=<%=rs("Ar_id")%>">
修改</a>
<a title="删除" href="admin_save.asp?info=article_ftdel&Ar_id=<%=rs("Ar_id")%>&Ar_Author=<%=rs("Ar_Author")%>&page=<%=Page1%>" onclick="return(del('<%=rs("Ar_name")%>'))">
删除</a></td>
</tr>
<%
i=i+1
If i>=MaxAuthorPerPage Then Exit Do
Rs.MoveNext
Loop
%><tr>
<td height="20" align="center" colspan="8" class="alt4">
<input name="info" type="hidden" value="article_ftlistdel">
<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
<input class="button" type="submit" value="删除" name="listdel" style="width: 45; height: 20">
</td>
</tr>
</form>
<%End If
Rs.Close
Set Rs=Nothing%>
<tr align="center">
<td height="25" colspan="9" valign="middle" class="alt2"><%Response.Write ShowPage("admin_Author.asp?info=ftlist",CurrentPage,Num,MaxAuthorPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end sub
Sub ftedit()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs4=server.CreateObject("ADODB.recordset")
sql4="select ar_id,Ar_name,Ar_pic,Ar_Content from Article where Ar_id="&id&""
rs4.open sql4,conn,1,1
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">修改作家访谈</td>
</tr>
<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('50000');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("CnEndWeb（终点）提醒：\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("CnEndWeb（终点）提醒：\n请完成标题或内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("CnEndWeb（终点）提醒：\n您的标题超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("CnEndWeb（终点）提醒：\n文章内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}
theform.replysubmit.disabled = true;
return true;
}
</script>
<form action="admin_save.asp?info=article_ftedit&id=<%=id%>" method="post" name="input" onsubmit="return validate(this)">
<script language="JavaScript" src="../js/bbcode.js"></script>
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class=panel>
<tr>
<td width="25%" height="22" align="right" class="alt2">
访谈文章名称：<br>
</td>
<td width="75%" colspan="3" class="alt1">
<input name="subject" type="text" id="subject" value="<%=rs4("Ar_name")%>" size="40" type="reset" class="form"></td>
</tr>
<tr>
<td width="25%" height="22" align="right" class="alt2">
访谈图片：<br>
</td>
<td width="75%" colspan="3" class="alt1">
<input name="Ar_pic" type="text" value="<%=rs4("Ar_pic")%>" size="40" type="reset" class="form">
<br>
<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleFace" name="a" height="25" width="450">
</iframe></td>
</tr>
<tr>
<td height="22" align="right" class="alt2">
CnEndcode 代码：<br>
<input onclick="chmode('2')" type="radio" checked value="2" name="mode">
提示插入 <br>
<input onclick="chmode('0')" type="radio" value="0" name="mode">
直接插入 <br>
<input onclick="chmode('1')" type="radio" value="1" name="mode">
帮助信息 </td>
<td width="25%" height="22" class="alt1"><!--#include file="../inc/ubbcode.asp"--></td>
</tr>
<tr>
<td width="25%" height="22" align="right" class="alt2" valign="top">
<br>
<br>
<br>
文章内容<a class="smalltxt" onclick="checklength(document.input)">
[字数检查]</a>：<br>
</td>
<td width="75%" colspan="3" class="alt1">
<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 96%; HEIGHT: 350px" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"><%response.write htmlen(rs4("Ar_Content"))%></textarea>
<br><input name="attach" type="hidden">
<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleview" name="a" height="35" width="460">
</iframe></td>
</tr>
</table>
</div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" value="确认修改">
<input type="reset" class="button" value="重置内容"></div>
</td>
</tr>
</form>
</table>
<% rs4.close
set rs4=nothing
end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -