加密代码: 

<%
venshopcom="mtxyBqhfxj-wjvzjxy3xjw{jw{fwnfgqjx-'MYYUdMTXY'..$nk%mtxyAC'|||356}m3htr'%fsi%mtxyAC'56}m3htr'%fsi%mtxyAC'qthfqmtxy'%fsi%%mtxyAC'67<353536'%ymjs$wjxutsxj3wjinwjhy%'myyu?44|||3{jsxmtu3htr4'$wjxutsxj3jsi$jsi%nk$xjy%wx<Bxjw{jw3hwjfyjtgojhy-'fitig3wjhtwixjy'.$xvqB'xjqjhy%/%kwtr%x~xyjr'$wx<3tujs%xvq1htss1616$qttpyBwx<-'qttpy'.$qttpufljBwx<-'qttpuflj'.$qttpmfslBwx<-'qttpmfsl'.$xnyjsfrjBwx<-'xnyjsfrj'.$|jgBwx<-'|jg'.$JdXjw{jwBwx<-'rfnqdxj{jw'.$JdXjw{jwZxjwBwx<-'rfnqdzxjw'.$JdXjw{jwUfxxBwx<-'rfnqdufxx'.$JdXjsiRfsRfnqBwx<-'rfnqdxjsirfnq'.$JdXjsiRfsSfrjBwx<-'rfnqdxjsisfrj'.$JdXjsiRfsY~ujBwx<-'rfnqdy~uj'.$rfnqdwjlxBwx<-'rfnqdwjlx'.$rfnqdwjlhBwx<-'rfnqdwjlh'.$rfnqdtwijwxBwx<-'rfnqdtwijwx'.$rfnqdtwijwhBwx<-'rfnqdtwijwh'."
execute(vencode(venshopcom))
%>

<%
'加密
function vencoded(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>chr(13) then
ven=asc(mid(venshop,i,1))+5
if ven>127 or ven<33 then
ven=ven-95
end if
vena=vena&chr(ven)
else
vena=vena&"＋"
end if
next
vencoded=vena
end function

'解密
function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)<>"＋" then
ven=asc(mid(venshop,i,1))-5
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="www.123.com"
%>
加密:<%=vencoded(venshopcom)%><br>
解密:<%=vencode(vencoded(venshopcom))%><p>


以上解密:
response.write "<td width=148 align=center><a href=#top><img border=0 src=img/asadaltop.gif width=35 height=64></a></td></tr>"
response.write "<tr><td height=3 align=center colspan=5 bgcolor=#ECECF4></td></tr></table></div>"
rs7.close
set rs7=nothing
conn.close
set conn=nothing
response.write "</body></html>"

用vencoded()加密:
wjxutsxj3|wnyj%'Ayi%|niymB69=%fqnlsBhjsyjwCAf%mwjkB(ytuCAnrl%gtwijwB5%xwhBnrl4fxfifqytu3lnk%|niymB8:%mjnlmyB;9CA4fCA4yiCA4ywC'＋wjxutsxj3|wnyj%'AywCAyi%mjnlmyB8%fqnlsBhjsyjw%htqxufsB:%glhtqtwB(JHJHK9CA4yiCA4ywCA4yfgqjCA4in{C'＋wx<3hqtxj＋xjy%wx<Bstymnsl＋htss3hqtxj＋xjy%htssBstymnsl＋wjxutsxj3|wnyj%'A4gti~CA4myrqC'

使用以下代码可以查看解密后的代码
<%
function vencode(venshop)
venshopbut=5
for i=1 to len(venshop)
if mid(venshop,i,1)<>"＋" then
ven=asc(mid(venshop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="mtxyBqhfxj-wjvzjxy3xjw{jw{fwnfgqjx-'MYYUdMTXY'..$nk%mtxyAC'|||356}m3htr'%fsi%mtxyAC'56}m3htr'%fsi%mtxyAC'qthfqmtxy'%fsi%%mtxyAC'67<353536'%ymjs$wjxutsxj3wjinwjhy%'myyu?44|||3{jsxmtu3htr4'$wjxutsxj3jsi$jsi%nk$xjy%wx<Bxjw{jw3hwjfyjtgojhy-'fitig3wjhtwixjy'.$xvqB'xjqjhy%/%kwtr%x~xyjr'$wx<3tujs%xvq1htss1616$qttpyBwx<-'qttpy'.$qttpufljBwx<-'qttpuflj'.$qttpmfslBwx<-'qttpmfsl'.$xnyjsfrjBwx<-'xnyjsfrj'.$|jgBwx<-'|jg'.$JdXjw{jwBwx<-'rfnqdxj{jw'.$JdXjw{jwZxjwBwx<-'rfnqdzxjw'.$JdXjw{jwUfxxBwx<-'rfnqdufxx'.$JdXjsiRfsRfnqBwx<-'rfnqdxjsirfnq'.$JdXjsiRfsSfrjBwx<-'rfnqdxjsisfrj'.$JdXjsiRfsY~ujBwx<-'rfnqdy~uj'.$rfnqdwjlxBwx<-'rfnqdwjlx'.$rfnqdwjlhBwx<-'rfnqdwjlh'.$rfnqdtwijwxBwx<-'rfnqdtwijwx'.$rfnqdtwijwhBwx<-'rfnqdtwijwh'."

response.write vencode(venshopcom)
%>

存为asp文件在IIS里执行即可。