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&"
"&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