Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照缩略图] is null And [展示照] is not null","","[会员编号] DESC")
msgbox("数量1:" & drs.count)
For Each dr As DataRow In drs
Dim file = "e:\web\zsz\d\" & dr("展示照") ’这里去掉UrlEncode就好了
msgbox("e:\web\zsz\d\" & dr("展示照")) ’执行这里提示下图
Dim img As image = getImage(file) '取大图,用于后续处理
msgbox(4)
msgbox("高度:" & img.height & "宽度:" & img.width)
Dim bmp As bitmap = new bitmap(img, 100, 100 * (img.height / img.width))
msgbox(5)
bmp.save("e:\web\zsz\x\" & dr("展示照"))
bmp.Dispose
dr("展示照缩略图") = dr("展示照")
dr.save
Next
此主题相关图片如下：qq图片20170531232645555.png
[此贴子已经被作者于2017/6/1 8:36:18编辑过]
加好友 
发短信
Post By：2017/5/31 23:28:00 [只看该作者]
