<%
' V网API接口公用函数
%>

<!--#include file="md5.asp"-->

<%
key   			= APPSECRET
''
' 把数组所有元素，按照“参数=参数值”的模式用“&”字符拼接成字符串
' param sPara 需要拼接的数组
' return 拼接完成以后的字符串
Function CreateLinkstring(sPara)
	nCount = ubound(sPara)
	Dim prestr
	For i = 0 To nCount
		If i = nCount Then
			prestr = prestr & sPara(i)
		Else
			prestr = prestr & sPara(i) & "&"
		End if
	Next
	
	CreateLinkstring = prestr
End Function

''
' 把数组所有元素，按照“参数=参数值”的模式用“&”字符拼接成字符串，并且做urlencode编码
' param sPara 需要拼接的数组
' return 拼接完成以后的字符串
function CreateLinkStringUrlEncode(sPara)
	nCount = ubound(sPara)
	dim prestr
	for i = 0 to nCount
		'把sPara的数组里的元素格式：变量名=值，分割开来
		pos = Instr(sPara(i),"=")			'获得=字符的位置
		nLen = Len(sPara(i))				'获得字符串长度
		itemName = left(sPara(i),pos-1)	'获得变量名
		itemValue = right(sPara(i),nLen-pos)'获得变量的值
		
		if itemName <> "service" and itemName <> "_input_charset" then
			prestr = prestr & itemName &"=" & server.URLEncode(itemValue) & "&"
		else
			prestr = prestr & sPara(i) & "&"
		end if
	next
	
	CreateLinkStringUrlEncode = prestr
end function

''
' 除去数组中的空值和签名参数
' param sPara 签名参数组
' return 去掉空值与签名参数后的新签名参数组
Function FilterPara(sPara)
	Dim sParaFilter(),nCount,j
	nCount = ubound(sPara)
	j = 0
	For i = 0 To nCount
		'把sPara的数组里的元素格式：变量名=值，分割开来
		pos = Instr(sPara(i),"=")			'获得=字符的位置
		nLen = Len(sPara(i))				'获得字符串长度
		itemName = left(sPara(i),pos-1)	'获得变量名
		itemValue = right(sPara(i),nLen-pos)'获得变量的值
		
		If itemName <> "sign" And itemName <> "sign_type" And itemValue <> "" and isnull(itemValue) = false Then
			Redim Preserve sParaFilter(j)
			sParaFilter(j) = sPara(i)
			j = j + 1
		End If
	Next
	
	FilterPara = sParaFilter
End Function

''
' 对数组排序
' param sPara 排序前的数组
' return 排序后的数组
Function SortPara(sPara)
	Dim nCount
	nCount = ubound(sPara)
	For i = nCount To 0 Step -1
		minmax = sPara( 0 )
    	minmaxSlot = 0
    	For j = 1 To i
            mark = (sPara( j ) > minmax)
        	If mark Then 
            	minmax = sPara( j )
            	minmaxSlot = j
        	End If
    	Next
		If minmaxSlot <> i Then 
			temp = sPara( minmaxSlot )
			sPara( minmaxSlot ) = sPara( i )
			sPara( i ) = temp
		End If
	Next
	SortPara = sPara
end function

''
' MD5签名
' param prestr 需要签名的字符串
' param key 私钥
' param input_charset 编码格式
' return 签名结果
Function Md5Sign(prestr, key, input_charset)
	Dim mysign
	
	'把拼接后的字符串再与安全校验码直接连接起来
	prestr = prestr & key
	
	mysign = md5(prestr,input_charset)
	
	Md5Sign = mysign
End Function

''
' MD5验证签名
' param prestr 需要签名的字符串
' param sign 签名结果
' param key 私钥
' param input_charset 编码格式
' return 签名结果
Function Md5Verify(prestr, sign, key, input_charset)
	Dim mysign
	
	'把拼接后的字符串再与安全校验码直接连接起来
	prestr = prestr & key
	
	mysign = md5(prestr,input_charset)
	
	'比较获得的sign签名结果是否与生成的mysign签名结果相等
	If mysign = sign Then
		Md5Verify = true
	Else
		Md5Verify = false
	End If
