Asp,Php,Jssdk,mysql,mssql,微信公众号开发,小程序开发-学习笔记

昨天晚上给朋友写了一个asp的微信小程序支付接口，我这朋友的小程序服务器端用的asp做的，以前没有支付，非让我给写一个支付，因为必须是asp来写，他不会，所以我就帮他写了，顺便还写了一个asp获取用户资料头像和微信名入库的代码，也是asp源码，数据库用的是mdb的格式，还可以比较好用，微信小程序用asp做服务器端估计很少，应该有朋友需要，下载这个代码：ly.ftphn.com/wxpay.rar

昨天晚上给朋友写了一个asp的微信公众号支付接口，我这朋友的公众号用的asp做的，以前没有支付，非让我给写一个支付，因为必须是asp来写，他不会，所以我就帮他写了，顺便还写了一个asp获取用户资料头像和微信名入库的代码，也是asp源码，数据库用的是mdb的格式，还可以比较好用，微信公众号里的网页用asp做估计很少，应该有朋友需要。

我这是给我们当地的一家旅行社写的订制的一套会员管理系统，实现会员积分并且推送，积分兑换，储值充值等功能，程序是用asp+mdb编号的，简单小巧，需要的可以直接下载：ly.ftphn.com/hy.rar

友客帮微信电子会员卡系统汽车美容版上线，实现会员充值推送，消费推送，卡券查询，应急联系等。友客帮微信会员卡是打通微信接口而实现的商户独立应用电子会员卡。会员扫描二维码就可以获取一张存储于微信中的会员卡，在注册成功、充值、积分、消费、扣分时都可以即时收到通知。微信电子会员卡有别于传统实体卡片式会员卡，微信会员卡储存在微信中，方便顾客随时进行消费查询，明明白白消费，与商家更亲密信任，能够有效帮助商家拉动店面营业收入。并可完全替代传统会员卡，节约制卡成本、方便携带。

刚刚写了一套asp版的海鲜海参龙虾大闸蟹提货系统，用的asp+mdb生成的，可以给海鲜店做礼品卡使用，后台生成卡号带密码。最近接到了一个卖大闸蟹的海鲜店老板的定制开发，他要在店里卖礼品卡，礼品卡上有面值298、598、998元不等的面值卡，上面有卡号，密码， 
密码用刮刮银涂上了，客户买礼品卡送人，送别人礼品卡而不直接送大闸蟹，这中间有很多道理（成熟的人才懂），收到礼品卡的贵人，什么时 
候想吃了，就什么时候按照礼品卡上的方式提货，扫码-提货-输入卡号密码-输收货地址，然后就等着收货吧！

在做微信开发时候，经常要用到Access Token，但是官网提供的都是基于php写的，我用asp写了，有需要可以直接复制去用，模板消息，jdk上传图片，客服消息等全需要这个：
'获取 access_token
Public Function Get_Access_Token()
sCode = Request("code")
If sCode ="" And Session("access_token")="" Then
Response.Redirect(GetAuthorization_Code)
Else
If DateDiff("s",Now,Session("access_token_expires"))> 0 Then
Exit Function
End If
End If
Dim url, params,Temp
Url="https://api.weixin.qq.com/sns/oauth2/access_token?"
params = "appid="&s_APPID
params = params & "&secret=" & s_APPSECRET
params = params & "&code=" & sCode
params = params & "&grant_type=authorization_code"
url = Url & params
Temp=RequestUrl(url,"GET","")
'Die Temp
If CheckData(Temp,"access_token") = True Then
set obj = getjson(Temp)
if isobject(obj) Then
Session("access_token") = obj.access_token
Session("access_token_expires") = DateAdd("s",obj.expires_in,Now)
Session("openid") = obj.openid
End If
set obj = Nothing
Else
Response.Write("Get_Access_Token()=>"&Temp) 
Response.End()
End If
End Function

在做开发的时候，经常需要获取用户地址，在微信中比较省时间的方法是直接获取用户地址坐标，下面这段代码就是，直接拿去用吧！

//获取定位
//$(".getLocation").on("click", function(){
wx.getLocation({
type: 'gcj02', // 默认为wgs84的gps坐标，如果要返回直接给openLocation用的火星坐标，可传入'gcj02'
success: function (res) {
var latitude = res.latitude; // 纬度，浮点数，范围为90 ~ -90
var longitude = res.longitude; // 经度，浮点数，范围为180 ~ -180。
$("#p_LatLng").html(longitude+','+latitude); //用户的坐标
var url='GetAddress.asp?lat='+latitude+'&lng='+longitude;
$.ajax({
type:"get",
cache:false,
url:url,
success:function(res)
{
$("#p_Address").html(res); //中文地址

}
});
},
cancel: function (res) {
alert('用户拒绝授权获取地理位置','');
}
});
//});

小编也经常在微信朋友圈分享一些好的文章或者让人哭或笑的段子，就在手机右上角的三个竖点一键分享就ok了，那么对于分享到朋友圈是怎么实现的呢？对于那种活动分享送流量是怎么定位分享者的呢？而想要将文章发送给朋友又是怎么获取到的朋友列表的呢？为什么别人分享的带图片，而你分享的不带图片呢？要用到微信JS-SDK，这是微信公众平台面向网页开发者提供的基于微信内的网页开发工具包。下面是代码，直接可以复制去用：

禾匠小程序独立版v2.9.33源码下载前后端2933版2018-11-2日更新，经过多次更新后，目前是最新版的了，v2.9.33版，对应的前端也是同步的，需要的直接到百度网盘下载吧！

<%

set rsM=createobject("adodb.recordset")

rsM.open "select count(*) as total from scunews where reference='"&name1&"' ",cn,1,1

if not rsM.eof then

numM=rsM("total")