- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在一个框根据名称，在另一个框自动填入内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101472)
-- 发布时间：2017/6/1 9:07:00
-- 在一个框根据名称，在另一个框自动填入内容
想通过选择 某一短信模板名称后，自动根据模板名称讲模板内容填入下面的短信内容的框中。
此主题相关图片如下：微信截图_20170601090543.png
此主题相关图片如下：微信截图_20170601090252.png
此主题相关图片如下：微信截图_20170601090302.png
短信模板名称已经自动从数据库获取：
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELEC T 模板名称 From {短信模板}"
dt = cmd.ExecuteReader()
Dim mbs As List(of String) = dt.GetValues("模板名称")
With wb.AddInputGroup("form1","ipg4","选择短信模板")
.AddSelect("短信模板","","|" & String.Join("|",mbs.ToArray)) \'.Attribute = "" \'调用js函数
End With
[此贴子已经被作者于2017/6/1 9:10:05编辑过]
-- 发布时间：2017/6/1 9:38:00
--
方法一：你可以把所有模板的内容都先弄到页面去，选择后显示对应的值，类似 http://www.foxtable.com/mobilehelp/scr/0100.htm
方法二：你可以ajax调用后台的数据，http://www.foxtable.com/mobilehelp/scr/0108.htm
-- 发布时间：2017/6/1 11:22:00
--
此主题相关图片如下：微信截图_20170601112255.png
Editjl 页面代码：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
With wb.AddInputGroup("form1","ipg4","选择短信模板")
With .AddInputCell("ic1") \'通过InputCell增加输入框
.AddSelect("短信模板","|" & String.Join("|",mbs.ToArray),1)
.AddVcodeButton("填入","填入",2).Attribute="onclic k=\'getDate()\'"
End With
End With
Dim v As String
Select e.PlainText
Case "getDate" \'发送纯文本
v = "生日祝福"
messagebox.show(v)
End Select
With wb.AddInputGroup("form1","ipg5","短信内容")
.AddTextArea("dxnr",5).value = v
End With
wb.AppendHTML("<script src=\'./lib/order.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'生成网页
order.js代码：
//测试
function getDate(){
var result = sendAjaxText("getDate","Editjl.htm","",false);
document.getElementById("p1").innerHTML= result;
}
[此贴子已经被作者于2017/6/1 11:25:31编辑过]
-- 发布时间：2017/6/1 11:29:00
--
1、js这样改
function getDate(){
alert("123");
var result = sendAjaxText(document.getElementById("短信模板").value,"test.htm","",false);
alert(result);
document.getElementById("dxnr").innerHTML= result;
}
2、做一个test.htm的网页接收信息
select case e.path
case "test.htm"
dim str as string = e.PlainText
msgbox(str)
e.WriteString("123456789")
end select
-- 发布时间：2017/6/1 13:52:00
--
可以实现了， 谢谢老师 。 标黄色的能不能 用变量，不然模板名称就得固定死，而且增加模板后还得改代码添加。。。
此主题相关图片如下：微信截图_20170601130804.png
Case "test.htm"
Selec t e.PlainText
Case "生日祝福" \' case document.getElementById("短信模板").value
\'Dim cmd As New SQLCommand
\'cmd.C
\'Dim dt As DataTable
cmd.CommandText = "SELEC T * From {短信模板} where 模板名称 = \'生日祝福\' "
dt = cmd.ExecuteReader()
dr = dt.DataRows(0)
If dr IsNot Nothing Then
e.WriteString(dr("模板内容"))
End If
End Selec t
[此贴子已经被作者于2017/6/1 13:53:28编辑过]
-- 发布时间：2017/6/1 14:05:00
--
js，直接把值发送过去
function getDate(){
alert("123");
var result = sendAjaxText(document.getElementById("短信模板").value,"test.htm","",false);
alert(result);
document.getElementById("dxnr").innerHTML= result;
}
你直接获取 e.plainText 不就好了？
-- 发布时间：2017/6/1 14:59:00
--
明白了！！谢谢！！