📄 main.asp
字号:
<td align="center" height="50">
<div id=demo style=overflow:hidden;height:50;width:100%;color:#ffffff><table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top>
<%
set conn1=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(mdb)
conn1.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
sql="select top 20 fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed,istop from friendlink where fl_logo<>'' and passed=0 and lk=0 and istop=1 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn1,1,1
Response.Write "<TABLE cellPadding=3><TBODY>" & vbCrLf
Response.Write "<TR align=middle>" & vbCrLf
Response.Write "<TD><a href='http://hx66.net/' target='_blank'><img border=0 src='../img/logo.gif' width='88' height='31' Title='花香盈路，锦绣人生！'></a>" & vbCrLf
Response.Write "</TD>" & vbCrLf
do while not rs.eof
Response.Write "<TD><a href='../link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' width='88' height='31' title='网站名称："&rs("fl_name")&"
网站地址："&rs("fl_url")&"
加入时间："&rs("fl_date")&"
点击次数："&rs("count")&"'></a>" & vbCrLf
Response.Write "</TD>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "当前没有链接"
end if
Response.Write "</TBODY></TABLE>"
%></td><td id=demo2 valign=top></td></tr></table></div><script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table class="table-hx66s" cellSpacing="1" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<tr>
<td>
<table width="740" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse">
<tr>
<td class="table-xiayou" align="center" width="740" height="30"><div align="center"><img src="images/off.gif" align="absmiddle"> 普通的论坛 <img src="images/on.gif" align="absmiddle"> 会员的论坛 <img src="images/lock.gif" align="absmiddle"> 认证的论坛</div></td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub
sub showform()
dim vote
vote=checknum(request.querystring("vote"))
%>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<TR>
<TD>
<script language="JavaScript" src="inc/code.js"></script>
<SCRIPT>
function showvote(){
if (document.FrontPage_Form1.voteyn.checked == true) {
vote.style.display = "";
}else{
vote.style.display = "none";
}
}
</SCRIPT>
<%
if (showset=1 or checkadmin(ckuname)>0) and checknum(request.querystring("html"))=1 then
%>
<script language="javascript">
function chk(){
document.all("body").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("主题不能为空");
document.form.title.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 id="form" onsubmit="return chk();" action="bbs_send.asp?type=save&bid=<%=bid%>" method=post>
<TR>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此发表新贴</td>
</TR>
<TR>
<TD width=20% height=30>
<FONT color=#cc6600> 标 题：</FONT><select size=1 name="about" onchange=DoTitle(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>
</select></TD>
<TD width=80%>
<input type="text" maxLength="40" size="72" name="title" class=input value=""> *（限20个汉字）
</TD>
</TR>
<%if vote=1 then%>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>显示投票选项</FONT> <input type="checkbox" onclick=showvote() name="voteyn" value="1" <%if vote=1 then%>checked<%end if%>></TD>
<TD width=80%><FONT color=#cc6600> </FONT></TD></TR>
<tr id=vote style="DISPLAY: <%if vote<>1 then%>none<%end if%>">
<TD width=20%> <FONT color=#cc6600>投票选项：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>最多可添加 <FONT color=red><%=bbscon%></FONT>个选项<br><FONT color=#b70000> <B>·</B></FONT>各个项目用回车隔开<br><FONT color=#b70000> <B>·</B></FONT>
<input type="radio" name="votetype" value="1" checked>单选 <input type="radio" name="votetype" value="2">多选<br><FONT color=#b70000> <B>·</B></FONT>过期时间：<select size="1" name="outtime" style="font-size: 9pt">
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一周</option>
<option value="15">半个月</option>
<option value="31">一个月</option>
<option value="93">三个月</option>
<option value="365">一年</option>
<option value="10000" selected>不过期</option>
</select></TD>
<TD width=80%> <textarea rows=7 name=vote style="width:75%;font-family: 宋体; font-size:9pt"></textarea></TD></TR><%end if%>
<TR>
<TD width=20% valign="top" height=30><BR>
<P> <FONT color=#cc6600> HTML标签：</FONT><BR><FONT color=#b70000> <B>·</B></FONT><a href="bbs_fb.asp?bid=<%=bid%>&vote=<%=vote%>"><FONT color=red>切换至UBB编辑模式</FONT></a></P><P> </P><P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML√<BR><FONT color=#b70000> <B>·</B></FONT>UBB ×</P><P><FONT color=#cc6600> 特殊内容</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML状态禁用特殊功能</P></TD>
<TD width=80%><!--#include file="gethtml.asp" -->
<textarea name="body" cols="50" rows="50" id="content" style="display:none"></textarea><input type=hidden name=hx66htm value=1></td>
</TR>
</TABLE>
<%
else
%>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 onsubmit="return FrontPage_Form1_Validator(this)" action="bbs_send.asp?type=save&bid=<%=bid%>" method=post>
<TR>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此发表新贴</td>
</TR>
<TR>
<TD width=20% height=30>
<FONT color=#cc6600> 标 题：</FONT><select size=1 name="about" onchange=DoTitle(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>
</select></TD>
<TD width=80%> <input type="text" maxLength="40" size="72" name="title" class=input value=""> *（限20个汉字）
</TD>
</TR>
<%if vote=1 then%>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>显示投票选项</FONT> <input type="checkbox" onclick=showvote() name="voteyn" value="1" <%if vote=1 then%>checked<%end if%>></TD>
<TD width=80%><FONT color=#cc6600> </FONT></TD></TR>
<TR id=vote style="DISPLAY: <%if vote<>1 then%>none<%end if%>">
<TD width=20%> <FONT color=#cc6600>投票选项：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>最多可添加 <FONT color=red><%=bbscon%></FONT>个选项<br><FONT color=#b70000> <B>·</B></FONT>各个项目用回车隔开<br><FONT color=#b70000> <B>·</B></FONT>
<input type="radio" name="votetype" value="1" checked>单选 <input type="radio" name="votetype" value="2">多选<br><FONT color=#b70000> <B>·</B></FONT>过期时间：<select size="1" name="outtime" style="font-size: 9pt">
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一周</option>
<option value="15">半个月</option>
<option value="31">一个月</option>
<option value="93">三个月</option>
<option value="365">一年</option>
<option value="10000" selected>不过期</option>
</select></TD>
<TD width=80%> <textarea rows=7 name=vote style="width:75%;font-family: 宋体; font-size:9pt"></textarea></TD></TR><%end if%>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>文件上传：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>上传1文件需20积分</TD><TD width=80%><%if checknum(canupload)=1 or checkadmin(ckuname)>=3 then%><IFRAME name=ad src="upload.asp" frameBorder=0 width="100%" scrolling=no height=28></IFRAME><%else%> 上传文件功能已被管理员关闭<%end if%></td>
</TR>
<TR>
<TD width=20%> <FONT color=#cc6600>UBB标签：</FONT><BR><%if showset=1 or checkadmin(ckuname)>0 then%><FONT color=#b70000> <B>·</B></FONT><a href="bbs_fb.asp?bid=<%=bid%>&vote=<%=vote%>&html=1"><FONT color=red>切换至HTML编辑模式</FONT></a><%end if%></TD><TD width=80%><!--#include file="getubb.asp" --></td>
</TR>
<TR>
<TD vAlign=top width=20%>
<P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML×<BR><FONT color=#b70000> <B>·</B></FONT>UBB √</LI></P><P><FONT color=#cc6600> 特殊内容</FONT><BR><font title="内容只有版主可见" style="CURSOR: hand" onclick="FontType('[MASTER]','[/MASTER]')"><FONT color=#b70000> <B>·</B></FONT>悄悄话</font><BR><font title="内容加锁，查看需要口令" style="CURSOR: hand" onclick="LockPassd()"><FONT color=#b70000> <B>·</B></FONT>密码锁</font><BR><font title="内容回复可见" style="CURSOR: hand" onclick="FontType('[showtoreply]','[/showtoreply]')"><FONT color=#b70000> <B>·</B></FONT>回复贴</font><BR><font title="会员论坛积分大于设定值可看" style="CURSOR: hand" onclick="point()"><FONT color=#b70000> <B>·</B></FONT>积分贴</font></P></TD>
<TD width=80%> <TEXTAREA id="Content" class=input name=body rows=15 cols=70 onkeydown=ctlent() title="可以使用Ctrl+Enter直接提交贴子"></TEXTAREA><input type=hidden name=hx66htm value=0>
</TD></TR>
<!--#include file="bqimg.asp" -->
</TABLE>
<%end if%>
<table cellSpacing="15" cellPadding="0" width="740" align="center" border="0" bgcolor=#FFFFFF>
<TD height=30>
<DIV align="center"><input type="submit" value="发表新贴" name="Submit"> <input name="Submit2" type="reset" value="清空重来" onclick="ClearReset()"> <a href="list.asp?bid=<%=bid%>"><img src="images/back.gif" border="0"></a></DIV></form>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TABLE>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -