ic_post.asp

进销存软件源代码

<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include file = "../Common.asp" --><!-- #include file = "../stdlib.asp" --><!-- #include file = "../oalib.asp" --><%
dim r,id,title,message,sendto,fid
Randomize
r=Int(1000000 * Rnd)
if isNumeric(request("fid")) then fid=CLng(request("fid")) else fid=0
id=0
if isNumeric(request("id")) and len(request("title"))>0 then
	id=CLng(request("id"))
	title=Server.HTMLEncode(request("title"))
	sendto=request("sendto")
	if request("htmlencode")="1" then
		message=request("message")
	else
		message=replace(replace(Server.HTMLEncode(request("message")),vbcrlf,"<br>")," ","&nbsp;")
	end if
	oaNewMessage fid,id,sendto,title,message,0
end if
if fid=0 then
	Response.Redirect "IC_Group.asp?id=" & id & "&t=" & r
else
	Response.Redirect "IC_View.asp?id=" & fid & "&t=" & r
end if
%>