?? read.asp
字號:
<!--#include file="../includes/db.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>辦公自動化系統(tǒng)</title>
<script language="JavaScript">
function validate(Article_id){
var Content = document.FormReply.Content.value;
if (Content==""){
alert("內(nèi)容不能為空！");
return false;
}
}
function onDelete(Article_id){
location.replace("save.asp?action=Delete&Article_id="+Article_id);
return false;
}
</script>
<style type="text/css">
<!--
.style1 {
color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<center>
<table border="0" width="100%" height="40" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
<%
call insureID()
dim Content
dim action
Article_id=request("Article_id")
if Article_id="" then
call trigErr()
end if
Username=request("Username")
action=request("action")
sql="SELECT * FROM MessageBoard WHERE (Article_id = "&Article_id&") "
call openDB()
rs.open sql,conn,1,1
if rs.eof then
call trigErr()
end if
User_id=rs("User_id")
Article_title=rs("Article_title")
Article_content=rs("Article_content")
Article_title=replaceBack(Article_title)
Article_content=replaceBack(Article_content)
%>
<table width="75%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5A8BCE">
<tr bgcolor="#0000FF">
<td height="35" align=left bgcolor="#E6F7FF"><div align="center" class="style1">主題：<%=Article_title%></div></td>
</tr>
</table>
<table width="75%" border="0" cellpadding="4" cellspacing="1" bordercolorlight="#EFEFEF" bordercolordark="#FCFCFC" bgcolor="#5A8BCE">
<tr>
<td bgcolor="#FCFCFC" width="15%" valign="top">
<%
response.write Username&"發(fā)表于 "&rs("Article_date")
if User_id=session("User_id") then
response.write " [<a href=""Edit.asp?Article_id="&Article_id&""">編輯</a>]"
end if
%>
</td>
<td bgcolor="#FCFCFC" width="60%">
<%=" "&Article_content%>
</td>
</tr>
<%
set rs=nothing
set rs=server.createobject("Adodb.RecordSet")
sql="SELECT MessageBoard.*, Users.Username AS Username " _
&"FROM MessageBoard INNER JOIN " _
&"Users_info ON " _
&"MessageBoard.User_id = Users_info.User_id INNER JOIN " _
&"Users ON Users_info.User_id = Users.User_id " _
&"WHERE (MessageBoard.Authorship_id="&Article_id&") "
rs.open sql,conn,1,1
while not rs.eof
Article_title=rs("Article_title")
Article_content=rs("Article_content")
Article_title=replaceBack(Article_title)
Article_content=replaceBack(Article_content)
%>
<tr>
<td colspan="2" width="75%" height="35" bgcolor="#FCFCFC" align=left>
主題：<font color="#0000FF"><%=Article_title%></font>
</td>
</tr>
<tr>
<td bgcolor="#FCFCFC" width="15%" valign="top">
<%=rs("Username")&"發(fā)表于 "&rs("Article_date")%>
</td>
<td bgcolor="#FCFCFC" width="60%">
<%=" "&Article_content%>
</td>
</tr>
<%
rs.movenext
wend
call closeDB()
'建立"回復(fù)"區(qū)
%>
</table>
<br>
<form method="POST" name="FormReply" action="save.asp?action=Reply&Article_id=<%=request("Article_id")%>" onSubmit="return validate()">
<table width="75%" border="0" cellpadding="4" cellspacing="1" bgcolor="#5A8BCE">
<tr>
<td width="15%" align="right" valign="top" bgcolor="#FAFAFA">回復(fù)：</td>
<td width="60%" bgcolor="#FCFCFC">
<textarea rows="7" name="Content" cols="60" ></textarea>
</td>
</tr>
<td width="15%" align="right" bgcolor="#FCFCFC">作者：</td>
<td width="60%" align="left" bgcolor="#FCFCFC"><%=session("Username")%></td>
<tr>
<td width="75%" height="50" colspan="2" bgcolor="#EFEFEF" align=center>
<INPUT TYPE = "hidden" NAME = "Article_id" VALUE = "<%=Article_id%>">
<input type="submit" value="提 交" name="Submit" class="buttonface">
<input type="reset" value="清 除" name="Clear" class="buttonface">
<%
if session("POSITION_ID")=1 then
response.write " <input type=""button"" value=""刪除本條"" " _
&"name=""Delete"" class=""buttonface"" onClick=""javaScript:return onDelete("&Article_id&")"">"
end if
%>
</td>
</tr>
</table>
</form>
</center>
</body>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -