📄 msg.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="pub.asp" -->
<!-- #include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitename%>-<%=request.QueryString("tiebaname")%>吧 </title>
<link href="css/msg.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
//第一区--------------------------------------------------------------------------------
function ck()
{
if (document.form1.tb.value=="")
{
window.alert("请输入贴吧名称!");
return true;
}
else
{
document.form1.submit();
return true;
}
}
function xunz(n)
{
if (n==0)
{
document.form1.tb.value="";
return true;
}
if (n==1)
{
document.form1.tb.value="";
document.form1.tb.value="请输入贴吧名称";
return true;
}
if (n==2)
{
document.form1.tb.value="";
document.form1.tb.value="请输入要搜索贴子名称";
return true;
}
if (n==3)
{
document.form1.tb.value="";
document.form1.tb.value="请输入作者名称";
return true;
}
}
//第二区--------------------------------------------------------------------------------
var dragapproved=false
var z,x,y
function move()
{
if (event.button==1&&dragapproved)
{
z.style.pixelLeft=temp1+event.clientX-x
z.style.pixelTop=temp2+event.clientY-y
dell=z.style.pixelLeft
delt=z.style.pixelTop
return false
}
}
function drags()
{
if (!document.all)
{
return
}
if (event.srcElement.className=="drag1" | event.srcElement.className=="drag2")
{
dragapproved=true
z=event.srcElement
temp1=z.style.pixelLeft
temp2=z.style.pixelTop
x=event.clientX
y=event.clientY
document.onmousemove=move
}
}
function del()
{
if (!document.all)
return
if (event.srcElement.className=="del")
{
dragapproved=false
delo=event.srcElement
del1=delo.style.pixelLeft
del2=delo.style.pixelTop
if(50>dell-del1>-50 && 50>delt-del2>-50 )
{
alert("确认"+document.form3.dtac.value+"?")
document.form3.submit()
return
}
}
}
function rep()
{
dragapproved=false
z.style.pixelLeft=temp1
z.style.pixelTop=temp2
return
}
function postid(pid)
{
document.form3.dtid.value=pid
return
}
function postac(pac)
{
document.form3.dtac.value=pac
return
}
document.onmousedown=drags
document.onmouseup=rep
//document.onmouseup=new Function("dragapproved=false")
//第二区--------------------------------------------------------------------------------
</script>
</head>
<body topmargin="10" >
<%
tiebaname=request.QueryString("tiebaname")
if tiebaname="" then
end if
username=session("username")
ql=session("ql")
if username="" then
username="匿名发表"
end if
cktiebaname()
noone=0
%>
<table width="100%" border="0">
<tr>
<td>
<table width="80%" border="0">
<form name="form1" method="post" action="find.asp">
<tr>
<td><input type="text" name="tb" onClick="xunz(0)" value="请输入贴吧名称">
<input type="button" name="sb" value="搜索" onClick="ck()" onKeyPress="ck()">
<input type="reset" name="Submit" value="重置"> <a href="login.asp" target="_self">登录</a> | <a href="reg.asp" target="_self">注册</a> | <a href="help.asp" target="_blank">帮助</a> </td>
</tr>
<tr>
<td>
<input name="radiobutton" type="radio" value="jl" onClick="xunz(1)" checked>
进入贴吧 <input type="radio" name="radiobutton" value="sstz" onClick="xunz(2)">
帖子搜索 <input type="radio" name="radiobutton" value="sszz" onClick="xunz(3)">
按作者搜索 </td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0">
<tr>
<td colspan="6">贴吧 > <%=tiebaname %> > 主题列表 欢迎<%=username%> <a href="admin.asp" target="_blank">个人中心</a> <a href="action.asp?ac=tc" target="_self">退出</a></td>
</tr>
<tr>
<td colspan="5" class="tback" >精品区 | 本贴吧支持拖放操作，你可以将你看到的标题拖到删除等区进行各功能操作！</td>
<td width="23%" align="right" class="tback">公告 | 申请吧主 | 投诉 </td>
</tr>
<tr>
<td width="40" class="td1">点击</td>
<td width="60" class="td1">回复</td>
<td width="350" class="td1">标题</td>
<td width="85" class="td1"></td>
<td colspan="150" class="td1"></td>
</tr>
<%
public m
call zd()
If Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End If
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from msg where tiebaname='"&tiebaname&"'and ding="& false &" order by replytime desc "
rs.open sql,conn,1,1
rs.PageSize=20
if not rs.eof then '--------------
noone=1
rs.AbsolutePage=page
mm=m+1
for m=mm to rs.PageSize+mm
if (m mod 2)=0 then
bg="drag1"
else
bg="drag2"
end if
if strcomp(ql,tiebaname,1)=0 or strcomp(ql,"all",1)=0 then
qlstring="<a href=action.asp?ac=del&id="&rs("id")&" target=_self>删除</a>"
qlstring=qlstring&" "& "<a href=action.asp?ac=zd&id="&rs("id")&"&n=0 target=_self>置顶</a>"
qlstring=qlstring&" "& "<a href=action.asp?ac=jh&id="&rs("id")&"&n=0 target=_self>精华</a>"
qlstring=qlstring&" "& "<a href=action.asp?ac=jh&id="&rs("id")&"&n=1 target=_self>删除精华</a>"
end if
msgtitle=rs("msgtitle")
msgstringshow=strformat(rs("hits"),6)
msgstringshow=msgstringshow & strformat(rs("replyn"),6)
msgstringshow=msgstringshow & "<a href=msgshow.asp?tiebaname="&tiebaname&"&msgtitle="&server.URLEncode(msgtitle)&"&id="&rs("id")&" target=_blank>"&mid(rs("msgtitle"),1,24)&"</a> "
msgstringshow=msgstringshow &"(作者:" &rs("author")&" "
msgstringshow=msgstringshow & rs("msgtime") &" 回复:"
msgstringshow=msgstringshow & rs("replyer")&" "
msgstringshow=msgstringshow & qlstring &")"
%>
<tr ><td colspan="6" >
<div class="<%=bg%>" onMouseOver="postid(<%=rs("id")%>)" ><%=msgstringshow%> </div>
</td></tr>
<%
rs.movenext
if rs.EOF Then Exit For
next
end if
if noone=0 then
%>
<tr >
<td colspan="6" > <%response.write("你是第一个到"& tiebaname &"吧的人，欢迎发帖！")%> </td>
</tr>
<tr>
<%
end if '--------------
%>
<tr>
<td colspan="6" class="tback">
<%
if page <>1 then
Response.Write "<a class=tback href=msg.asp?page=1&tiebaname="&tiebaname&">首页</a> "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"<a class=tback href=msg.asp?page="&tmppage&"&tiebaname="&tiebaname&">上一页</a>"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " <a class=tback href=msg.asp?page="&tmppage&"&tiebaname="&tiebaname&">下一页</a> "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "<a class=tback href=msg.asp?page="&rs.PageCount&"&tiebaname="&tiebaname&">尾页</a>"
end if
if Cstr(rs.PageCount) <> 0 then
Response.Write " 第<font color='#CCCCCC'>" & page & "/"&rs.PageCount&"</font>页"
end if
%>
</td>
</tr>
</table>
<form name="form2" method="post" action="msgadd.asp">
<table width="100%" border="0">
<tr>
<td width="9%">标 题:</td>
<td width="91%"><input name="msgtitle" type="text" id="msgtitle" size="50">
</td>
</tr>
<tr>
<td valign="top">内 容:</td>
<td valign="top">
<table width="100%" border="0">
<tr>
<td width="48%"><textarea name="msg" cols="55" rows="8" id="msg"></textarea></td>
<td width="52%" valign="top">
<% if session("username")<>"" then %>
<table width="100%" border="0">
<tr>
<td width="16%"><img class="del" onMouseOver="postac('删除');del()" src="img/sc.jpg" width="58" height="52"></td>
<td width="84%"><img class="del" onMouseOver="postac('置顶');del()" src="img/zd.jpg" width="54" height="51"></td>
</tr>
<tr>
<td><img class="del" onMouseOver="postac('精华');del()" src="img/jh.jpg" width="58" height="47"></td>
<td><img class="del" onMouseOver="postac('去精');del()" src="img/qj.jpg" width="54" height="49"></td>
</tr>
</table>
<% end if%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>图片链接:</td>
<td><input name="picurl" type="text" id="picurl" size="50">
</td>
</tr>
<tr>
<td>用 户:</td>
<td><%=username%><input type="submit" name="Submit" value="发表贴子">
<input type="hidden" name="username" value="<%=username%>">
<input type="hidden" name="sj" value="msg">
<input type="hidden" name="n" value="1">
<input name="tiebaname" type="hidden" id="tiebaname" value="<%=tiebaname %>"></td>
</tr>
</table>
</form>
<form name="form3" method="post" action="action.asp">
<input name="dtac" type="hidden">
<input name="dtid" type="hidden">
</form>
<p> </p></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -