asp高手来看下这段解密函数！
1，这是段解密数字字符串的函数，请高手逆向写下数字字符串的对应加密函数，学习使用，本人愚昧，只能看懂，但不会写。
VBScript code:
Public Function DeCode(x)
x=replace(x,"%","")
For i=1 To len(x)
If asc(mid(x,i,1))>=72 Then
x=replace(x,mid(x,i,1),"0")
End If
Next
For i=1 To len(x) Step 4
decode=decode& chr(int("&H" & mid(x,i,4)))
Next
End Function
要是觉得简单，我在贴上一段难的，考考大家。下面是加密的函数，那位高手能写出对应解密的。
VBScript code:
Function Encode(strPass)
Dim i, theStr, strTmp
For i = 1 To Len(strPass)
strTmp = Asc(Mid(strPass, i, 1))
theStr = theStr & Abs(strTmp)
Next
strPass = theStr
theStr = ""
Do While Len(strPass) > 16
strPass = JoinCutStr(strPass)
Loop
For i = 1 To Len(strPass)
strTmp = CInt(Mid(strPass, i, 1))
strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)
theStr = theStr & strTmp
Next
Encode = theStr
End Function
JoinCutStr是什么?
相关问答：
我们有一个网站模板，www.c111.com.cn,希望修改一些地方：
1）点击左侧“服务品牌”的其中一个小分类，如“足球”，界面的右侧就出现如www.c111.com.cn/1.jpg，点击1.jpg上方的其中一个品牌logo，下面就出现相关的� ......
最近我通过学习，感觉自己学的还可以了，想做一网站，但是一直都找不到题材，不知道做什么，希望各位给我点意见，如果有需求文档就更好了！希望大家给我点意见，谢谢！
先做个企业网站吧，我感觉一个人做网站不适宜 ......
我帮学校做了一个站．
在校园网的情况下，能够登陆成功，后台帐号都能通过，进入后台
但是在外网ＡＤ的情况下，能够登陆后台的页面，页面是ＡＳＰ文件．
但是输入帐号和密码的时候，网页运行很久都 ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......
有谁能给讲讲，怎么做吗？
谢谢啦！
甘特图 是啥？
解题思路.看一下进度条的显示..
其实你就弄一堆table 每个table的宽度不同.底色不同即可
当然用div控制位置更好
你弄100个table根据进度其中前20个分给� ......
