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 %>