28,390
社区成员
发帖
与我相关
我的任务
分享
#include file="使用MSXML HTTP方式获取网页文本字符串"
加入函数getHttpString2
#include file="向特定论坛发送数据的接口"
其中含有:
ReturnValue函数
AnanPostStr函数 根据title,body,forumno,username,password构造Post给postpage的字
符串
<%
Server.ScriptTimeOut=1000000
function PostToBBS(title,body,forumno,username,password,postpage)
'文章标题,文章内容,版面号,用户名,密码,提交数据网页地址
htmlcc=getHttpString2(AnanPostStr(title,body,forumno,username,password),postpage,"POST")
'这里需要根据htmlcc判断成功与否的程序
PostToBBS=ReturnValue(htmlcc)
end function
%>