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

生产线流程通知查询系统，从客户下单开始，到生产线的每一个环节，最后打包入库，出库，发货，全程扫码入库，企业老板或是销售部门在办公室就可以知道某单货现在的生产进度在哪个环节上了。最近一个客户找我订制的，他们厂每天要做100单左右的业务，生产毛毯的，客户下单后，销售部门就把生产订单交给了生产部，生产部第一环节接到这单业务立即扫码，此时厂老板和这单业务的销售负责人及这单货的客户，便收到一条通知，提示他该货已经上线生产，第一环节生产完成后下线，再次扫码，再次发送通知给这几个人，然后生产线继续往下进入下面几个环节，每个环节都会收到通知，最后入库，出库，发货，哪个物流发的，货单号多少，全部都有通知。客户下单后整个流程全部都有通知。

asp微信jssdk上传图片,asp上传自动压缩图片,是通过微信上传的

微信JS-SDK图片上传代码ASP版,jssdk上传图片接口源码，每次可以上传9张图片，并且微信可以自动压缩照片，让原本几M的照片变成几十k的图片，并且像素还很高，高清，上传后自动保存到本地服务器，这个上传代码是asp的，网络上并不多的源码，由其是微信大部分支持的是php，我写的这个源码是根据php转成asp的。

asp微信消息模板推送开发源码下载,程序是asp写的

微信模板消息，就是微信公众号关注后，登录或是用户有些操作，会给用户推送一条提示信息，见图片，asp的代码，直接下载使用asp微信模板消息发送

互相学习电话微信：18611436777（加微信注明事由）

微信jssdk上传图片asp程序源码

asp微信公众号群发推送客服消息源码，微信的客服消息推送目前已修改为48小时有效，只有和你公众号互动在48小时以内的用户才可以收到客服消息。

asp获取微信公众号用户的头像和微信名及openid源码，asp写的，可以获取用户的头像和微信名，性别及openid等

<script language="jscript" runat="server">
function getjson(str){
try{
eval("var jsonStr = (" + str + ")");
}catch(ex){
var jsonStr = null;
}
return jsonStr;
}
</script>
<%
'==================================
'=类 名 称：微信登录
'=功 能：微信登录 For ASP
'=作 者：18611436777
'=微信:18611436777
'=日 期：2014-3
'==================================
'转载时请保留以上内容！！
Class WxAPI
Private APPID
Private APPSECRET
Private CALLBACK_URL
Private SCOPE

Private Sub Class_Initialize 
APPID = "wxe4a757eaba87d647"'APP ID
APPSECRET = "9a2f4790e1fe303dc500bf63bf5bad51"'APP KEY
CALLBACK_URL = "http://www.muyunet.com/weixin/user2.asp"'REDIRECT_URI
SCOPE ="snsapi_userinfo" '授权项snsapi_userinfo,snsapi_base

End Sub
'Microsoft.XMLHTTP
'Get方法请求url,获取请求内容
Private Function RequestUrl(url)
Set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")
XmlObj.open "GET",url, false
XmlObj.send
If XmlObj.Readystate=4 Then
RequestUrl = XmlObj.responseText
Else
Response.Write("xmlhttp请求超时！") 
Response.End()
End If
Set XmlObj = nothing
End Function


Private Function CheckData(data,str)
If Instr(data,str)>0 Then
CheckData = True
Else
CheckData = False
End If
End Function


'生成登录地址
Public Function GetAuthorization_Code()
Dim url, params
url = "https://open.weixin.qq.com/connect/oauth2/authorize"
params = "appid="&APPID
params = params & "&redirect_uri=" & server.URLEncode(CALLBACK_URL)
params = params & "&response_type=code"
params = params & "&scope="&SCOPE
params = params & "&state=123#wechat_redirect"
url = url & "?" & params
GetAuthorization_Code = (url)
End Function

ASP微信支付v4.0版本，最新的asp微信公众号支付源码，不需要安装证书，只要一个文件用到.net环境就可以用

<%
Response.Charset = "GB2312"
Code = Trim(Request.QueryString("code"))
'Response.Write(Code&"<br/>")
SET Wx = New WxAPI
TokenArray = Wx.GetAccess_Token(Code)
Access_Token=TokenArray(0)
Openid=TokenArray(1)
'End If

//获取定位
//$(".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('用户拒绝授权获取地理位置','');
}
});
//});

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
session.codepage=936
Response.Charset = "GB2312"
%>
<!--#include file="WxApi.asp"-->
<%
url = "http://www.xxx.com"
Dim Arr(4)
Arr(0) = "first=Hi,你好！"
Arr(1) = "keyword1=FromUserName"
Arr(2) = "keyword2="&Now
Arr(3) = "keyword3="&Url
Arr(4) = "remark=这里是备注信息"
color = "#000000"
Openid = "oGYGwuNbebj21KS3ydHKH5Mj5CRs"
template_id = "0x8MfyRiJSOYBPk4qLQ6m3AGdybjmOETitix18_IiBk" 
SET Wx = New WxAPI
call Wx.SendMessage(Openid,template_id,Url,Arr,color)
Set Wx=Nothing