admin-list.asp

simulink建模及动态仿真这本书上的例题的代码

<!--#include file="../../forum/admin/common-admin.asp"-->
<!---all common functions and definisions--->
<script>
function rusure() { 

 if (confirm("Are you sure you want to delete?")) { 
return true; 
 } else { 

return false; 
 } 
} 
</script>
<%


'decleration
dim fid,tp,tid
dim rs_fn
dim ParentID,name,email,subject,mes,mesdate,image
dim forumname
function getForumName(id)
	set rs_fn=server.createObject("adodb.recordset")
	sql="select forumid,forumname from myforums where forumid="&id
	rs_fn.open sql,conn
	forumname = rs_fn("forumname")
	response.write "<tr><td><b><font size=3 color=#990000>" & forumname & "</font><br><br></b></TR></TD>"
	rs_fn.close
	set rs_fn=nothing
end function

'take forum id number from querystring
fid=request("fid")

'response.write session("status") & fid***debug
if cint(session("status"))<>cint(fid) or session("status")="" then
	response.redirect "error.htm"
end if
image="<img src='../images/arr.gif' border=0>"
call header()
sql="select id,thread_id,name,email,subject,mesdate,forumID,thread_parent from mestbl WHERE (forumid = " & fid & ") and thread_parent=0 order by id desc"
'connect to db
call connect()
rs.open sql,conn

'if no messages in forum
if rs.eof and rs.bof then
	response.write "<tr><td>no messages</tr></td>"
else
	'grab all records
	response.write getForumName(fid)
	do while not rs.eof
	tid=rs("thread_id")
	ParentID=rs("id")
	name=rs("name")
	email=rs("email")
	subject=rs("subject")
	mesdate=rs("mesdate")
	response.write "<tr><td>"
	response.write image & "<a href='../show.asp?id=" & parentID & "&fid="&fid&"&tid="&tid&"'>" & subject & "</a>" & "...." & mesdate & "...." &  name & "</a>"
	response.write "&nbsp;<a href='edit-del.asp?action=edit&id=" & parentID & "&fid="&fid&"&tid="&tid&"'>(Edit</a>" & "<a href='edit-del.asp?action=del&id=" & parentID & "&fid="&fid&"&tid="&tid&"' onclick='return rusure()'> | Del) </a></tr></td>"
	
	'calling procedure to show childs
	call displayMessages(1,ParentID)
	rs.movenext
	loop
end if
call close()
response.write "<tr><td><br>"
response.write "<br><br><a href='post.asp?fid=" & fid & "'>Send special message as The forum Manager</a>"

response.write "</table><br>"

%>