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