End Function

''
' 写日志，方便测试（看网站需求，也可以改成存入数据库）
' param sWord 要写入日志里的文本内容
Function LogResult(sWord)
	Randomize
	Set fs= createobject("scripting.filesystemobject")
	Set ts=fs.createtextfile(server.MapPath("log/"&GetDateTime()&INT((1000+1)*RND)&".txt"),true)
	ts.writeline(sWord)
	ts.close
	Set ts=Nothing
	Set fs=Nothing
End Function

''
' 获取当前时间
' 格式：年[4位]-月[2位]-日[2位] 小时[2位 24小时制]:分[2位]:秒[2位]，如：2007-10-01 13:13:13
' return 时间格式化结果
Function GetDateTimeFormat()
	sTime=now()
	sResult	= year(sTime)&"-"&right("0" & month(sTime),2)&"-"&right("0" & day(sTime),2)&" "&right("0" & hour(sTime),2)&":"&right("0" & minute(sTime),2)&":"&right("0" & second(sTime),2)
	GetDateTimeFormat = sResult
End Function

''
' 获取当前时间
' 格式：年[4位]月[2位]日[2位]小时[2位 24小时制]分[2位]秒[2位]，如：20071001131313
' return 时间格式化结果
Function GetDateTime()
	sTime=now()
	sResult	= year(sTime)&right("0" & month(sTime),2)&right("0" & day(sTime),2)&right("0" & hour(sTime),2)&right("0" & minute(sTime),2)&right("0" & second(sTime),2)
	GetDateTime = sResult
End Function

''
' 过滤特殊字符
' param Str 要被过滤的字符串
' return 已被过滤掉的新字符串
Function DelStr(Str)
	If IsNull(Str) Or IsEmpty(Str) Then
		Str	= ""
	End If
	DelStr	= Replace(Str,";","")
	DelStr	= Replace(DelStr,"'","")
	DelStr	= Replace(DelStr,"&","")
	DelStr	= Replace(DelStr," ","")
	DelStr	= Replace(DelStr,"　","")
	DelStr	= Replace(DelStr,"%20","")
	DelStr	= Replace(DelStr,"--","")
	DelStr	= Replace(DelStr,"==","")
	DelStr	= Replace(DelStr,"<","")
	DelStr	= Replace(DelStr,">","")
	DelStr	= Replace(DelStr,"%","")
End Function

Function create_str(obj) 
 Dim char_array(80) 
 Dim temp 
 For i = 0 To 9  
  char_array(i) = Cstr(i) 
 Next 
 For i = 10 To 35 
  char_array(i) = Chr(i + 55) 
 Next 
 For i = 36 To 61 
  char_array(i) = Chr(i + 61) 
 Next 
 Randomize 
 For i = 1 To obj 
  'rnd函数返回的随机数在0~1之间，可等于0，但不等于1 
  '公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限 
  temp = temp&char_array(int((61 - 0 + 1)*Rnd) + 0) 
  'Response.Write char_array(int((61 - 0 + 1)*Rnd) + 0) &"|"& int((61 - 0 + 1)*Rnd) + 0  &"<br>"
 Next 
 create_str = temp 
End Function 

function FillZero(str)
  if len(str)=1 then
  	FillZero = "0"&str
  else
  	FillZero=str
 end if
end function
'*************************************************************************************************

'微信支付统一下单 (Post XML)
Function PostXML(pUrl, pXml)  
    PostXML = ""  
    Dim https, ResponseBody  
    Set https = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")  
    https.setOption(3) = "LOCAL_MACHINE\My\广东民航医疗快线有限公司民航医疗快线门诊部"
      
    Dim xmlDoc  
    Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0")  
    xmlDoc.async = false  
    xmlDoc.loadXML pXml  
      
    With https   
        .Open "POST", pUrl, False  
        .setRequestHeader "Content-Type","application/xml;charset=UTF-8"  
        .Send xmlDoc    'pXml  
        PostXML = .ResponseText  
    End With   
    Set https = Nothing   
End Function
%>