📄 showbbs.asp
字号:
var col = prompt("设置文字的背景色和颜色.用法: [SPAN=背景色, 颜色]要产生效果的文字[/SPAN]\n请再设置文字的颜色", "red");
AddTxt = "[span="+bcol+","+col+"]"+txt
AddText(AddTxt);
AddTxt="[/span]";
AddText(AddTxt);
}
function yglow() {
var FoundErrors = '';
var enterURL = prompt("使文字产生光晕效果.用法: [GLOW=宽度, 颜色, 边界]要产生光晕效果的文字[/GLOW]", "光晕文字");
var enterCOL = prompt("使文字产生光晕效果.用法: [GLOW=宽度, 颜色, 边界]要产生光晕效果的文字[/GLOW]", "100,red,2");
if (!enterURL||!enterCOL) {
FoundErrors += "\n" + "您必须输入各项参数!";
}
if (FoundErrors) {
alert("错误!"+FoundErrors);
return;
}
AddTxt = "[glow="+enterCOL+"]"+enterURL
AddText(AddTxt);
AddTxt="[/glow]";
AddText(AddTxt);
}
</script>
</head>
<body bgcolor="#FFFFFF" background="file:///E|/网站文件/image/bg1.gif" leftmargin="0" topmargin="0">
<div align="center">
<%
sql="select * from yfindex where indexid="&indexid&""
set rscust=server.createobject("adodb.recordset")
rscust.open sql,conn,1,3 %>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top"><br> <table width="95%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="3" class="px14">
<tr bgcolor="#FFFFCC">
<td height="22" bgcolor="#94CCFE"> <strong><%= boardname %>-><%= suboardname %></strong></td>
</tr>
<tr bgcolor="#FFFFCC">
<td height="22" bgcolor="#BCDFFE" class="x14">标题:<font color="#CC0000"><%=(rscust("title"))%></font></td>
</tr>
</table>
<br> <center>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#D6EEFA">
<tr>
<td width="42%"><img src="images/<%=trim(rscust("classid"))%>.gif" border="0">
作 者: <a href="user.asp?userid=<%=rscust("userid")%>" title=<%=rscust("area")%><%=rscust("nickname")%>:<%=rscust("email")%>><%=rscust("nickname")%></a> 于 <%=rscust("time")%> 在本版发表</td>
<td width="31%" align="right">
<%if adm="3" then%>
<font color="#666666">来自：<%=rscust("ip")%></font>
<%end if%>
</td>
<td width="27%" colspan="5" align="right">
<%if adm="3" or rscust("modifyable")=True and rscust("userid")=session("userid") then %>
<a href="../?del_indexid=<%=rscust("indexid")%>&indexid=<%=rscust("indexid")%>&page_code=<%=Request("page_code")%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>" onClick="return cform()">[删除]</a>
<a href="modi.asp?indexid=<%=rscust("indexid")%>&page_code=<%=Request("page_code")%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>">[修改]</a>
<%end if%>
<a href="#fb">[回复]</a>
<a href="main.asp?page_code=<%=request("page_code")%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>&paixu=<%=request("paixu")%>">[返回]</a>
</td>
</tr>
</table>
<table width="100%" border="0" class="10t" cellpadding="12" cellspacing="0" bgcolor="#E9F5FC">
<tr>
<td width="100%" height="41" colspan="8" valign="top" class="x14">
<% s=rscust("content") %>
<p><%=Autolink(s)%></p>
<%u=rscust("usign") '签名档
if u<>"" then
Response.Write("<p>============================<br>")%>
<%=Autolink(u)%>
<%' set rs_u=server.createobject("adodb.recordset")
' resql_u="select "&usign&" from users where userid="&rscust("userid")
'rs_u.open resql_u,conn,1,3
'If u=1 Then
'qm=rs_u("usign1")%>
<%'= Autolink(qm) %>
<%'end if
'If u=2 Then
'qm=rs_u("usign2")%>
<%'= Autolink(qm)%>
<%'end if
'If u=3 Then
'qm=rs_u("usign3")%>
<%'=Autolink(qm)%>
<%'end if
'set rs_u=nothing%>
<%Response.Write("</p>")
end if %>
</td>
</tr>
</table>
<hr width="100%" size="1">
<% set rs=server.createobject("adodb.recordset")
resql="select * from yfrep where indexid="&indexid&" order by time"
rs.open resql,conn,1,3
if rs.RecordCount>0 then
do while not rs.eof
%>
<table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#D6EEFA">
<tr>
<td width="42%"><img src="images/<%=trim(rs("classid"))%>.gif" border="0">
作 者: <a href="user.asp?userid=<%=rs("userid")%>" title=<%=rs("area")%><%=rs("nickname")%>:<%=rs("email")%>><%=rs("nickname")%></a> 于 <%=rs("time")%>回复</td>
<td width="31%" align="right">
<%if adm="3" then%>
<font color="#666666">来自：<%=rs("ip")%></font>
<%end if%>
</td>
<td width="27%" colspan="2" align="right">
<%if adm="3" then %>
<a href="../?del_repid=<%=rs("repid")%>&indexid=<%=request("indexid")%>&page_code=<%=Request("page_code")%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>" onClick="return cform()">[删除]</a>
<a href="modi2.asp?repid=<%=rs("repid")%>&indexid=<%=request("indexid")%>&page_code=<%=Request("page_code")%>&board=<%=request("board")%>&suboard=<%=request("suboard")%>">[修改]</a>
<%end if%>
<a href="#fb">[回复]</a>
</td>
</tr>
</table>
<table width="100%" border="0" class="10t" cellpadding="12" cellspacing="0" bgcolor="#E9F5FC">
<tr>
<td width="100%" valign="top" colspan="8">
<% s=rs("content")%>
<p><%=Autolink(s)%></p>
<%u=rs("usign") '签名档
if u<>"" then
Response.Write("<p>============================<br>")%>
<%=Autolink(u)%>
<%' set rs_u=server.createobject("adodb.recordset")
' resql_u="select "&usign&" from users where userid="&rscust("userid")
'rs_u.open resql_u,conn,1,3
'If u=1 Then
'qm=rs_u("usign1")%>
<%'= Autolink(qm) %>
<%'end if
'If u=2 Then
'qm=rs_u("usign2")%>
<%'= Autolink(qm)%>
<%'end if
'If u=3 Then
'qm=rs_u("usign3")%>
<%'=Autolink(qm)%>
<%'end if
'set rs_u=nothing%>
<%Response.Write("</p>")
end if %>
</td>
</tr>
</table>
<hr width="100%" size="1">
<%
rs.movenext
loop
end if
%>
</center>
<br>
<div id="login" style="position:absolute; width:191px; height:194px; z-index:1; visibility: hidden;">
<table width="188" border="3" height="194" cellspacing="0" bgcolor="#66CCFF" cellpadding="0">
<tr>
<td> <table width="100%" border="0" cellspacing="4" cellpadding="4">
<form name="form2" method="post" action="access.asp" <% If session("userid")="" Then %>onSubmit="return c_form()"<% End If %>>
<tr>
<td align="center">用 户 登 录</td>
</tr>
<tr>
<td align="center">用户名:
<input name="username" type="text" class="input" size="10" maxlength="20">
</td>
</tr>
<tr>
<td align="center">密 码:
<input name="password" type="password" class="input" size="10" maxlength="20">
<input type="hidden" name="url" value="showbbs.asp?page_code=<%request("page_code")%>&board=<%=Request("board")%>&suboard=<%=Request("suboard")%>&indexid=<%= request("indexid") %>">
</td>
</tr>
<tr>
<td align="center"> <input type="submit" name="Submit3" value="登 录">
<input type="button" name="Button" value="注册" onClick="document.location.href='user_register.asp'">
</td>
</tr>
<tr>
<td align="center"><a href="javascript:;" onClick="MM_showHideLayers('login','','hide')">【关闭】</a></td>
</tr>
</form>
</table></td>
</tr>
</table>
</div>
<br> <br>
<table width="100%" border="0" align="center">
<form method="post" action="write.asp" name="form1" <% If session("userid")="" Then %>onSubmit="return validata_form()"<% End If %>>
<tr >
<td bgcolor="#E1E1E1" class="px14" > <a name="fb"></a> <span class="px14"><font color="#CC0000"><b>回复:
<%=(rscust("title"))%>
<input type="hidden" name="subject" value="Re:<%=rscust("title")%>">
</b></font></span> <span class="px14"><font color="#CC0000"><b>
</b></font></span></td>
</tr>
<tr >
<td >
<% If session("userid")="" Then %>
<table width="100%" border="0" bgcolor="#EFEFEF">
<tr>
<td align="center"><font color="#FF0000">注</font>：如果您是已注册用户，
<a href="javascript:;" onClick="MM_showHideLayers('login','','show')">请点这里登录</a>。
[<a href="user_register.asp">点这里注册</a>]</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" bgcolor="#EFEFEF">
<tr>
<td width="12%" align="right">您的大名：</td>
<td width="40%"><input name="nickname" type="text" class="input" maxlength="20">
<font color="#FF0000"> *</font></td>
<td width="12%" align="right">性别：</td>
<td width="36%"><input type="radio" name="sex" value="1" checked>
先生
<input type="radio" name="sex" value="0">
小姐/女士 </td>
</tr>
<tr>
<td height="19" align="right">E-mail：</td>
<td>
<input name="email" type="text" class="input" maxlength="50">
<font color="#FF0000"> <font color="#FF0000"> *</font>
</font></td>
<td align="right">您来自：</td>
<td><select name="area1" class="input">
<option value="广东省" selected>广东省</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>
<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 type="text" name="area2" class="input" maxlength="12" size="8">
市/地区 </td>
</tr>
</table>
<% End If %>
</td>
</tr>
<tr>
<td> <table width="100%" border="0" cellspacing="1" bgcolor="#F0F0F0">
<tr>
<td> <input type="radio" name="face" value="1" checked>
<img src="images/1.GIF" width="15" height="15" alt="笑一笑^_^" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="2"> <img src="images/2.GIF" width="15" height="15" alt="没劲！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="3"> <img src="images/3.GIF" width="15" height="15" alt="气死人！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="4"> <img src="images/4.GIF" width="15" height="15" alt="请问..." <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="5"> <img src="images/5.GIF" width="15" height="15" alt="随便说啦" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="10"> <img src="images/10.GIF" width="15" height="15" alt="告诉你吧" <%if session("nickname")="" then%>disabled<%end if%>></td>
</tr>
<tr>
<td> <input type="radio" name="face" value="6"> <img src="images/6.GIF" width="15" height="15" alt="大家来看看吧" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="7"> <img src="images/7.GIF" width="15" height="15" alt="反对！反对！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="8"> <img src="images/8.GIF" width="15" height="15" alt="同意！同意！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="9"> <img src="images/9.GIF" width="15" height="15" alt="请注意！请注意！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="11"> <img src="images/11.GIF" width="15" height="15" alt="外号！外号！" <%if session("nickname")="" then%>disabled<%end if%>></td>
<td> <input type="radio" name="face" value="12"> <img src="images/12.GIF" width="15" height="15" alt="好消息!" <%if session("nickname")="" then%>disabled<%end if%>></td>
</tr>
<tr valign="middle">
<td><input type="radio" name="face" value="13"> <img src="images/13.gif" width="22" height="20"></td>
<td><input type="radio" name="face" value="14"> <img src="images/14.gif" width="22" height="29"></td>
<td><input type="radio" name="face" value="15"> <img src="images/15.gif" width="22" height="23"></td>
<td><input type="radio" name="face" value="16"> <img src="images/16.gif" width="20" height="20"></td>
<td><input type="radio" name="face" value="18"> <img src="images/18.gif" width="20" height="20"></td>
<td><input type="radio" name="face" value="20"> <img src="images/20.gif" width="20" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="156"> <p align="center"><br>
<INPUT name="button" type=button class=input title="背景色和颜色" onclick=ytext() value=" A ">
<INPUT name="button" type=button class=input title="加粗" onclick=ybold() value=" B ">
<INPUT name="button" type=button class=input title="倾斜" onclick=italicize() value=" I ">
<INPUT name="button" type=button class=input title="下划线" onclick=underline() value=" U ">
<INPUT name="button" type=button class=input title="超链接" onclick=hyperlink() value="链接">
<INPUT name="button" type=button class=input title="EMAIL" onclick=yemail() value="邮箱">
<INPUT name="button" type=button class=input title="插入图片" onclick=image() value="贴图">
<INPUT name="button" type=button class=input title="飞翔文字" onclick=setfly() value="左右飞">
<INPUT name="button" type=button class=input title="移动文字" onclick=move() value="向左飞">
<INPUT name="button" type=button class=input title="光晕文字" onclick=yglow() value="光晕">
<br>
<textarea name="content" rows="16" cols="80" class="input"></textarea>
<br>
<% If session("userid")<>"" Then %>
<input type="radio" name="usign" value="1">
用签名档
<input name="usign" type="radio" value="" checked>
不用签名档
<% End If %>
</p>
<p align="center">
<input type="hidden" name="indexid" value="<%=indexid%>">
<input type="hidden" name="page_code" value="<%=request("page_code")%>">
<input type="hidden" name="board" value="<%=Request("board")%>">
<input type="hidden" name="suboard" value="<%=Request("suboard")%>">
<input type="submit" name="Submit2" value=" 回 复 " class="input">
<input type="reset" name="Reset" value=" 重 写 " class="input">
<input type="button" name="Submit2" value=" 返 回 " class="input" onClick="history.go(-1)">
</p></td>
</tr>
</form>
</table>
<%
rscust.Close
rs.Close
set rscust=nothing
set rs=nothing
conn.close%> </td>
</tr>
</table></td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -