Foxtable(狐表)用户栏目专家坐堂 → 狐表之数据库安全探索


  共有7204人关注过本帖树形打印复制链接

主题:狐表之数据库安全探索

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/17 19:43:00 [显示全部帖子]

 说一个最简单的,

 

 你发一个请求,你的服务器端,想办法拼凑一个字符串,然后返回客户端

 

 客户端把字符串保存成.txt文件,然后用下面的代码合并数据。

 

合并文本文件:

Dim mg As New Merger
mg
.SourcePath = "c:\data\" '指定数据文件所在目录
mg.Format =
"Delimited" '指定格式
mg
.SourceTableName = "订单" '指定要合并的文件,无需扩展名
mg
.DataTableName = "订单" '指定接收数据的表
mg
.Merge() '开始合并


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/17 19:59:00 [显示全部帖子]

 和服务器间的数据传输,只能是字符串,在客户端都是要把字符串转成表的。你自己用分拆字符串以后再一个一个的写入表,更慢。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 15:29:00 [显示全部帖子]

嗯嗯,直接拿来用就行。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 15:56:00 [显示全部帖子]

http://www.foxtable.com/help/topics/0345.htm

 

[此贴子已经被作者于2014-6-18 15:55:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 16:10:00 [显示全部帖子]

Dim sql As String = "Select 归属门店,VIP卡号,VIP姓名 from {VIP基本信息} where VIP卡号 = '107961' "
Dim strXML As String = Functions.Execute("getXML","http://domain/path/项目文件?sql=" & sql)    这是发送请求

FileSys.WriteAllText("c:\data\table.txt",  strXML, False)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 17:10:00 [显示全部帖子]

 呃,可以,返回的字符串中,第一部分用作信息判断。

 

 比如返回的信息是这样 当前页=1;总页数=9|xxx表数据xxx

 

 根据信息,在请求的参数中,加入请求的页或请求的量,再次请求获取数据。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 17:30:00 [显示全部帖子]

 变样是什么意思?乱码?还是回车问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 17:49:00 [显示全部帖子]

试试改这段代码

 

http://msdn.microsoft.com/zh-cn/library/system.text.encoding.aspx

 

Dim url As String = Args(0)
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
rsps = Nothing
rqst = Nothing
Dim reader As New System.IO.StreamReader(stm, System.Text.Encoding.Unicode)
Dim strXML As String = reader.ReadToEnd
stm.Dispose()
msgbox(strXML)
Return strXML

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 20:44:00 [显示全部帖子]

 测试正常,分割,最好用逗号或者tab

 

Dim url As String = Args(0)
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
rsps = Nothing
rqst = Nothing
Dim reader As New System.IO.StreamReader(stm, System.Text.Encoding.Default)
Dim strXML As String = reader.ReadToEnd
stm.Dispose()
Return strXML


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/18 21:07:00 [显示全部帖子]

 呃,我测试是可以的......请认真测试

 回到顶部
总数 15 1 2 下一页