asp源码微信分享带图片jdk分享功能获取“分享到朋友圈

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

Public Sub Die(v)
Response.Write(v)
Response.End()
End Sub
Public Sub Echo(v)
Response.Write(v&"<br/>"&vbcrlf)
End Sub

Public Function MakeRandStr(intLength)
Dim strSeed, seedLength, pos, Str, i
strSeed = "abcdefghijklmnopqrstuvwxyz123456789"
seedLength = Len(strSeed)
Str = ""
Randomize
For i = 1 To intLength
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
Next
MakeRandStr = Str
End Function

 

=============================================

互相学习电话微信:18611436777(加微信注明事由)

asp源码微信分享带图片jdk分享功能获取“分享到朋友圈

asp源码微信分享带图片jdk分享功能获取“分享到朋友圈

上一篇:asp源码微信公众号验证消息真实性


下一篇:asp源码微信公众号获取用户基本信息手机端