向雷奥类型论坛程序发送贴子的代码

[xiaobinliu]

向雷奥类型论坛程序发送贴子的代码：

《!--#include file="posttobbs.asp"--〉
<%
'on error resume next
dim a
dim b
dim c
function PostToLEO(title,body,forumno,username,password,postpage)
a=title
b=body
c=forumno
PostToLEO=PostToBBS(title,body,forumno,username,password,postpage)
end function

function toXML(titlevar,bodyvar,forumnovar)
'把 文章标题，内容，版面号弄成一个可以解析的字符串
'其实也未必做成XML
toXML="<titlevarleo>"&titlevar&"</titlevarleo>"
toXML=toXML&"<bodyvarleo>"&bodyvar&</bodyvarleo>"
toXML=toXML&"<forumnovarleo>"&forumnovar&"</forumnovarleo>"
end function

function AnanPostStr(MessageXML,username,password)
AnanPostStr="action=addnew&forum="&c&"&membername="&username&"&password="&password&"&uselbcode=yes&intopictitle="&a&"&inpost="&b
end function

function ReturnValue(htmlcode)
if instr(htmlcode,"您的新主题已经发表成功")>0 then 
ReturnValue=true
else
ReturnValue=false
end if
end function
%>

[xiaobinliu]

ren?

[xiaobinliu]

不错

[meCAD]

怎么使?

[xiaobinliu]

这段代码好吗？

新浪漫架构
http://charming.vicp.net/cgi-bin

[xiaobinliu]

新浪漫架构
http://charming.vicp.net/cgi-bin

[xiaobinliu]

你们好

[xiaobinliu]

好吗？

[zorou_fatal]

学习一下。