?? disp.asp
字號(hào):
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="connsf.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="config.asp" -->
<%'檢驗(yàn)用戶
user=checkstr(session("user"))
pass1=ucase(md5(session("pass")))
str="select 姓名,能否發(fā)送,用戶類別 from user_teacher where 用戶名='"&user&"' and 密碼='"&pass1&"'"
set rs=conn.execute(str)
if rs.eof then
response.redirect("user_login.asp")
else
user_name=rs("姓名")
sendyesno=rs("能否發(fā)送")
end if
rs.close
%>
<%doing=Trim(Request.QueryString("doing"))
disp_id=cint(Request.QueryString("disp_id"))
pageno=cint(Request.QueryString("pageno"))
back=Trim(Request.QueryString("back"))
m=request.querystring("m")
n=1+m
%>
<%'檢驗(yàn)該用戶能否查看此信息
str="select 主題,發(fā)文者,接收者,已清除者,所有人 from woa where id="&disp_id&""
set rs=conn.execute(str)
if rs("主題")<>1 then response.redirect("list.asp")
user_name1="|"&user_name&"|"
if instr(rs("已清除者"),user_name1)>0 then response.redirect("list.asp")
if rs("發(fā)文者")<>user_name and instr(rs("接收者"),user_name1)=0 and rs("所有人")<>"1" then response.redirect("list.asp")
rs.close
%>
<%'點(diǎn)擊數(shù)加1 名單加入已看者
if doing="" then
user_name1="|"&user_name&"("
user_name2=user_name&"("&date&" "&time&")|"
str="select 已看者,發(fā)文者 from woa where id="&disp_id&""
set rs=conn.execute(str)
if instr(rs("已看者"),user_name1)=0 then
str="update woa set 點(diǎn)擊數(shù)=點(diǎn)擊數(shù)+1,已看者=已看者+'"&user_name2&"' where id="&disp_id&""
else
str="update woa set 點(diǎn)擊數(shù)=點(diǎn)擊數(shù)+1 where id="&disp_id&""
end if
if rs("發(fā)文者")=user_name then
str="update woa set 點(diǎn)擊數(shù)=點(diǎn)擊數(shù)+1 where id="&disp_id&""
end if
rs.close
conn.execute(str)
end if
%>
<%'加入留言
if sendyesno="1" and doing="liuyan" then
ly=Request.Form("ly")
ly=checkstr(ly)
if ly="" then ly=" "
fj_name=session("fj_name")
session("fj_name")=empty
fj_sm=session("fj_sm")
session("fj_sm")=empty
if fj_name="" then fj_name=" "
if fj_sm="" then fj_sm=" "
fj_count=int(len(fj_name)/24)
sql="select * from woa"
rs.open sql,conn,2,3
rs.addnew
rs("主題")=0
rs("跟貼主題")=disp_id
rs("內(nèi)容")=ly
rs("發(fā)文日期")=date
rs("發(fā)文時(shí)間")=time
rs("發(fā)文者")=user_name
rs("接收者")="此為留言"
rs("已看者")="|"
rs("已清除者")="|"
rs("附件數(shù)")=fj_count
rs("附件說明")=fj_sm
rs("附件")=fj_name
rs("所有人")=2
rs("置頂")=0
rs("成批刪除")=1
rs("清除")=1
rs.update
rs.close
str="update woa set 跟貼數(shù)=跟貼數(shù)+1 where id="&disp_id&""
conn.execute(str)
end if
%>
<%'刪除留言
if doing="delely" then
dele_id=cint(Request.QueryString("dele_id"))
str="select 附件 from woa where id="&dele_id&""
set rs=conn.execute(str)
fj_file=rs("附件")
do while len(fj_file)>1
del_file=mid(fj_file,1,instr(fj_file,"|")-1)
fj_file=mid(fj_file,instr(fj_file,"|")+1)
del_file=Server.MapPath(del_file)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(del_file) then
fs.DeleteFile del_file,True
end if
loop
rs.close
str="delete from woa where id="&dele_id&" and 發(fā)文者='"&user_name&"' and 主題=0 and 跟貼主題="&disp_id&""
conn.execute(str)
str="update woa set 跟貼數(shù)=跟貼數(shù)-1 where id="&disp_id&""
conn.execute(str)
end if
%>
<%'刪除信息
if doing="delemsg" then
str="select 跟貼數(shù),附件數(shù),附件 from woa where id="&disp_id&""
set rs=conn.execute(str)
if rs("跟貼數(shù)")>0 then '先刪除該信息下的留言
str="select 附件數(shù),附件 from woa where 跟貼主題="&disp_id&""
set rs1=conn.execute(str)
do while not rs1.eof
if rs1("附件數(shù)")>0 then
fj_file=rs1("附件")
do while len(fj_file)>1
del_file=mid(fj_file,1,instr(fj_file,"|")-1)
fj_file=mid(fj_file,instr(fj_file,"|")+1)
del_file=Server.MapPath(del_file)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(del_file) then
fs.DeleteFile del_file,True
end if
loop
end if
rs1.movenext
loop
rs1.close
str="delete from woa where 跟貼主題="&disp_id&""
conn.execute(str)
end if
if rs("附件數(shù)")>0 then '刪除主題下的附件
fj_file=rs("附件")
do while len(fj_file)>1
del_file=mid(fj_file,1,instr(fj_file,"|")-1)
fj_file=mid(fj_file,instr(fj_file,"|")+1)
del_file=Server.MapPath(del_file)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(del_file) then
fs.DeleteFile del_file,True
end if
loop
end if
rs.close
str="delete from woa where id="&disp_id&" and 發(fā)文者='"&user_name&"' and 主題=1"
conn.execute(str)
response.redirect("list.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>顯示信息</title>
<!--#include file="css.css" -->
<SCRIPT>
// Begin upload1
function upload1(upload1)
{
url ='upload1.asp';
window.open(url,upload1,"width=520,height=180,status=no,toolbar=no,menubar=no,scrollbars=no,resizable=no");
}
// End adduser-->
</script>
</head>
<body topmargin="1">
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF">
<!--#include file="menu.asp" -->
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td bgcolor="#6699FF">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<%str="select * from woa where id="&disp_id&""
set rs=conn.execute(str)%>
<table width="741" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="130" height="30"> <div align="center" class="fontsize14"><strong>主 題</strong></div></td>
<td class="fontsize14h20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="94%" class="fontsize14h20"> <%=rs("標(biāo)題")%> </td>
<td width="6%"><INPUT name="button" type=button class=inputbox onclick=javascript:history.go(-<%=n%>) value=返回></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="130" valign="top" class="fontsize12h20"> <table width="125" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="20" class="fontsize12h20">發(fā) 文 者：<a href=serch.asp?keyword=<%=rs("發(fā)文者")%>&sclass=發(fā)文者 class="fontsize12wu" onMouseOver="window.status='';return true"><%=rs("發(fā)文者")%></a></td>
</tr>
<tr>
<td height="20" class="fontsize12h20">發(fā)文日期：<a href=serch.asp?keyword=<%=rs("發(fā)文日期")%>&sclass=發(fā)文日期 class="fontsize12wu" onMouseOver="window.status='';return true"><%=rs("發(fā)文日期")%></a></td>
</tr>
<tr>
<td height="20" class="fontsize12h20">發(fā)文時(shí)間：<%=rs("發(fā)文時(shí)間")%></td>
</tr>
<tr>
<td height="20" class="fontsize12h20">點(diǎn) 擊 數(shù)：<%=rs("點(diǎn)擊數(shù)")%></td>
</tr>
<tr>
<td height="20" class="fontsize12h20">回 復(fù) 數(shù)：<%=rs("跟貼數(shù)")%></td>
</tr>
</table></td>
<td valign="top" class="fontsize12h20"><%=rs("內(nèi)容")%>
<%if rs("附件數(shù)")>0 then %> <table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td width="60" height="20" valign="top" class="fontsize14h20">
<div align="right">附件：</div></td>
<td><table width="90%" border="0" cellspacing="0" cellpadding="2">
<%fj_sm=rs("附件說明")
fj_name=rs("附件")
for m=1 to rs("附件數(shù)")
temp1=mid(fj_sm,1,instr(fj_sm,"|")-1)
fj_sm=mid(fj_sm,instr(fj_sm,"|")+1)
temp2=mid(fj_name,1,instr(fj_name,"|")-1)
fj_name=mid(fj_name,instr(fj_name,"|")+1)
%>
<tr>
<td><a href=<%=temp2%> target="_blank" class="fontsize12" onMouseOver="window.status='';return true"><%=temp1%></a></td>
</tr>
<%next%>
</table></td>
</tr>
</table>
<%end if%> </td>
</tr>
<%if rs("發(fā)文者")=user_name then%>
<tr>
<td height="30" valign="middle" class="fontsize12h20"><div align="center"><strong>信息詳細(xì)情況</strong></div></td>
<td valign="middle" class="fontsize12h20"> <a href="disp.asp?disp_id=<%=disp_id%>&doing=listrev&pageno=<%=pageno%>&m=<%=n%>" class="fontsize12" onMouseOver="window.status='';return true">接收人員</a> <a href="disp.asp?disp_id=<%=disp_id%>&doing=listlooked&pageno=<%=pageno%>&m=<%=n%>" onMouseOver="window.status='';return true">已查看人員</a> <a href="disp.asp?disp_id=<%=disp_id%>&doing=listnotlook&pageno=<%=pageno%>&m=<%=n%>" onMouseOver="window.status='';return true">未查看人員</a> <a href="disp.asp?disp_id=<%=disp_id%>&doing=listclear&pageno=<%=pageno%>&m=<%=n%>" onMouseOver="window.status='';return true">已清除人員</a> <a href="editmsg.asp?edit_id=<%=rs("id")%>" onMouseOver="window.status='';return true">修改信息</a> <a href="disp.asp?doing=delemsg&disp_id=<%=disp_id%>" onMouseOver="window.status='';return true">刪除信息</a></td>
</tr>
<%end if%>
</table>
<%user_all=rs("所有人")
jsr=rs("接收者")
ykr=rs("已看者")
qcr=rs("已清除者")
lycount=rs("跟貼數(shù)")
rs.close%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<%if doing="listrev" then%>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="130" height="20" valign="top" class="fontsize12h20wu">
<div align="center"><strong>接受此信息人員名單</strong></div></td>
<td width="598">
<%if user_all="1" then%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td width="12%" class="fontsize12wu">所有人</td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%else%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr class="fontsize12h20">
<%jsr=replace(jsr,"||","|")
m=0
do while jsr<>"" and len(jsr)>1
jsr=mid(jsr,instr(jsr,"|")+1)
temp=mid(jsr,1,instr(jsr,"|")-1)
jsr=mid(jsr,instr(jsr,"|"))
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -