📄 search.asp
字号:
<!--#include file="opendb.asp" -->
<%
dim sql,sql1,board,adm
adm=session("level")
submit=request("submit")
'取大板块名
sql="select * from bbs_board where bid="&request("board")
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
boardname=rscust("board")
set rscust=nothing
'取子板块名
sql="select * from bbs_suboard where subid="&request("suboard")
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
suboardname=rscust("suboard")
stopflag=rscust("stopflag")
set rscust=nothing
'管理员删除文章-----------
if submit="删除文章" then
for each item in request("del_update")
delsql="delete from yfrep where indexid="&item&""
conn.execute(delsql)
delsql="delete from yfindex where indexid="&item&""
conn.execute(delsql)
next
end if
'删除结束---------------
' response.write request("del_update")
' response.end
'管理员选择精华文章-----------
if submit="精华帖子" then
for each item in request("del_update")
updatesql="update yfindex set good=true where indexid="&item&""
conn.execute(updatesql)
next
end if
'结束---------------
'管理员转移贴子到另一版-----------
if submit="转移到" then
for each item in request("del_update")
updatesql="update yfindex set suboard="&request("move_suboard")&" where indexid="&item&""
conn.execute(updatesql)
next
end if
'结束---------------
%>
<%'url="index.asp?page_code="&request("page_code")&""%>
<html>
<head>
<title>中国创业致富论坛</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="bbs.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
function mOvr(src,clrOver){
if (!src.contains(event.fromElement)) {
//src.style.cursor = 'hand';
src.bgColor = clrOver;
}
}
function mOut(src,clrIn) {
if (!src.contains(event.toElement)) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
}
function mClk1(src,id) {
window.location .href =src;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
<script>
<!--
function searchkey() {
validity=true;
if (!check_empty(document.form_search.keyword.value))
{ validity=false;
alert('请输入要搜索的关键字');
document.form_search.keyword.focus();
return validity; }
function check_empty(text) {
return (text.length > 0); // returns false if empty
}
}
//-->
</script>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top"><table width="100%" border="0">
<tr>
<td><a href="http://www.cf98.com/" target="_blank"><img src="images/bbs_title.gif" alt="创富98创业信息网" width="484" height="80" border="0"></a></td>
</tr>
</table>
<br> <table width="97%" height="27" border="0" cellpadding="0" cellspacing="0" background="images/dhbg.gif">
<tr>
<td width="2%" valign="top" bgcolor="#EBEBEB"><img src="images/conner1.gif" width="10" height="10"></td>
<td width="33%" bgcolor="#EBEBEB"> <strong>版块: <%= boardname %> -> <%= suboardname %></strong></td>
<td width="2%" align="right" valign="top" bgcolor="#EBEBEB"><img src="images/conner2.gif"></td>
<td width="49%"><div id="login" style="position:absolute; width:192px; height:195px; 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="form1" method="post" action="access.asp">
<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="main.asp?page_code=<%request("page_code")%>&board=<%=Request("board")%>&suboard=<%=Request("suboard")%>">
</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="#" onClick="MM_showHideLayers('login','','hide')">【关闭】</a></td>
</tr>
</form>
</table></td>
</tr>
</table>
</div>
<img src="images/team.gif" alt="本版版主" width="20" height="20" border="0">：
<%
set rsuser=Server.Createobject("ADODB.Recordset")
rsuser.open "select userid from bbs_bz where suboard="&request("suboard"),conn,1,3
do while not rsuser.eof
if session("userid")=rsuser("userid") then
bz=1
end if%>
<%
set rsbz=Server.Createobject("ADODB.Recordset")
rsbz.open "select nickname from users where userid="&rsuser("userid")&"",conn,1,3
do while not rsbz.eof
%>
<a href="user.asp?userid=<%=rsuser("userid")%>"><%= rsbz("nickname") %></a>
<% rsbz.movenext
loop
set rsbz=nothing
%>
<% rsuser.movenext
loop
set rsuser=nothing
%> </td>
<td width="14%" align="right"><a href="javascript:;" onClick="MM_showHideLayers('login','','show')"><font onclick="MM_showHideLayers('login','','show')">
<% If session("nickname")="" Then %>
用户登录
<% End If %>
</font></a> </td>
</tr>
</table>
<table width="97%" border="0" bgcolor="#BBDEFD">
<tr>
<td width="11%" align="right">版面公告：</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -