asp源码生成带参数二维码并入库写入上级是谁利用微信公众号

晚上着着没事,一个朋友联系,让帮忙写一个asp生成带参数的二维码,别人扫了后如果关注了,则直接进入公众号里,如果没关注则关注,并把用户资料获取到并入库,然后回复他的上级是谁,我觉得有可能对别人有用,就发到这了,闲话不说:

<%
'==================================
'=类 名 称:微信模板消息
'=功 能:微信模板消息 For ASP
'=作 者:宝亲王
'=微 信: 18611436777
'=日 期:2015-3
'==================================
'转载时请保留以上内容!!
str = Request.QueryString(“id”)
q_expires = 60 '过期时间60S,60S以上有效

'查询临时二维码,不存在或过期,就进行更新或插入记录
Sql = “Select ticket,ticket_expires,scene_str,qrcode_type,id From [Wx_Qrcode] Where scene_str=? and qrcode_type=?”
Set Rs = SqlHelper(Sql,Array(str,1))
If Not Rs.Eof Then
If DateDiff(“s”,Now,Rs(1))<0 Then '临时二维码过期
Res = Wx.Creat_Qrcode(str,1,q_expires)
Call SqlHelper(“Update [Wx_Qrcode] set ticket=?,ticket_expires=? where id=?”,Array(Res(0),DateAdd(“s”,Res(1),Now),Rs(“id”)))
End If
Else
Res = Wx.Creat_Qrcode(str,1,q_expires)
Call SqlHelper(“Insert Into Wx_Qrcode values(?,?,?,?)”,Array(Res(0),DateAdd(“s”,Res(1),Now),str,1))
End If
Set Rs = Nothing
'查询永久二维码,不存在就插入记录
Sql = “Select ticket,ticket_expires,scene_str,qrcode_type From [Wx_Qrcode] Where scene_str=? and qrcode_type=?”
Set Rs = SqlHelper(Sql,Array(str,2))
If Rs.Eof Then
Res = Wx.Creat_Qrcode(str,2,"")
Call SqlHelper(“Insert Into Wx_Qrcode values(?,?,?,?)”,Array(Res(0),DateAdd(“yyyy”,1000,Now),str,2))
End If
Set Rs = Nothing
%>

带参数二维码 二维码所带参数:<%= str %> <% Sql = "Select ticket,ticket_expires,scene_str,qrcode_type From [Wx_Qrcode] Where scene_str=? order by qrcode_type" Set Rs = SqlHelper(Sql,str) If Not Rs.Eof Then While Not Rs.Eof %>


[<% If Rs("qrcode_type")=1 Then %>临时<% Else %>永久<% End If %>]有效时间至:<%= Rs(1) %>

<% Rs.MoveNext Wend End If %>
展开阅读全文

没有更多推荐了,返回首页