账号通
    

账号  

密码  

15200

查看

44

回复
主题:[分享]给每个表单定义不同的提交提示信息 [收藏主题] 转到:  
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/25 0:57:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

看见论坛有人问到这个问题,就是有多个不同的表单,当表单提交后有个js提示信息,这个信息在官方的程序中是一样的,很多站长想更个性化,对不同的表单作出不同的提示,下面是我想到的方法,希望高手能有更好的方法。


 


我看了Form.asp中对表单字段的TableName字段已经做了变量定义,那么我们就可以利用这个变量来作出不同的提示效果,而不必另外做变量定义


 


TableName字段是你建立表单的表单数据表名,不同的表单表单数据表名,我们找到Form.asp文件大约279行,讲下面的代码替换掉原279行的代码


以下内容只有回复后才可以浏览,请先登录!


 


你可以仿照这个代码去建立更多表单提交提示的说明文字


 


2月27日更新代码


请使用这个代码,如果使用过程中有问题,请到论坛提问


测试发现科讯的分步调用表单代码有误,请自己修改


测试发现科讯对无效表单的提示也是输出错误,如果没有这个表单,科讯的代码会将半句函数给输出了


 


源码是


ReplaceJsBr=ReplaceJsBr & "document.writeln('" & JsArr(I) &"')" & vbcrlf


 


如果没有该表单则会输出:document.writeln('" & JsArr(I) &"')"


浏览器显示:document.writeln('无效表单!')


 


正确的只输出应该是:无效表单!


修改成这样:ReplaceJsBr=ReplaceJsBr & JsArr(I) & vbcrlf   显示正常


 


下面是分步提交表单和一步提交表单的重新设置,请按这个方法测试


 


不搞回复贴了,直接贴出来


 


考虑到这个功能的实用性,对上次修改的代码做了重新编写,上次使用的if语句判断,如果表单少的话还可以用,
如果表单多了,去添加大量的if语句可能对函数不太懂的朋友就会弄错,所以重新使用case语句作为判断,这样
不管你有多少表单都可以很方便的添加到代码中,而且对分步提交的表单也做了代码置换,你只需要替换其中的
表单名就可以用了
---------------------------------------------------------------------------------------------------
对原函数的修改如下:
找到form.asp这个文件中的一下函数
If PostByStep=1 Then
   response.write "<script>alert('恭喜,您的信息已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
   Else
   response.write "<script>alert('恭喜,您的信息已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
   End If


---------------------------------------------------------------------------------------------------
将蓝色部分替换成下面的函数
Select Case TableName 'KS_Form_a3是表单名,如果你设置了分步提交请在这里替换相应的表单名
               Case "KS_Form_a3":response.write "<script>alert('恭喜,您的信息3已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               Case "KS_Form_a4":response.write "<script>alert('恭喜,您的信息4已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               Case "KS_Form_a5":response.write "<script>alert('恭喜,您的信息5已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               '......如果有更多的表单请在这里自己添加case语句,按上面的复制就可以了
               End Select
Else'如果是一步提交,则按下面输出
        Select Case TableName 'KS_Form_a3是表单名,如果你没有设置了分步提交请在这里替换相应的表单名
               Case "KS_Form_a1":response.write "<script>alert('恭喜,您的信息1已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               Case "KS_Form_a2":response.write "<script>alert('恭喜,您的信息2已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               Case "KS_Form_a6":response.write "<script>alert('恭喜,您的信息6已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               '......如果有更多的表单请在这里自己添加case语句,按上面的复制就可以了             
               End Select
---------------------------------------------------------------------------------------------------
请按上面的注释修改成你的表单名,js中的文字请修改为你自己的需要的文字


 


修改好的文件下载(覆盖到plus文件夹)


 

 下载信息  [文件大小:4.89 KB 下载次数: 次]
点击下载文件:plus



 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/27 18:13:00   | 显示全部帖子 查看该作者主题 沙发 
做在线知识付费 选科汛云开店

慢慢弄,需要先查询表单数据,然后把表单值赋给判断就可以了

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/27 17:29:00   | 显示全部帖子 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/27 13:28:00   | 显示全部帖子 查看该作者主题 板凳 
科汛在线网校系统

请使用这个代码,如果使用过程中有问题,请到论坛提问

测试发现科讯的分步调用表单代码有误,请自己修改

测试发现科讯对无效表单的提示也是输出错误,如果没有这个表单,科讯的代码会将半句函数给输出了

 

源码是

ReplaceJsBr=ReplaceJsBr & "document.writeln('" & JsArr(I) &"')" & vbcrlf

 

如果没有该表单则会输出:document.writeln('" & JsArr(I) &"')"

浏览器显示:document.writeln('无效表单!')

 

正确的只输出应该是:无效表单!

修改成这样:ReplaceJsBr=ReplaceJsBr & JsArr(I) & vbcrlf   显示正常

 

下面是分步提交表单和一步提交表单的重新设置,请按这个方法测试

 

不搞回复贴了,直接贴出来

 

考虑到这个功能的实用性,对上次修改的代码做了重新编写,上次使用的if语句判断,如果表单少的话还可以用,
如果表单多了,去添加大量的if语句可能对函数不太懂的朋友就会弄错,所以重新使用case语句作为判断,这样
不管你有多少表单都可以很方便的添加到代码中,而且对分步提交的表单也做了代码置换,你只需要替换其中的
表单名就可以用了
---------------------------------------------------------------------------------------------------
对原函数的修改如下:
找到form.asp这个文件中的一下函数
If PostByStep=1 Then
   response.write "<script>alert('恭喜,您的信息已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
   Else
   response.write "<script>alert('恭喜,您的信息已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
   End If

---------------------------------------------------------------------------------------------------
将蓝色部分替换成下面的函数
Select Case TableName 'KS_Form_a3是表单名,如果你设置了分步提交请在这里替换相应的表单名
               Case "KS_Form_a3":response.write "<script>alert('恭喜,您的信息3已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               Case "KS_Form_a4":response.write "<script>alert('恭喜,您的信息4已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               Case "KS_Form_a5":response.write "<script>alert('恭喜,您的信息5已提交成功!" & ReturnInfo & "');location.href='form.asp?id=" & ID& "';</script>"
               '......如果有更多的表单请在这里自己添加case语句,按上面的复制就可以了
               End Select
Else'如果是一步提交,则按下面输出
        Select Case TableName 'KS_Form_a3是表单名,如果你没有设置了分步提交请在这里替换相应的表单名
               Case "KS_Form_a1":response.write "<script>alert('恭喜,您的信息1已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               Case "KS_Form_a2":response.write "<script>alert('恭喜,您的信息2已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               Case "KS_Form_a6":response.write "<script>alert('恭喜,您的信息6已提交成功!" & ReturnInfo & "');location.href='" & request.servervariables("http_referer") & "';</script>"
               '......如果有更多的表单请在这里自己添加case语句,按上面的复制就可以了             
               End Select
---------------------------------------------------------------------------------------------------
请按上面的注释修改成你的表单名,js中的文字请修改为你自己的需要的文字

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zhitaige 当前离线

1196

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:7830 分
登录次数:267 次
注册时间:2006/11/8
最后登录:2015/9/4
zhitaige 发表于:2009/2/25 1:03:00   | 显示全部帖子 查看该作者主题 报纸 

代码被论坛屏蔽掉了很多,大家打包下载吧


 

[replyview]
 下载信息  [文件大小:3.80 KB 下载次数: 次]
点击下载文件:form
[/replyview]
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.12305秒 powered by KesionCMS 9.0