<%@ LANGUAGE = VBScript.Encode %>

love4u 2002-01-14 08:57:29

我看到一个asp源程序，但是脚本语言这样指定了：
<%@ LANGUAGE = VBScript.Encode %>
它下面的代码都是些乱马，看不明白，就像这样：
nRq.kD+~~,JP@!C,t.+6xEgs('k[wmoxFZ!T!Z!Tv@*@!ksLP(WD9n.'E!EPdD^xEkhoJWkM/Omalon TkWB@*首页@!Jl@*Lx(/wpP@!CP4Dn0{BrU9+6M lkwg^8xxLwmon'E'alL+8q[rB@*@!b:o~8KD[+MxE!v,/Mm'EksLz +A{M+W./tcLk6B@*刷新LU8/aiLx8/2ILx8/aIJ,P~~,@#@&]nkwGxknc.bYPP,J@!CP4Dn0{B88klN9

怎么才能看到他原来的编码呢？？？？

...全文

199 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

love4u 2002-01-14

打赏
举报

回复

多谢各位

love4u 2002-01-14

打赏
举报

回复

beyond_xiruo(希偌)　
多谢，多谢，我搞了一下，基本上没什么问题，但还要自己改改得啦，
呵呵

希偌 2002-01-14

打赏
举报

回复

http://www.hotwater.f2s.com/pass.zip

cpplus 2002-01-14

打赏
举报

回复

在这里搜索一下“加密”

你会有收获的~

Naola2001 2002-01-14

打赏
举报

回复

这是微软为保护源码对程序做的加密编码，想破解，大概可以吧，不过我想不是很容易的事。

尊重知识产权，别人不想让你看，你就别看吧。

希偌 2002-01-14

打赏
举报

回复

下载一个反编译器！www.suifei.com上有解码程序

julyclyde 2002-01-14

打赏
举报

回复

www.suifei.com

AspVBScript.Encode

asp加密技术.txt，通俗易懂，自己边学边练，并且试过

asp论坛系统源代码，有模板和实例 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conndb2_STRING MM_editCmd.CommandText = "INSERT INTO board (boardname, banzhu, content) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("boardname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("banzhu")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("content")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "oneedit.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> 版块管理

<% If session("AdminUID")="" or session("Admindj")<>"0" Then %> <% Response.Write "
" & "本页面必须管理员登录后，才能进行管理操作。" %> <% Else %>

选择要进行的版块管理任务

返回版块管理

<% End If %>

ASP 编程中 20 个非常有用的例子 .doc

ASP编程中20个非常有用的例子 ASP例子 20个ASP很有用的程序。

28,409

社区成员

356,968

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章