📄 t.asp
字号:
}
}
}
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]"+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);
}
}
}
function Sound() {
if (basic) {
AddTxt="\r[SOUND][/SOUND]";
AddText(AddTxt);
} else {
txt=prompt("sound 背景音乐文件的地址","http://");
if (txt!=null) {
AddTxt="\r[SOUND]"+txt;
AddText(AddTxt);
AddTxt="[/SOUND]";
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=55% 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>主题列表</u></FONT></TD><TD width=10% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="#/"><font color=<%=HOST_FONT%>>发表新主题</font></a></TD><TD width=34% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><font color=<%=HOST_FONT%>>斑竹:</font><font color=<%=HOST_FONT%>><u><%=BoardMaster%></u></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0 bgColor=#ffffff>
<TBODY>
<% if Action <> 1 then %>
<TR>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>点击数</TD>
<TD class=INDEX_XMALL width="7%" align=center height="20" bgColor=#eeeeee>回帖数</TD>
<TD class=INDEX_XMALL width="52%" height="20" bgColor=#eeeeee>帖子主题</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>发表作者</TD>
<TD class=INDEX_XMALL width="10%" height="20" bgColor=#eeeeee>最后回帖</TD>
<TD class=INDEX_XMALL width="14%" height="20" bgColor=#eeeeee>回帖时间</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 ParentID=0 or Status=2 order by Status=2,Status=4,UpdateTime desc"
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
%>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="#ffffff"
if i mod 2 = 0 then
bgcolor=""&HOST_BODY&""
else
bgcolor="#ffffff"
end If
%>
<%
TopicIp=rs("TopicIp")
ReplyIp=rs("ReplyIp")
Call IpArray(TopicIp)
Call IpArray(ReplyIp)
%>
<TR bgcolor="<%=bgcolor%>">
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(13))%></TD>
<TD class=INDEX_XMALL height="28" align="middle"><%Response.Write(rs(14))%></TD>
<TD class=INDEX_TMALL height="28"><%Call CheckContent_Gif%><% if Rs("Status")=2 then response.Write("[<font color=#cc0000>通告</font>]") else response.Write("") end if %><% if Rs("Status")=3 then response.Write("[<font color=#cc0000>已锁</font>]") else response.Write("") end if %><% if Rs("Status")=5 then response.Write("[<font color=#cc0000>精华</font>]") else response.Write("") end if %><% if Rs("Status")=4 then response.Write("[<font color=#cc0000>置顶</font>]") else response.Write("") end if %><% if Rs("Replys")>HOST_NOT then response.Write("[<font color=#cc0000>最热</font>]") else response.Write("") end if %><A href="p.asp?/=<%Response.Write(rs(2))%>"><% if Rs("Status")=2 then response.Write("<font color=#CC0000>"&Topic_Filter(HTMLCode(rs(8)))&"</font>") else response.Write(""&Topic_Filter(HTMLCode(rs(8)))&"") end if %></A></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("UserName")="" then response.Write(""&TopicIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("UserName"))&" target=_blank>"&HTMLCode(Rs("UserName"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><% if Rs("LastPost")="" then response.Write(""&ReplyIp&"") else response.Write("<a href=u.asp?/="&Server.UrlEncode(Rs("LastPost"))&" target=_blank>"&HTMLCode(Rs("LastPost"))&"</a>") end if %></TD>
<TD class=INDEX_XMALL height="28"><%Response.Write(rs(12))%></TD></TR>
<%
else
exit for
end if
rs.movenext
Next
%>
<TR>
<TD colspan="6" bgcolor="#ffffff" width="100%" height="30" class=INDEX_XMALL>
<%
response.Write("本贴吧共有主题数 <font color=#cc0000>"&TopicID&"</font> 篇, 帖子数 <font color=#cc0000>"&ReplyID&"</font> 篇, ")
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<u>"&MyPage&"</u>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?/="&Server.UrlEncode(BoardName)&"&T="&MaxPages&""" title=""最后页"">>></a>]")
%>
</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0 bgColor=#ffffff>
<TBODY>
<FORM id=myForm name=myForm method=post action=?/=<%=BoardNlass%>&//=<%=BoardClass%>&///=<%=Boardchild%>&action=1 onsubmit="return myForm_onsubmit()">
<TR>
<TD width="4%" height="30"></TD>
<TD class=INDEX_XMALL colspan="2" width="95%" height="30"></TD>
<TD width="1%" height="30"></TD></TR>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="20"></TD>
<TD class=INDEX_XMALL width="90%" height="20"><div ID="layer" style="position:absolute; left:330; background-color:#ffffff; width:120;height:100; visibility:hidden"><script language="JavaScript">showFace()</script></div><input class="input" type="button" value="显示帖子表情" onClick="showOrHide(1);"><input class="input" type="button" value="关闭帖子表情" onClick="showOrHide(0);"></TD>
<TD width="1%" height="25"></TD></TR>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25">标 题:</TD>
<TD class=INDEX_XMALL width="90%" height="25">
<select name=select_Title onchange="rtitle(this.options[this.selectedIndex].value)">
<option selected value="">标题类型</OPTION>
<option value="[原创]">[原创]</option>
<option value="[转帖]">[转帖]</option>
<option value="[新闻]">[新闻]</option>
<option value="[文章]">[文章]</option>
<option value="[分享]">[分享]</option>
<option value="[下载]">[下载]</option>
<option value="[精品]">[精品]</option>
<option value="[推荐]">[推荐]</option>
<option value="[问题]">[问题]</option>
<option value="[投票]">[投票]</option>
<option value="[通告]">[通告]</option>
<option value="[教程]">[教程]</option>
<option value="[建议]">[建议]</option>
<option value="[闲聊]">[闲聊]</option>
<option value="[测试]">[测试]</option>
<option value="[求助]">[求助]</option>
<option value="[注意]">[注意]</option>
<option value="[其他]">[其他]</option></select><INPUT name="Title" size="60" maxLength="50"> *</TD>
<TD width="1%" height="25"></TD></TR>
<%If HOST_UBB=0 then%>
<TR>
<TD width="4%" height="25"></TD>
<TD class=INDEX_XMALL width="5%" height="25"></TD>
<TD class=INDEX_XMALL width="90%" height="25">
<select name="FONT" onChange="Font(this.options[this.selectedIndex].value)">
<option value="宋体" selected>宋体</option>
<option value="楷体_GB2312">楷体_GB2312</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<option value="Andale Mono">Andale Mono</option>
<option value=Arial>Arial</option>
<option value="Arial Black">Arial Black</option>
<option value="Book Antiqua">Book Antiqua</option>
<option value="Century Gothic">Century Gothic</option>
<option value="Comic Sans MS">Comic Sans MS</option>
<option value="Courier New">Courier New</option>
<option value=Georgia>Georgia</option>
<option value=Impact>Impact</option>
<option value=Tahoma>Tahoma</option>
<option value="Times New Roman" >Times New Roman</option>
<option value="Trebuchet MS">Trebuchet MS</option>
<option value="Script MT Bold">Script MT Bold</option>
<option value=Stencil>Stencil</option>
<option value=Verdana>Verdana</option>
<option value="Lucida Console">Lucida Console</option>
</select>
<select name="SIZE" onChange="Size(this.options[this.selectedIndex].value)">
<option value="1">1px</option>
<option value="2">2px</option>
<option value="3" selected>3px</option>
<option value="4">4px</option>
<option value="5">5px</option>
</select>
<select name="COLOR" onChange="Color(this.options[this.selectedIndex].value)">
<option style="background-color:#F0F8FF;color: #F0F8FF" value="#F0F8FF">#F0F8FF</option>
<option style="background-color:#FAEBD7;color: #FAEBD7" value="#FAEBD7">#FAEBD7</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#7FFFD4;color: #7FFFD4" value="#7FFFD4">#7FFFD4</option>
<option style="background-color:#F0FFFF;color: #F0FFFF" value="#F0FFFF">#F0FFFF</option>
<option style="background-color:#F5F5DC;color: #F5F5DC" value="#F5F5DC">#F5F5DC</option>
<option style="background-color:#FFE4C4;color: #FFE4C4" value="#FFE4C4">#FFE4C4</option>
<option style="background-color:#000000;color: #000000" value="#000000">#000000</option>
<option style="background-color:#FFEBCD;color: #FFEBCD" value="#FFEBCD">#FFEBCD</option>
<option style="background-color:#0000FF;color: #0000FF" value="#0000FF">#0000FF</option>
<option style="background-color:#8A2BE2;color: #8A2BE2" value="#8A2BE2">#8A2BE2</option>
<option style="background-color:#A52A2A;color: #A52A2A" value="#A52A2A">#A52A2A</option>
<option style="background-color:#DEB887;color: #DEB887" value="#DEB887">#DEB887</option>
<option style="background-color:#5F9EA0;color: #5F9EA0" value="#5F9EA0">#5F9EA0</option>
<option style="background-color:#7FFF00;color: #7FFF00" value="#7FFF00">#7FFF00</option>
<option style="background-color:#D2691E;color: #D2691E" value="#D2691E">#D2691E</option>
<option style="background-color:#FF7F50;color: #FF7F50" value="#FF7F50">#FF7F50</option>
<option style="background-color:#6495ED;color: #6495ED" value="#6495ED" selected>#6495ED</option>
<option style="background-color:#FFF8DC;color: #FFF8DC" value="#FFF8DC">#FFF8DC</option>
<option style="background-color:#DC143C;color: #DC143C" value="#DC143C">#DC143C</option>
<option style="background-color:#00FFFF;color: #00FFFF" value="#00FFFF">#00FFFF</option>
<option style="background-color:#00008B;color: #00008B" value="#00008B">#00008B</option>
<option style="background-color:#008B8B;color: #008B8B" value="#008B8B">#008B8B</option>
<option style="background-color:#B8860B;color: #B8860B" value="#B8860B">#B8860B</option>
<option style="background-color:#A9A9A9;color: #A9A9A9" value="#A9A9A9">#A9A9A9</option>
<option style="background-color:#006400;color: #006400" value="#006400">#006400</option>
<option style="background-color:#BDB76B;color: #BDB76B" value="#BDB76B">#BDB76B</option>
<option style="background-color:#8B008B;color: #8B008B" value="#8B008B">#8B008B</option>
<option style="background-color:#556B2F;color: #556B2F" value="#556B2F">#556B2F</option>
<option style="background-color:#FF8C00;color: #FF8C00" value="#FF8C00">#FF8C00</option>
<option style="background-color:#9932CC;color: #9932CC" value="#9932CC">#9932CC</option>
<option style="background-color:#8B0000;color: #8B0000" value="#8B0000">#8B0000</option>
<option style="background-color:#E9967A;color: #E9967A" value="#E9967A">#E9967A</option>
<option style="background-color:#8FBC8F;color: #8FBC8F" value="#8FBC8F">#8FBC8F</option>
<option style="background-color:#483D8B;color: #483D8B" value="#483D8B">#483D8B</option>
<option style="background-color:#2F4F4F;color: #2F4F4F" value="#2F4F4F">#2F4F4F</option>
<option style="background-color:#00CED1;color: #00CED1" value="#00CED1">#00CED1</option>
<option style="background-color:#9400D3;color: #9400D3" value="#9400D3">#9400D3</option>
<option style="background-color:#FF1493;color: #FF1493" value="#FF1493">#FF1493</option>
<option style="background-color:#00BFFF;color: #00BFFF" value="#00BFFF">#00BFFF</option>
<option style="background-color:#696969;color: #696969" value="#696969">#696969</option>
<option style="background-color:#1E90FF;color: #1E90FF" value="#1E90FF">#1E90FF</option>
<option style="background-color:#B22222;color: #B22222" value="#B22222">#B22222</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -