[讨论]关于function的问题

willam 发布于 2007-10-08 09:30， 436 次点击

function的问题
其中红字部分，，，我怎么才能不用call来调用了，直截用po=change(h) y=change(ok)
<%
'一个16位字符串3位8位互换程序
dim ok,a
ok="1234567812345678"
h="abcdefghijlmnopq"

function change(pass)
a=mid(pass,3,1)
b=mid(pass,8,1)
c=left(pass,2)
d=mid(pass,4,4)
f=right(pass,8)
pass=c+b+d+a+f
end function
%>
<%call change(ok)
y=ok
call change(h)
po=h
%>
<%=y%>
<br>
<%=po%>

4 回复

zsf20062007-10-08 10:25

稍做修改：
<%
'一个16位字符串3位8位互换程序
dim ok,a
ok="1234567812345678"
h="abcdefghijlmnopq"

function change(pass)
a=mid(pass,3,1)
b=mid(pass,8,1)
c=left(pass,2)
d=mid(pass,4,4)
f=right(pass,8)
pass=c+b+d+a+f
response.write pass&"<br>"
end function

change(ok)

change(h)
%>

willam2007-10-08 11:25

谢谢你的回复
我要的不是这个,,其实我这个小程度是做16位MD5密码再加密的,,就是把3跟8位对换一下来,,
其他人就是看到MD5字符串时,,,反译过来也是错的,所以要用a=change(md5(pass)),,如何才能不用 call change才是这个
小程序成功的关键

yms1232007-10-08 13:51

VBScript里用函数名称代替Return关键字
<%
'一个16位字符串3位8位互换程序
dim ok,a
ok="1234567812345678"
h="abcdefghijlmnopq"

function change(pass)
a=mid(pass,3,1)
b=mid(pass,8,1)
c=left(pass,2)
d=mid(pass,4,4)
f=right(pass,8)
change=c+b+d+a+f
end function
%>
<%
y=change(ok)
po=change(h)
%>
<%=y%>
<br>
<%=po%>

willam2007-10-08 14:52

谢谢版主,,,谢谢yms123,,真的一言惊醒梦中人哦,,
这个才是我要的结果!