用的asp.net+c#来开发个discuz论坛批量或自动发帖的程序，摸索了2，3天，终于成功了。

下面是源代码和流程说明：

protected void Button8_Click(object sender, EventArgs e)

{

string tl, tr, cl, cr;

tl = TBtitleLeft.Text;

tr = "\r\n";// TBtitleRigt.Text;

cl = "\r\n";//TBContentLeft.Text;

cr = TBContentRigt.Text;

string title,content;

string tMemo = TextBox8.Text + cr;

int pos, pos1;

int add = int.Parse(TBtitleRigt.Text);

int zhutiid = int.Parse(TextBox2.Text);

pos = 1;

pos1 = 1;

cSjksql.open();

int sj=int.Parse(TextBox7.Text);

while (pos != -1) //--批量添加，当然循环

{

sj = sj - 2;

TextBox7.Text = sj.ToString();

pos = tMemo.IndexOf(tl, pos);

pos1 = tMemo.IndexOf(tr, pos);

if (pos1 == -1)

break;

title = tMemo.Substring(pos + 1, pos1 - pos - 1).Trim();

pos = tMemo.IndexOf(cl, pos);

pos1 = tMemo.IndexOf(cr, pos);

if (pos1 == -1)

break;

content = tMemo.Substring(pos + 1, pos1 - pos - 1).Trim();

//TextBox6.Text = add.ToString() + "." + TBtitleLeft0.Text + title + TBtitleRigt0.Text; //--这个可以在标题前后加一些信息进行标题优化，

TextBox6.Text = title + TBtitleRigt0.Text;

TextBox8.Text = content; //--这个可以在内容前后加一些信息进行优化

sql = "insert into pre_forum_post(fid,tid,first,author,authorid,subject,dateline,message,useip,tags) values('"

+ TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" +

TextBox7.Text + "','" + TextBox8.Text + "','" + TextBox9.Text + "','" + TextBox11.Text+","+TextBox10.Text + "')";

cSjksql.SqlCmd1(sql) ; //--第一步是添加帖子表

sql = "insert into pre_forum_thread(fid,tid,author,authorid,subject,dateline,lastpost,lastposter) values('"

+ TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" + TextBox7.Text +

"','" + TextBox7.Text + "','" + TextBox4.Text + "')";

cSjksql.SqlCmd1(sql); //--第二步是添加帖子列表

//pre_forum_thread(fid,tid,author,authorid,subject,dateline,lastpost=dateline,lastposter=author) //--列表数据

add++;

zhutiid++;

TextBox2.Text = zhutiid.ToString();

TBtitleRigt.Text = add.ToString();

}

sql = "update pre_forum_forum set threads=threads+" + add.ToString() + ",todayposts=todayposts+" + add.ToString() + " where fid=" + TextBox1.Text;

if (cSjksql.SqlCmd1(sql)) Label1.Text = add.ToString(); //--第三步：修改今日主题和