快捷導(dǎo)航

關(guān)于ASP生成偽參數(shù)技巧簡(jiǎn)潔實(shí)用的偽（僞）參數(shù)

更新時(shí)間：2007年11月23日 17:06:18 作者：

簡(jiǎn)潔實(shí)用的偽（僞）參數(shù)
前兩天在做一個(gè)站內(nèi)版的企搜引擎，發(fā)現(xiàn)某些站點(diǎn)可以鏈接站點(diǎn)內(nèi)容。。

奇怪之下看了看，原來(lái)是按照數(shù)據(jù)庫(kù)ID的自動(dòng)編號(hào)規(guī)律進(jìn)行鏈接的~~

閑暇之余弄了下面這個(gè)東東，希望對(duì)大家在以后的編寫ASP程序中有所幫助！

復(fù)制代碼代碼如下:

<%  
//生成指定位數(shù)的隨機(jī)數(shù)字  
//也可以用Guidy寫的iXuEr_Rnd_Str函數(shù)，自帶15種樣式，可以偽MD5啦!!  
Function rndStr(strLong)  
Dim tempStr  
Randomize  
Do While Len(rndStr) < strLong  
 tempStr=CStr(Chr((57-48)*rnd+48))  
 rndStr=rndStr&tempStr  
Loop  
 rndStr=rndStr  
End Function  
%> 

下面以Form表單中提交的參數(shù)為例子針對(duì)Request.Form，需要傳遞的參數(shù)doAction原來(lái)的值是從數(shù)據(jù)庫(kù)讀取的ID

<form name=iform action="ABC.asp" method="post">
<input name=doAction type="hidden" value="<%=rndStr(10)%><%=Rs("ID")%><%=rndStr(10)%>">
</form>
注意:
上面的doAction的值有了改變,每刷新一次頁(yè)面得到的值都不一樣~~

下面是ABC.asp頁(yè)面
首先取得doAction的值

doAction = Trim(Request.Form("doAction"))

下面大家可以自己加一點(diǎn)驗(yàn)證,如IsNumeric等!

然后我們來(lái)分解doAction的值

復(fù)制代碼代碼如下:

Dim LastID  
doAction = Mid(doAction,11)  
LastID = Mid(doAction,1,Len(doAction)-10) 

如果大家對(duì)Mid函數(shù)熟悉的話，上面的內(nèi)容很容易就猜到,簡(jiǎn)單吧?

下面是實(shí)際的例子:

原doAction要傳遞的ID在數(shù)據(jù)庫(kù)里（字段類型為自動(dòng)編號(hào)）的值為:34

說(shuō)明:
Mid(doAction,11)里的11為你所生成隨機(jī)字符位數(shù)+1
LastID = Mid(doAction,1,Len(doAction)-10)里的10為所指定生成的隨機(jī)字符位數(shù)!

Dim LastID
doAction = 3614354944348151287527 — 經(jīng)過(guò)偽裝后的ID值（完全可以當(dāng)數(shù)字來(lái)驗(yàn)證）
doAction = Mid(doAction,11)
LastID = Mid(doAction,1,Len(doAction)-10)
LastID = 34
我實(shí)驗(yàn)了一下,如果配合隨機(jī)生成的字母和數(shù)字一起運(yùn)用的話，那完全是可以偽成MD5類似的值!
只是條件就一個(gè),要可以指定隨機(jī)字符的位數(shù)!

哈哈，現(xiàn)在大家Response.Write輸出LastID的值看看,是不是又是數(shù)據(jù)庫(kù)里的ID啦?

這個(gè)方法可以運(yùn)用到影片參數(shù)的加密,下載等.如做了政府的公文流轉(zhuǎn)系統(tǒng),還可以用到文件上面去!

針對(duì)Request.QueryString的也是同一個(gè)道理!照葫蘆畫瓢啦...

以上是本人在編寫ASP程序中的一點(diǎn)點(diǎn)經(jīng)驗(yàn),不足之處請(qǐng)大家多多指正!
大家可以根據(jù)需要，取中間的幾位，也可以的