<div class="content content_bottom"><div class="btitle"><div class="box1 iconfont"><a href="javascript:history.go(-1);"></a></div><div class="box2"><%=haibao_title%></div></div>
<!--#include file="qrcode.asp"-->
<%
'=====图片名字生成
Function getRnd()Dim rndnum,filenameRandomize Timer rndnum = Int(899999 * Rnd + 100000)filename = year(now())&month(now())&day(now())&rndnumgetRnd = filename
End Function'b64=base64数据  tname=bmp/gif imgname="img/1.gif"
function base64toimage(b64,tname,imgname)if b64="" then base64toimage="" : exit functionif imgname="" then base64toimage="" : exit functionif tname="" then tname="gif"b64=replace(b64,"data:image/"&tname&";base64,","")b64=replace(b64," ","+")    Dim xml : Set xml=Server.CreateObject("MSXML2.DOMDocument") Dim stm : Set stm=Server.CreateObject("ADODB.Stream") xml.resolveExternals=Falsexml.loadXML("<?xml version=""1.0"" encoding=""gb2312""?><data><![CDATA["&b64&"]]></data>") xml.documentElement.setAttribute "xmlns:dt","urn:schemas-microsoft-com:datatypes" xml.documentElement.dataType = "bin.base64" stm.Type=1stm.Open stm.Write xml.documentElement.nodeTypedValue stm.SaveToFile Server.MapPath(imgname),2stm.Close Set xml=Nothing Set stm=Nothingbase64toimage=imgname
end function'outqr(版本,纠错级别,图片格式,待生成的数据,放大倍数,边距,保存本地图片路径及名称格式)
'版本0-10  : 简易版本，编码字符不宜过多;版本越高，容纳的字符数越多
'纠错级别|[LMQH])
'图片格式: gif / bmp  : bmp的图片大一些
'待生成的数据  如：世界！你好
'放大倍数 纯数字 如：5 ： 数字越大生成的二维码越大 不建议过大影响速度
'边距 纯数字 如：10
'保存本地图片路径及名称格式  如：qr/100.gif   ：  如果为空将不保存本地图片，返回base64图片  重名将覆盖
function outqr(a,b,c,d,e,f,g)dim qr,b64imgset qr = ASPQrcode(a,b)qr.useBestMaskPattern = false '如果为false，生成速度会快很多，二维码复杂点；qr.output =cb64img=qr.getBase64(d,e,f)set qr=nothingif g<>"" then  : outqr=base64toimage(b64img,c,g) : else : outqr="data:image/"&c&";base64,"&b64img : end if
end functiondim imgname,picname
picname = getRnd
ewmpic = "UploadFile/ewm/"&picname&".jpg"
website = ""&anco_site_http&"/share.asp?hyid="&newhyid&""
'看看二维码是不是入库了
if hy_wxewm<>"" then
else
Conn.ExeCute("update [member] set ewm='"&ewmpic&"' where id="&newhyid&"")
imgname=outqr(0,"M","jpg",""&website&"",13,5,"UploadFile/ewm/"&picname&".jpg")
end if
'end会员表
%>
<div class="main_95 pt10"><center><span class="mod"><a href="member_hb.asp">下载<%=haibao_title%></a></span></center><div class="conte_text pt10"><%=haibao_gsl%></div>
</div>