在ASP中,如何把‘4F60597D’转为‘你好’?
4F60597D
re:
加密后的?
response.write chrw(&H4F60) & chrw(&H597D)
HTML code:
<%
Dim str,s,strlen
s=""
str="4F60597D"
strlen=Len(str)
Do While str<>""
s= s & "%u" & Left(str,4)
str=Mid(str,5,strlen)
Loop
response.write unescape(s)
%>
VBScript code:
Function DecodeStr(s)
With New RegExp
.Pattern = "[\da-fA-F]{4}"
.Global = True
DecodeStr = unescape(.Replace(s, "%u$&"))
End With
End Function
WScript.Echo DecodeStr("4F60597DFF015F889AD851748BA48BC64F603002")
有没有一个function可以直接实现?
晕,直接下一个函数即可
VBScript code:
Function DecodeStr(s)
With New RegExp
.Pattern = "[\da-fA-F]{4}"
.Global = True
DecodeStr = unescape(.Replace(s, "%u$&"))
End With
End Function
这个不是很好的一个函数吗?
希望把三楼的用一个函数实现
引用
相关问答:
http://www.zgjhjy.com/Test/PrimaryTest/Index.aspx 就是类似以上的在线测试系统,需要有一个后台的,语言是asp的,数据库是access的,还需要能在后台对信息进行添删改查的。谢谢各位了。。。 程序真的很多,不知 ......
我想打印数据库里面读取出来的多条数据内容,实现批量打印 先导入excel或者word,然后在打印 或者购买web打印控件 使用acitvex打印。如果不需要选择属性,设置属性,就不需要商业的了。 <style media= ......
本人不会asp,报错了,请大家帮忙看看。 代码如下: <% dim keyword_Name,keyword_YJ,keyword_RQ if rs("QS_PASS_1_name")<>"0,0" then keyword_Name=split(rs("QS_ ......
A页面 <table width="200" border="1"> <tr> <td>1</td> <td>3</td> <td><!--#include/top.html#-- ......
asp虚拟主机实现伪静态的方法: 1、 重写url参数 Step1: 建立前台文件index.asp,修改url参数形式。由于读取数据库中的记录不是专题的重点,故直接给出: <!--#include file="config.asp" --> &l ......