<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_orderaddr" value="<%=v_orderaddr%>">
<input type="hidden" name="v_ordertel" value="<%=v_ordertel%>">
<input type="hidden" name="v_orderpost" value="<%=v_orderpost%>">
<input type="hidden" name="v_orderemail" value="<%=v_orderemail%>">
<input type="hidden" name="v_ordermobile" value="<%=v_ordermobile%>">
</form>
</body>
</html>
tenpay
1.asp_md5.asp
<%
Private Const ASP_BITS_TO_A_BYTE = 8
Private Const ASP_BYTES_TO_A_WORD = 4
Private Const ASP_BITS_TO_A_WORD = 32
Private ASP_m_lOnBits(30)
Private ASP_m_l2Power(30)
Private Function ASP_LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
ASP_LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
ASP_LShift = &H80000000
Else
ASP_LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And ASP_m_l2Power(31 - iShiftBits)) Then
ASP_LShift = ((lValue And ASP_m_lOnBits(31 - (iShiftBits + 1))) * ASP_m_l2Power(iShiftBits)) Or &H80000000
Else
ASP_LShift = ((lValue And ASP_m_lOnBits(31 - iShiftBits)) * ASP_m_l2Power(iShiftBits))
End If
End Function
Private Function ASP_Str2binold(varstr)
ASP_Str2binold=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
varasc = Asc(varchar)
If varasc<0 Then
varasc = varasc + 65535
End If
If varasc>255 Then
varlow = Left(Hex(Asc(varchar)),2)
varhigh = right(Hex(Asc(varchar)),2)
ASP_Str2binold = ASP_Str2binold & chrB("&H" & varlow) & chrB("&H" & varhigh)
Else
ASP_Str2binold = ASP_Str2binold & chrB(AscB(varchar))
End If
Next
End Function
Private Function ASP_Str2bin(varstr)
ASP_Str2bin=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
code = Server.UrlEncode(varchar)
if len(code) = 1 then
ASP_Str2bin = ASP_Str2bin & chrB(AscB(code))
else
codearr = split(code,"%")
for j=1 to ubound(codearr)
ASP_Str2bin = ASP_Str2bin & chrB("&H" & codearr(j))
next
