广场 › 『网站建设』 › 寻求ASP简单破解

bopp 发表于 2007 年 9 月 4 日 18:50:29

寻求ASP简单破解

程序大小：800KB

下载地址http://www.qz368.cn/download/qz368cn.rar

演示http://xsd.qz368.cn/

   我只需要:破<%'定义操作动作模块
sub prodclose()
if ProdNum="" or isnull(ProdNum) then
                Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
        else
                response.write "<script language='javascript'>window.alert('如果你要设置产品离线并商业使用，请到官方网站（www.qz368.cn）上留言或咨询！');window.location='admin_prod.asp';</script>"
                response.end       
        end if
end sub

sub prodopen()
        if ProdNum="" or isnull(ProdNum) then
                Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
        else
                                response.write "<script language='javascript'>window.alert('如果你要设置在线显示并商业使用，请到官方网站（www.qz368.cn）上留言或咨询！');window.location='admin_prod.asp';</script>"
                response.end                       
        end if
end sub

'处理数组函数
function checkreal(v)
dim w
if not isnull(v) then
        w=replace(v,", ",",")
        'w=replace(w," ","")
        checkreal=w
end if
end function

sub prodadd()
        if request("add") ="ok" then       
                response.write "<script language='javascript'>window.alert('如果你要添加新产品并商业使用，请到官方网站（www.qz368.cn）上留言或咨询！');window.location='admin_prod.asp';</script>"
          response.end
        else
LarCode=request("LarCode")
%>


谢谢~~~

bopp 发表于 2007 年 9 月 4 日 22:04:28

仍然在线等~~````````````````:L

pengxing 发表于 2007 年 9 月 4 日 22:20:07

如果dll了基本没办法破解.
如果没dll那和开源没区别...

bopp 发表于 2007 年 9 月 4 日 23:09:06

我新手......不懂啊!能帮忙看看不?:L

ku8tu 发表于 2007 年 9 月 6 日 11:38:51

没有玩这种,有空玩玩.....................

查看完整版本: 寻求ASP简单破解