message.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
anysale.chkUser()
select case request("action")
	case "add"
		call add()
	case "saveAdd"
		call saveAdd()
	case "read"
		call read()
	case "reply"
		call reply()
	case "saveReply"
		call saveAdd()
	case "resend"
		call resend()
	case "del"
		call del()
	case else
		call main()
end select

sub main()
dim sid
sid=request("send")
%>
<div id="message<%=sid%>">
<!--message-->
<form name="message<%=sid%>Form" id="message<%=sid%>Form" method="post">
<%
dim rs,sql,page,ipage
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs=server.createobject("adodb.recordset")
if sid=1 then
	sql="select * from as_message where sender='"&anysale.username&"' order by groups desc, addtime desc"  '鍙戝嚭鐨勬秷鎭