managemessage_inc.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
	call CheckType(38)	
	dim rs,i,j,Pinglun,PinglunNum,PageNum,PageEnd,DataNum,DataName,action,ID,MsgTo,MsgContent,Timenow
	dim PinglunDetail(4),lx
	
	PageNum = 10
	DataName = "条短信"
	PinglunNum = 0
	Timenow = now()
	
	action = sqlchg(Request.QueryString("action"))
	ID =Sqlcheck(Request.QueryString("ID"))
	MsgTo = sqlchg(Request.QueryString("MsgTo"))
	MsgContent = sqlchg(Request.Form("MsgContent"))
	lx = sqlchg(Request.QueryString("lx"))
	if lx = "" then
		lx = 1
	end if
	
	if action = "del" then
		conn.execute("Delete from Message where MsgID = "&ID&"")
	end if
	
	if action = "add" then
		conn.execute("Insert into Message (MsgTo,MsgFrom,MsgContent,MsgDate) values ('"&MsgTo&"','管理员','"&MsgContent&"','"&Timenow&"')")
		Response.Write("<script language='javascript'>alert('回复成功');window.location.href='managemessage.asp';</script>")
		Response.End()
	end if
	
	if action = "view" then
		'加浏览
		conn.execute("Update Message set MsgReaded = 1 where MsgID = "&Cint(ID)&"")
	
		set rs = conn.execute("Select MsgFrom,MsgTo,MsgDate,MsgContent,MsgID from Message where MsgID = "&Cint(ID)&"")
		PinglunDetail(0) = rs(0)
		PinglunDetail(1) = rs(1)
		PinglunDetail(2) = rs(2)
		PinglunDetail(3) = rs(3)
		PinglunDetail(4) = rs(4)
	end if
	
	if lx = 0 then
		set rs = conn.execute("Select MsgID,MsgFrom,MsgTo,MsgDate,MsgReaded from Message where MsgType = 0 order by MsgID desc")
	elseif lx = 1 then
		set rs = conn.execute("Select MsgID,MsgFrom,MsgTo,MsgDate,MsgReaded from Message where MsgType = 0 and MsgTo = '管理员' order by MsgID desc")	
	else
		set rs = conn.execute("Select MsgID,MsgFrom,MsgTo,MsgDate,MsgReaded from Message where MsgType = 0 and MsgTo = '管理员' and MsgReaded = 0 order by MsgID desc")		
	end if
	
	if not rs.eof then
		Pinglun = rs.getrows
		PinglunNum = ubound(Pinglun,2)
		if not isnumeric(PinglunNum) then
			PinglunNum = 1
		end if
	else
		PinglunNum = -1	
	end if	
%>