📄 p.asp
字号:
} else{
txt=prompt("左对齐的文本","文本");
if (txt!=null) {
AddTxt="\r[ALIGN=LEFT]"+txt;
AddText(AddTxt);
AddTxt="[/ALIGN]";
AddText(AddTxt);
}
}
}
function Center() {
if (basic) {
AddTxt="\r[ALIGN=CENTER][/ALIGN]";
AddText(AddTxt);
} else{
txt=prompt("居中对齐的文本","文本");
if (txt!=null) {
AddTxt="\r[ALIGN=CENTER]"+txt;
AddText(AddTxt);
AddTxt="[/ALIGN]";
AddText(AddTxt);
}
}
}
function Right() {
if (basic) {
AddTxt="\r[ALIGN=RIGHT][/ALIGN]";
AddText(AddTxt);
} else{
txt=prompt("右对齐的文本","文本");
if (txt!=null) {
AddTxt="\r[ALIGN=RIGHT]"+txt;
AddText(AddTxt);
AddTxt="[/ALIGN]";
AddText(AddTxt);
}
}
}
function Link() {
if (basic) {
AddTxt="\r[URL][/URL]";
AddText(AddTxt);
} else {
txt=prompt("http:// 超级链接地址","http://");
if (txt!=null) {
AddTxt="[URL="+txt+"]"+txt;
AddText(AddTxt);
AddTxt="[/URL]";
AddText(AddTxt);
}
}
}
function Mail() {
if (basic) {
AddTxt="\r[EMAIL][/EMAIL]";
AddText(AddTxt);
} else {
txt=prompt("email 电子邮件地址","xxx@domain.com");
if (txt!=null) {
AddTxt="[EMAIL="+txt+"]"+txt;
AddText(AddTxt);
AddTxt="[/EMAIL]";
AddText(AddTxt);
}
}
}
function Image() {
if (basic) {
AddTxt="\r[IMG][/IMG]";
AddText(AddTxt);
} else {
txt=prompt("外部图片地址","http://");
if(txt!=null) {
AddTxt="\r[IMG]"+txt;
AddText(AddTxt);
AddTxt="[/IMG]";
AddText(AddTxt);
}
}
}
function Flash() {
if (basic) {
AddTxt="\r[FLASH][/FLASH]";
AddText(AddTxt);
} else {
txt=prompt("flash 动画文件的地址","http://");
if (txt!=null) {
AddTxt="\r[FLASH=330,300]"+txt;
AddText(AddTxt);
AddTxt="[/FLASH]";
AddText(AddTxt);
}
}
}
function Code() {
if (basic) {
AddTxt="\r[CODE][/CODE]";
AddText(AddTxt);
} else {
txt=prompt("插入标记的代码","文本");
if (txt!=null) {
AddTxt="\r[CODE]"+txt;
AddText(AddTxt);
AddTxt="[/CODE]";
AddText(AddTxt);
}
}
}
function Quote() {
if (basic) {
AddTxt="\r[QUOTE][/QUOTE]";
AddText(AddTxt);
} else {
txt=prompt("插入引用文本","文本");
if(txt!=null) {
AddTxt="\r[QUOTE]"+txt;
AddText(AddTxt);
AddTxt="[/QUOTE]";
AddText(AddTxt);
}
}
}
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="tops.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
<TBODY>
<TR>
<TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=80% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="index.asp"><font color=<%=HOST_FONT%>>首页</font></a> <font color=<%=HOST_FONT%>>></font> <A href="t.asp?/=<%=Server.UrlEncode(BoardName)%>"><font color=<%=HOST_FONT%>><%=HTMLCode(BoardName)%></font></A> <font color=<%=HOST_FONT%>>></font> <font color=<%=HOST_FONT%>><u><%=HTMLCode(Title)%></u></font></TD><TD width=19% height=20 align="right" bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><font color=<%=HOST_FONT%>>人气指数:[ <%=Reads%> ]</font> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0 bgColor=#ffffff>
<TBODY>
<% if Action <> 1 then %>
<TR>
<TD colspan="3" width="100%" height="20"></TD></TR>
<%
Dim MyPageSize,MyPage
Page=CInt(Request.QueryString("T"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if
%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * from QiQiBoy_Topic_Disp where BoardNlass="&Cint(BoardNlass)&" and BoardClass="&Cint(BoardClass)&" and BoardChild="&Cint(BoardChild)&" and RootID="&Cint(RootID)&" order by TopicID asc"
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
Total = rs.RecordCount
rs.absolutepage = MyPage
end if
dim i
Counter=0
%>
<TR>
<TD width="4%" height="20" style="word-break:break-all"></TD>
<TD bgcolor="#ffffff" width="95%" height="20" class=INDEX_XMALL>
<%
response.Write("本主题共有帖子数 <font color=#cc0000>"&Replys&"</font> 篇, ")
response.Write("[<a href=""?/="&RootID&"&T=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?/="&RootID&"&T="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?/="&RootID&"&T="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?/="&RootID&"&T="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?/="&RootID&"&T="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?/="&RootID&"&T="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?/="&RootID&"&T="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?/="&RootID&"&T="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?/="&RootID&"&T="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?/="&RootID&"&T="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?/="&RootID&"&T="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?/="&RootID&"&T="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?/="&RootID&"&T="&MaxPages&""" title=""最后页"">>></a>]")
%>
</TD>
<TD width="1%" height="20" style="word-break:break-all"></TD></TR>
<TR>
<TD colspan="3" width="100%" height="10"></TD></TR>
<TR>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="ffffff"
if i mod 2 = 0 then
bgcolor="eeeeee"
else
bgcolor="ffffff"
end If
%>
<%
Sql_Ad="select * from QiQiBoy_Ad_Disp where AdNum="&i&" Order By ID"
set rs_Ad=server.createobject("adodb.recordset")
rs_Ad.Open Sql_Ad,conn,1,1
AdNum=Rs_Ad("AdNum")
AdImg=Rs_Ad("AdImg")
AdHttp=Rs_Ad("AdHttp")
AdList=Rs_Ad("AdList")
%>
<%
TopicIp=rs("TopicIp")
Call IpArray(TopicIp)
%>
<TR>
<TD class=INDEX_XMALL width="4%" height="17" align=center><font color="#0000ff"><%=(MyPage-1)*MyPageSize+i%></font></TD>
<TD class=INDEX_TMALL width="92%" height="17"><font color="#0000ff"><%=Topic_Filter(HTMLcode(rs(8)))%></font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -