在delphi中如何实现象下面的供求信息中，自动发布表单,主要是select，和验证码
[问题点数：100分，无满意结帖，结帖人wxy1983]
在delphi中如何实现象下面的供求信息中，自动发布表单,主要是select，和验证码
[问题点数：100分，无满意结帖，结帖人wxy1983]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了，不再提供回复功能。本篇文章标签：
【】【】【】【】【】【】【】【】【】【】
Copyright(c) 北京恒博天地教育咨询有限公司/北京恒博教育网站培训中心 All Rights Reserved
通信地址：北京市丰台区南三环刘家窑桥东嘉业大厦B座1505室(大中电器楼上)
邮编： 100078 &二十四小时免费咨询热线：
联系电话：010- 联系人：黄老师
中华人民共和国工业和信息化备案许可证:京ICP备号织梦如何自定义表单客户提交后如何发到自己邮箱
织梦发送邮箱的功能我们在前面也简单的硕果，大家可以参看和，但是这两篇教程写的不够完善，或者不符合一些站长朋友的心意，毕竟能够实现织梦信息自动发送邮箱的功能对不同的站点有着不动的需求，今天我们来看一看，但是很多管理员不会经常注意到信息，所以我现在给大家分享一下将自定义表单信息提交到指定邮箱：
1、首先在织梦网站后台，进入系统--系统基本参数--核心设置里面，如下图：
将红色标注的填写为自己的邮箱帐号，大家要注意填写的是同一个账号。&
2、打开网站根目录下的plus文件夹，里面有个diy.php文件（表单提交后处理文件），打开它，在85行上下有如下代码：
$query = &INSERT INTO `{$diy-&table}` (`id`, `ifcheck` $addvar)
VALUES (NULL, 0 $addvalue); &;
这个代码就是将表单数据写入数据库，那么我们就在他下方，加上发送邮件的功能，将下面的代码复制粘贴到上面代码的下面，（最下方有我改得diy.php代码 UTF8的！ 直接复制放进去！ 改下第88行的name）：
$mailtitle = &用户订单信息&;//邮件标题
$mailbody = &称呼：{$name}\r\n邮箱：{$email}\r\n所在城市：{$city}\r\n国家：{$guojia}\r\n电话：{$tel}\r\n类别：{$qudao}&;//$name中name是该input元素的id号
$headers = $cfg_//用我们刚才设置的管理员邮箱发送
$mailtype = 'TXT';//邮件类型为文本类型
require_once(DEDEINC.'/mail.class.php');//加载织梦的邮件库
$smtp = new smtp($cfg_smtp_server,$cfg_smtp_port,true,$cfg_smtp_usermail,$cfg_smtp_password);//创建smtp服务
$smtp-&debug =//不起用调试
$smtp-&sendmail($cfg_smtp_usermail,$cfg_webname ,$cfg_smtp_usermail, $mailtitle, $mailbody, $mailtype);//发送邮件，sendmail(收件人，网站名，发件人，邮件标题，邮件内容，邮件类型)
3、(一般都是国内服务器！不加没什么事！)加上第二步给的代码，就可以实现管理员邮箱给自己发信，内容通过id号获取，不过美国主机是限制自己给自己发邮件的，所以在第二步代码的最后一句，要将其改下：
$smtp-&sendmail($cfg_smtp_usermail,$cfg_webname ,$cfg_smtp_usermail, $mailtitle, $mailbody, $mailtype);//发送邮件，sendmail(收件人，网站名，发件人，邮件标题，邮件内容，邮件类型)
将上面的代码修改为：
$cfg_smtp_usermail2=&&;
$smtp-&sendmail($cfg_smtp_usermail2,$cfg_webname ,$cfg_smtp_usermail, $mailtitle, $mailbody, $mailtype);//发送邮件，sendmail(收件人，网站名，发件人，邮件标题，邮件内容，邮件类型)
这样就可以收到邮件啦。
我们来看一看邮箱中收到的信息：
下面是我测试的时候使用的diy.php文件，是UTF-8版的代码，把代码发个朋友们，稍后我会放出GBK版的diy.php文件：
* 自定义表单
* @version
$Id: diy.php 1 15:38 日Z tianya $
* @package
DedeCMS.Site
* @copyright
Copyright (c) 2007 - 2010, DesDev, Inc.
* @license
/usersguide/license.html
require_once(dirname(__FILE__).&/../include/common.inc.php&);
$diyid = isset($diyid) && is_numeric($diyid) ? $diyid : 0;
$action = isset($action) && in_array($action, array('post', 'list', 'view')) ? $action : 'post';
$id = isset($id) && is_numeric($id) ? $id : 0;
if(emptyempty($diyid))
showMsg('非法操作!', 'javascript:;');
require_once DEDEINC.'/diyform.cls.php';
$diy = new diyform($diyid);
/*----------------------------
function Post(){ }
---------------------------*/
if($action == 'post')
if(emptyempty($do))
$postform = $diy-&getForm(true);
include DEDEROOT.&/templets/plus/{$diy-&postTemplate}&;
elseif($do == 2)
$dede_fields = emptyempty($dede_fields) ? '' : trim($dede_fields);
$dede_fieldshash = emptyempty($dede_fieldshash) ? '' : trim($dede_fieldshash);
if(!emptyempty($dede_fields))
if($dede_fieldshash != md5($dede_fields.$cfg_cookie_encode))
showMsg('数据校验不对，程序返回', '-1');
$diyform = $dsql-&getOne(&select * from dede_diyforms where diyid='$diyid' &);
if(!is_array($diyform))
showmsg('自定义表单不存在', '-1');
$addvar = $addvalue = '';
if(!emptyempty($dede_fields))
$fieldarr = explode(';', $dede_fields);
if(is_array($fieldarr))
foreach($fieldarr as $field)
if($field == '')
$fieldinfo = explode(',', $field);
if($fieldinfo[1] == 'textdata')
${$fieldinfo[0]} = FilterSearch(stripslashes(${$fieldinfo[0]}));
${$fieldinfo[0]} = addslashes(${$fieldinfo[0]});
${$fieldinfo[0]} = GetFieldValue(${$fieldinfo[0]}, $fieldinfo[1],0,'add','','diy', $fieldinfo[0]);
$addvar .= ', `'.$fieldinfo[0].'`';
$addvalue .= &, '&.${$fieldinfo[0]}.&'&;
$query = &INSERT INTO `{$diy-&table}` (`id`, `ifcheck` $addvar)
VALUES (NULL, 0 $addvalue); &;
$mailtitle = &用户订单信息&;//邮件标题
$mailbody = &称呼：{$name}\r\n邮箱：{$email}\r\n电话：{$tele}\r\n手机：{$sj}\r\n地址：{$dz}\r\n说明：{$sm}&;//$name中name是该input元素的id号
$headers = $cfg_//用我们刚才设置的管理员邮箱发送
$mailtype = 'TXT';//邮件类型为文本类型
require_once(DEDEINC.'/mail.class.php');//加载织梦的邮件库
$smtp = new smtp($cfg_smtp_server,$cfg_smtp_port,true,$cfg_smtp_usermail,$cfg_smtp_password);//创建smtp服务
$smtp-&debug =//不起用调试
$smtp-&sendmail($cfg_smtp_usermail,$cfg_webname ,$cfg_smtp_usermail, $mailtitle, $mailbody, $mailtype);//发送邮件
if($dsql-&ExecuteNoneQuery($query))
$id = $dsql-&GetLastID();
if($diy-&public == 2)
//diy.php?action=view&diyid={$diy-&diyid}&id=$id
$goto = &diy.php?action=list&diyid={$diy-&diyid}&;
$bkmsg = '发布成功，现在转向表单列表页...';
$goto = !emptyempty($cfg_cmspath) ? $cfg_cmspath : '/';
$bkmsg = '发布成功，请等待管理员处理...';
showmsg($bkmsg, $goto);
/*----------------------------
function list(){ }
---------------------------*/
else if($action == 'list')
if(emptyempty($diy-&public))
showMsg('后台关闭前台浏览', 'javascript:;');
include_once DEDEINC.'/datalistcp.class.php';
if($diy-&public == 2)
$query = &SELECT * FROM `{$diy-&table}` ORDER BY id DESC&;
$query = &SELECT * FROM `{$diy-&table}` WHERE ifcheck=1 ORDER BY id DESC&;
$datalist = new DataListCP();
$datalist-&pageSize = 10;
$datalist-&SetParameter('action', 'list');
$datalist-&SetParameter('diyid', $diyid);
$datalist-&SetTemplate(DEDEINC.&/../templets/plus/{$diy-&listTemplate}&);
$datalist-&SetSource($query);
$fieldlist = $diy-&getFieldList();
$datalist-&Display();
else if($action == 'view')
if(emptyempty($diy-&public))
showMsg('后台关闭前台浏览' , 'javascript:;');
if(emptyempty($id))
showMsg('非法操作！未指定id', 'javascript:;');
if($diy-&public == 2)
$query = &SELECT * FROM {$diy-&table} WHERE id='$id' &;
$query = &SELECT * FROM {$diy-&table} WHERE id='$id' AND ifcheck=1&;
$row = $dsql-&GetOne($query);
if(!is_array($row))
showmsg('你访问的记录不存在或未经审核', '-1');
$fieldlist = $diy-&getFieldList();
include DEDEROOT.&/templets/plus/{$diy-&viewTemplate}&;
这篇教程来自：/xh/dedecms/question/17.html，在这里只是纯粹的转载，我也没有经过测试，感谢原作者，不过这个功能应该是很强大的，对于需要交互的企业站来说是相当有好处的。做一个自己用的网页表单自动填写脚本网站
为鼓励上传资源，我们采用积分下载方式，希望您能发布更多更好的资源互相分享
1.上传软件或电子书,源码,资料等,审核后即获2积分;如发布时设了下载需积分，其他用户下载后你将获得相应积分
2.当您首次注册时，可以获送10个下载积分，供您下载资源和熟悉网站下载的使用
3.发现资源有误或其他问题，通过举报按钮反馈后我们将奖励积分
4.您可以在论坛通过发帖等方式获取
5.参加本站可以在有效期内不限次数下载
6.您也（1元=10积分）或
7.我们会不定期举办各种活动，参加活动可以获取积分，请关注下载频道首页公告。
您可能遇到这些“伪问题”：
1.资料无法解压：
请确保所有分卷均下载完毕，如果有未知后缀文件，请搜索相应解压软件；
2.chm文件无内容：
您的电脑锁定了这一文件，请右击文件属性，点击右下方“解除锁定”，关闭文件后再打开；
3.下载不下来：
请尝试重新下载（重新下载不扣积分）；
4.杀毒软件报毒：
黑客安全及破解类软件容易报毒，但可正常使用，如担心安全请谨慎使用。
请注意：动画内如含广告，则该广告与本站无任何关系，为作者个人宣传，网络交易风险自负
今天的做的教程是如何做一个自己用的网页表单自动填写脚本，快速访问站点，自动登陆，自动注册，为了节省时间说明全部事先写好了，下面开始。
节省大量重复工作的时间！
需要工具：
1.IETrixieSetup.rar&&&&&&&&&&&&&&&&&&&&&&&&& --IE增强插件2.AutoForm.user.js&&&&&&&&&&&&&&&&&&&&&&&&&& --整理后的JS脚本
下面看我操作
1& 安装IETrixieSetup.msi&&& 然后根据自己需要选择用户脚本，不知道什么意思就不要选了
2& 修改自己的 JS 脚本 ：AutoForm.user.js 下面一样的& 改好后放入安装的路径C:Program FilesBhelpuriTrixieScripts文件夹内 试下！
&JS脚本内容中不能含有汉字，汉字不能正常显示在表单内。
由于JS是查找自定义的字符串，赋予其属性，所以并不是所有网站都可以自动填写，但大多数都可以的，我花了几个小时才找到这么多！你也可以自己在添加。
注意：此小工具适合个人在自己的电脑上使用，如果在公共场合使用泄露了你的个人信息，别怪我没提醒你啊！！！
您对本软件有什么意见或着疑问吗？请到您的关注和建议是我们前行的参考和动力
下载地址：
您正在下载：做一个自己用的网页表单自动填写脚本网站
您的浏览器不支持嵌入式框架，或者当前配置为不显示嵌入式框架。}