function mis(preString) Dim texts Dim seed Dim i,length prestring = trim(preString) length = len(preString) seed = length texts = "" for i = 1 to length seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32) texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32)) next dim dist dist="" for i = 1 to len(texts) if asc(mid(texts,i,1))64 and asc(mid(text...[ 查看全文 ]
很久没用ACCESS了,只是看到经常碰到有人问如何返回随机记录的问题,所以就贴了上来,随便看看。 <!--#include virtual="/adovbs.inc"-- <% Dim objConn Dim objRst Dim strSQL Dim strConnection Dim str Dim str1  ...[ 查看全文 ]
<?php $key = "This is supposed to be a secret key !!!"; function keyED($txt,$encrypt_key) { $encrypt_key = md5($encrypt_key); $ctr=0; $tmp = ""; for ($i=0;$i<strlen($txt);$i++) { if ($ctr==strlen($encrypt_key)) $ctr=0; ...[ 查看全文 ]
<!-- Here we are calling the LPK file. This LPK file was created using the same method explained in the article-- <object CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331" id="Microsoft_Licensed_Class_Manager_1_0" <param NAME="LPKPath" VALUE="mschart5.lpk" </object <-- Here is wher...[ 查看全文 ]