ASP源代码后台+小程序开发（一）_微信小程序asp源码

小程序连接SQLserver数据库，ASP代码。手机同微信：13522116288

小程序代码：

    var doMain = app.globalData.doMain  //获取全局 https 路径

    var my_url = doMain + 'erp_logon_get_gsmch.asp'

    var trail_url = my_url + "?p_zhangtao=" + that.data.zhangtao

    console.log('trail_url: ', trail_url)

    wx.request({

      url: my_url,

      method: 'GET',

      data: {

        p_zhangtao: that.data.zhangtao,

      },

      header: {

        'Accept': 'application/json'

      },

      success: function (res) {

        {

          console.log('下面的主登录按钮 返回data: ', res);

          if (res.data.length == 14) { //database_error

            wx.showToast({

              title: '账套输入错误',

              icon: 'none',

              duration: 1500

            })

          }

          else {

            //数据库连接成功

            wx.setStorageSync('g_gsmch', res.data[0].gsmch); // 公司名称

            wx.setStorageSync('zhangtao', that.data.zhangtao);//设置账套        

            wx.setStorageSync('nbgl_khdd', that.data.nbgl_khdd);//内部管理还是客户订单

            wx.setStorageSync('user_name', that.data.phone);//用户名

            wx.setStorageSync('user_password', that.data.password);//密码

            that.setData({

              gsmch: wx.getStorageSync("g_gsmch"), /// xml 最上面显示 公司名称 mch_chinese

            })  

            /// 1 如果选择的内部管理   计算 本分支 最大库号 和最小库号 和 分支id  

            console.log("1 开始 计算 本分支" )

            wf_get_min_max_kh(that)

            /// 2 准备  

            console.log("2 开始 导航到下一页")

            wf_navigat_next(that)

          }

        }

      }

    })

ASP后台代码 ，erp_logon_get_gsmch.asp ：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType = "application/json; charset=utf-8" %>
<!--#include file="JSON_2.0.4.asp"-->
<!--#include file="connectdb.asp"-->
<%

on error resume next '==============================开启错误信息 20200410   On Error Goto 0    response.End   

dim Conn ,rs,strSQL , jsa  , p_name  , p_pass ,p_zhangtao ,transaction ,string_server
dim rs_get_yishi_info ,  get_gsmch ,get_fenzhi_mch , old_pass 
  
p_zhangtao = Request.QueryString("p_zhangtao")   

string_server = get_conn_str(p_zhangtao)
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.open string_server

if err.number<>0 then   
    response.Write "database_error"    
    response.End 
end if

set rs = server.CreateObject("adodb.recordset") 

strSQL = "select  fenzhi_mch = count(fenzhi_mch)  FROM bs_danwei_fenzhi  where  fenzhi_id= 1 "   
rs_get_yishi_info = conn.Execute(strSQL) 
get_fenzhi_mch = rs_get_yishi_info("fenzhi_mch")

if get_fenzhi_mch = "0" then  
  get_fenzhi_mch =  "nofenzhimch"
else      
  strSQL = "select  gsmch = mch_chinese FROM bs_danwei_fenzhi  where  fenzhi_id= 1 "   
end if    
 
'Response.Write strSQL

rs.open strSQL,conn,1,1 

Set jsa = jsArray()
While Not (rs.EOF Or rs.BOF)
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next
rs.MoveNext
Wend
Set QueryToJSON = jsa

Response.Write QueryToJSON.Flush

rs.close
Set rs = Nothing 
Conn.close
Set Conn = Nothing

%>

<%
'========= asc 
function strToAsc(strValue)
dim strTemp
dim i
strTemp=""
for i=1 to len(strValue & "")
strTemp=strTemp & asc(mid(strValue,i,1))
next
strToAsc=strTemp
end function 
%>

 =================其中的引入的文件：connectdb.asp：
<%  

function get_conn_str(strValue)
dim strTemp
dim i

strTemp=""
 
if  LCase(strValue) = "demo"   then  '演示    2019-6-25
 strTemp ="Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=123456;Initial Catalog=my_data"
end if  

get_conn_str=strTemp
end function 
  

%>