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（加微信注明事由）