asp代理源码

A. 如何查看ASP源代码

asp属于动态网页，你看不到源代码的，如果你作服务器的话，你可以使用写字版打开查看，另外对于2000的服务器，黑客有个程序好象叫”白鸽”，在有漏洞的情况下可以查看asp的源代码！

B. 谁帮我编个ASP收信源码！

这个是易做的收信源码，但不是ASP！.版本 2
.支持库 pop3.程序集 窗口程序集1.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行标准输出 (, “邮件接收支持库的测试” ＋ #换行符)
标准输出 (, “邮箱登陆:” ＋ #换行符)
注册邮件接收回调函数 (&回调函数)
设置代理 ()
登陆 ()
快速浏览 ()
标准输出 (, “快速浏览完毕” ＋ #换行符)
标准输出 (, “需要详细查看各邮件吗？（Y/N）”)
.如果真 (取代码 (标准输入 (), 1) ＝ 121)
读邮件 ()
.如果真结束
标准输入 ()
返回 (0) ' 可以根据您的需要返回任意数值.子程序 设置代理
.局部变量 是否设置, 文本型
.局部变量 服务器类型, 文本型
.局部变量 服务器地址, 文本型
.局部变量 服务器端口, 文本型
.局部变量 服务器用户, 文本型
.局部变量 服务器密码, 文本型标准输出 (, “是否设置代理服务器(Y/N)” ＋ #换行符)
是否设置 ＝ 标准输入 ()
.如果真 (取代码 (是否设置, 1) ＝ 121)
标准输出 (, “1：HTTP1.1代理，2：SOCKS5代理----”)
服务器类型 ＝ 标准输入 ()
标准输出 (, “代理服务器IP地址----”)
服务器地址 ＝ 标准输入 ()
标准输出 (, “端口号----”)
服务器端口 ＝ 标准输入 ()
标准输出 (, “用户名----”)
服务器用户 ＝ 标准输入 ()
标准输出 (, “密码----”)
服务器密码 ＝ 标准输入 ()
.如果 (设置代理服务器 (到整数 (服务器类型), 服务器地址, 到数值 (服务器端口), 服务器用户, 服务器密码) ＝ 真)
标准输出 (, “设置代理服务器成功” ＋ #换行符)
.否则
标准输出 (, “设置代理服务器失败”)
标准输入 ()
结束 ()
.如果结束.如果真结束
.子程序 登陆
.局部变量 文本变量, 文本型标准输出 (, “请输入邮件服务器地址：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [1] ＝ 文本变量
标准输出 (, “请输入端口号：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [2] ＝ 文本变量
标准输出 (, “请输入用户名：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [3] ＝ 文本变量
标准输出 (, “请输入密码：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [4] ＝ 文本变量
标准输出 (, “请输入等待时间(毫秒)：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [5] ＝ 文本变量
标准输出 (, “请输入重试次数：”)
文本变量 ＝ 标准输入 (真)
登陆信息 [6] ＝ 文本变量
标准输出 (, #换行符)
连接邮件服务器 ().子程序 连接邮件服务器标准输出 (, “正在登陆邮件服务器请稍候..........”)
标准输出 (, #换行符 ＋ #换行符)
.如果真 (连接收信服务器 (登陆信息 [1], 到数值 (登陆信息 [2]), 登陆信息 [3], 登陆信息 [4], 到数值 (登陆信息 [5]), 到数值 (登陆信息 [6])) ＝ 假)
标准输出 (, “发生错误：” ＋ 取邮件错误信息 ())
标准输入 ()
结束 ()
.如果真结束
标准输出 (, “邮箱连接成功”)
读邮件 ().子程序 读邮件
.局部变量 逻辑返回, 逻辑型
.局部变量 邮件总量, 整数型
.局部变量 浏览, 文本型
.局部变量 邮件序号, 文本型
.局部变量 计次变量, 整数型逻辑返回 ＝ 获取邮件信息 (邮件总数, 邮件总量)
.如果真 (逻辑返回 ＝ 假)
标准输出 (, “获取邮件信息出错:” ＋ 取邮件错误信息 ())
标准输入 ()
结束 ().如果真结束标准输出 (, “邮件总量：” ＋ 到文本 (邮件总量) ＋ #换行符)
标准输出 (, “邮件个数：” ＋ 到文本 (邮件总数) ＋ #换行符)
重定义数组 (邮件, 假, 邮件总数)清除数组 (邮件大小)
逻辑返回 ＝ 获取邮件大小 (-1, 邮件大小, 邮件总数)
.如果真 (逻辑返回 ＝ 假)
标准输出 (, “获取每个邮件的大小出错:” ＋ 取邮件错误信息 ())
标准输入 ()
结束 ().如果真结束标准输出 (, “是否要快速浏览（Y/N） ”)
浏览 ＝ 标准输入 (真)
标准输出 (, #换行符)
标准输出 (, “正在接收邮件请稍候............”).如果 (取代码 (浏览, 1) ＝ 121)
是否快速浏览 ＝ 真
.计次循环首 (邮件总数, 计次变量)
邮件 [计次变量] ＝ 接收邮件前几行 (计次变量, 10)
.计次循环尾 ()
.否则
.计次循环首 (邮件总数, 计次变量)
邮件 [计次变量] ＝ 接收邮件 (计次变量)
.计次循环尾 ()
.如果结束标准输出 (, #换行符)
标准输出 (, #换行符)
清除数组 (邮件序号组)
.计次循环首 (邮件总数, 计次变量)
接收邮件序号 (计次变量, 邮件序号)
加入成员 (邮件序号组, 邮件序号)
.计次循环尾 ()标准输出 (, “邮件接收完毕”)
断开收信服务器 ().如果真 (是否快速浏览 ＝ 假)
邮件信息 ()
.如果真结束
.子程序 邮件信息
.局部变量 邮件次序号, 整数型标准输出 (, “共接收邮件 ” ＋ 到文本 (邮件总数) ＋ “ 个” ＋ #换行符)
标准输出 (, “要查看邮件内容请输入邮件的次序号：”)
邮件次序号 ＝ 到数值 (标准输入 (真))
.如果 (邮件次序号 ≥ 1 且 邮件次序号 ≤ 邮件总数)
取邮件 (邮件次序号)
.否则
邮件信息 ()
.如果结束
.子程序 取附件信息
.参数 附件索引数, 整数型
.局部变量 是否嵌入式, 逻辑型
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型标准输出 (, #换行符)
标准输出 (, “第 ” ＋ 到文本 (附件索引数) ＋ “ 个附件信息” ＋ #换行符)标准输出 (, “是否嵌入式:”)
是否嵌入式 ＝ 附件 [附件索引数].取是否嵌入式附件 ()
标准输出 (, 到文本 (是否嵌入式))
标准输出 (, #换行符)
.如果 (是否嵌入式 ＝ 真)
标准输出 (, “嵌入文件名:”)
标准输出 (, 附件 [附件索引数].取名称 ())
.否则
标准输出 (, “附加文件名:”)
标准输出 (, 附件 [附件索引数].取文件名 ())
.如果结束
标准输出 (, #换行符)标准输出 (, “附件大小:”)
标准输出 (, 到文本 (附件 [附件索引数].取大小 ()))
标准输出 (, #换行符)标准输出 (, “附件类型:”)
标准输出 (, 附件 [附件索引数].取类型 ())
标准输出 (, #换行符)标准输出 (, “编码方式:”)
标准输出 (, 附件 [附件索引数].取编码方式 ())
标准输出 (, #换行符)标准输出 (, “附件数据的大小:”)
标准输出 (, 到文本 (取字节集长度 (附件 [附件索引数].取数据 ())))
标准输出 (, #换行符).子程序 取邮件
.参数 邮件索引数, 整数型
.局部变量 内容, 文本型
.局部变量 计次变量, 整数型标准输出 (, “第 ” ＋ 到文本 (邮件索引数) ＋ “ 个邮件信息” ＋ #换行符)标准输出 (, “发件人名称:”)
标准输出 (, 邮件 [邮件索引数].取发件人名称 ())
标准输出 (, #换行符)标准输出 (, “主题:”)
标准输出 (, 邮件 [邮件索引数].取主题 ())
标准输出 (, #换行符)标准输出 (, “日期:”)
标准输出 (, 到文本 (邮件 [邮件索引数].取日期 ()))
标准输出 (, #换行符)标准输出 (, “发件人地址:”)
标准输出 (, 邮件 [邮件索引数].取发件人地址 ())
标准输出 (, #换行符)标准输出 (, “回复地址:”)
标准输出 (, 邮件 [邮件索引数].取回复地址 ())
标准输出 (, #换行符)标准输出 (, “邮件大小:”)
标准输出 (, 到文本 (邮件大小 [邮件索引数]))
标准输出 (, #换行符)标准输出 (, “邮件序号:”)
标准输出 (, 邮件序号组 [邮件索引数])
标准输出 (, #换行符)标准输出 (, “原始信息长度:”)
标准输出 (, 到文本 (取文本长度 (邮件 [邮件索引数].取原始信息 ())))
标准输出 (, #换行符)标准输出 (, “文本内容:”)
内容 ＝ 邮件 [邮件索引数].取文本内容 ()
标准输出 (, 内容 ＋ #换行符)标准输出 (, “保存超文本文件”)
超文本内容 (邮件索引数)
标准输出 (, #换行符)标准输出 (, “附件个数 :”)
附件个数 ＝ 邮件 [邮件索引数].取附件个数 ()
标准输出 (, 到文本 (附件个数))
标准输出 (, #换行符)
.如果真 (是否快速浏览 ＝ 假)
标准输出 (, #换行符)
附件 ＝ 邮件 [邮件索引数].取附件 ()
.计次循环首 (取数组成员数 (附件), 计次变量)
取附件信息 (计次变量)
.计次循环尾 ()
选择保存附件 (邮件索引数)
标准输出 (, #换行符)
邮件信息 ()
.如果真结束
.子程序 选择保存附件
.参数 选择附件索引, 整数型
.局部变量 附件次序号, 整数型标准输出 (, “是否需要保存附件（Y/N）”)
.如果 (取代码 (标准输入 (), 1) ＝ 121)
标准输出 (, “请输入要保存的附件次序号:”)
附件次序号 ＝ 到数值 (标准输入 (真))
.如果真 (附件次序号 ≥ 1 且 附件次序号 ≤ 附件个数)
保存附件 (附件次序号)
.如果真结束.否则
删除子程序 (选择附件索引)
.如果结束
.子程序 删除子程序
.参数 索引
.局部变量 是否删除, 文本型标准输出 (, “是否要删除该邮件（Y/N）”)
是否删除 ＝ 标准输入 (真)
.如果真 (取代码 (是否删除, 1) ＝ 121)
连接收信服务器 (登陆信息 [1], 到数值 (登陆信息 [2]), 登陆信息 [3], 登陆信息 [4], 到数值 (登陆信息 [5]), 到数值 (登陆信息 [6]))
.如果 (删除邮件 (索引) ＝ 真)
标准输出 (, “删除成功”)
.否则
标准输出 (, “删除失败”)
.如果结束.如果真结束
邮件复位 ().子程序 快速浏览
.局部变量 计次变量, 整数型.计次循环首 (取数组成员数 (邮件), 计次变量)
取邮件 (计次变量)
删除子程序 (计次变量)
标准输出 (, #换行符)
.计次循环尾 ().子程序 保存附件
.参数 保存索引, 整数型
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型.如果 (附件 [保存索引].取是否嵌入式附件 () ＝ 真)
文件名 ＝ 附件 [保存索引].取名称 ()
.否则
文件名 ＝ 附件 [保存索引].取文件名 ()
.如果结束
标准输出 (, “请输入要保存到的路径，以” ＋ #引号 ＋ “ ＼” ＋ #引号 ＋ “结束：”)
文件号 ＝ 打开文件 (标准输入 (真) ＋ 文件名, #重写, )
.如果 (插入字节集 (文件号, 附件 [保存索引].取数据 ()) ＝ 真)
标准输出 (, “保存成功”)
.否则
标准输出 (, “保存失败”)
.如果结束
关闭文件 (文件号)
标准输出 (, #换行符).子程序 邮件复位标准输出 (, #换行符)
标准输出 (, “需要恢复被删除的邮件吗？（Y/N）”)
.如果真 (取代码 (标准输入 (), ) ＝ 121)
.如果 (复位邮件 () ＝ 真)
标准输出 (, “复位成功,”)
标准输出 (, “删除的邮件被恢复”)
.否则
标准输出 (, “复位失败”)
.如果结束.如果真结束
.子程序 超文本内容
.参数 索引, 整数型
.局部变量 计次变量, 整数型
.局部变量 文件号, 整数型
.局部变量 临时文件, 文本型标准输出 (, “请输入临时浏览超文本文件的路径，以” ＋ #引号 ＋ “ ＼” ＋ #引号 ＋ “结束：”)
临时文件 ＝ 标准输入 ()
文件号 ＝ 打开文件 (临时文件 ＋ “临时浏览.html”, #重写, ) ' 创建要浏览的超文本内容的网页文件
插入文本 (文件号, 邮件 [索引].取超文本内容 ())
关闭文件 (文件号)
.计次循环首 (邮件 [索引].取附件个数 (), 计次变量)
.如果真 (附件 [计次变量].取是否嵌入式附件 ())
文件号 ＝ 打开文件 (临时文件 ＋ 附件 [计次变量].取名称 (), #重写, ) ' 创建要浏览的超文本网页的附件文件
插入字节集 (文件号, 附件 [计次变量].取数据 ())
关闭文件 (文件号)
.如果真结束.计次循环尾 ().子程序 回调函数, 逻辑型
.参数 类型, 整数型
.参数 第几封, 整数型
.参数 字节数, 整数型.判断开始 (#命令类型.验证用户名 ＝ 类型)
标准输出 (, “验证用户信息”)
.默认.判断结束
返回 (真)

C. 求ASP源代码

来这里下载多的是

http://down.chinaz.com/L/1_Lastuptime_Desc_1.asp

D. 如何查杀asp木马我admin文件夹上传后空间后就打不开，也无法上传文件，怎么办

如果它有上传漏洞，并且可以创建目录，并且支持 asp 的话，那么使用

aaaa.asp/2433.jpg 这样的路径名就可以了。

意思是创建了个以 .asp 作后缀的目录名，然后将你的马放进 这个目录里。这样就可以执行了。。但如果人家目录没有执行权限，就没办法了。

另外友情提醒：这么做，是不厚道的，嘿嘿。

E. ASP 如何写授权源码

ASP授权加密加密什么的都不可靠，一般都能破解。
如果要实现可以用xmlhttp，搜索一下用法，在A站通过xmlhttp访问B站的一个页面，并将当前A站的网址或者服务器地址一起发送，然后判断返回值（如1或0）。
B站的页面获取参数（A站网址址或服务器地址）然后查询数据库，判断存在与否输出一个值例如1或0，用于A程序判断.

F. 谁能给我提供一个asp网站的源码

你说的应该是CMS吧

科汛，风讯等等都可以啊

G. 请人修改一下asp源码

我用的是“就爱设计V6版”更改的,程序就是你提供的那个源程序：

第一步：将下载下来的压缩包解压，解后在得到的文件夹下面找到“inc”文件夹，复制到你网站的目录下；保留effects.js、lightbox.css、lightbox.js、prototype.js、scriptaculous.js这五个文件，其它的可删除。

第二步：在你显示照片的那个文件中的<head></head>区域加入如下代码：
<link rel="stylesheet" href="inc/lightbox.css" type="text/css" media="screen" />
<script src="inc/prototype.js" type="text/javascript"></script>
<script src="inc/scriptaculous.js?load=effects" type="text/javascript"></script>
<script src="inc/lightbox.js" type="text/javascript"></script>

注意上面的路径，根据自己的实际情况调整。

第三步：你图片的超链要改成如下格式：<a href="Images/2006561019522.jpg" rel="lightbox[plants]"><img src="Images/2006561019522.jpg" width="49" height="49" border="0"></a>

即<a>中，href值要为图片地址，后面还要加rel="lightbox[plants]" ,如果没有则不会达到那样的效果；

◆我将你的源码改成如下：

<%
set skinrs=conn.execute("select proct_skins from sd_skins where id="&sd_web(5)&"")
if skinrs.eof then
response.Redirect("error.asp?title="&server.URLEncode("模板参数设置错误")&"")
response.End()
else
show=skinrs(0)
webcode
response.Write(""&show&"")
end if

sub showpic(n,w,h,m)
show_pic="<table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td height='4'></td>"
show_pic=show_pic&"</tr>"
show_pic=show_pic&" </table>"
show_pic=show_pic&"<table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>"
show_pic=show_pic&" <tr>"
classid=trim(request("classid"))
if classid="" or not isnumeric(classid) then
classid=0
else
set rs1=conn.execute("select id from sd_class where followid="&classid&"")

tj="classid="&classid&" "

while not rs1.eof
tj=tj&" or classid="&rs1(0)&""
rs1.movenext
wend
end if
select case classid
case "0"
sql="select id,title,pic from sd_proct order by id asc"
case else
sql="select id,title,pic from sd_proct where "&tj&" order by id asc"
end select
set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1
if rs.eof then
show_pic=show_pic&"没有资料"
else
rs.pagesize=clng(n)
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
i=0
k=0
Do While Not rs.Eof

show_pic=show_pic&" <td><table border='0' cellspacing='2' cellpadding='0'>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&" <td colspan='2'><a href='"&rs(2)&"' rel='lightbox[plants]'>"
show_pic=show_pic&"<img src='"&rs(2)&"' alt='"&rs(1)&"' width='"&w&"' height='"&h&"' border='0' class='proct'></a></td>"
show_pic=show_pic&"</tr>"
show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td width='50%' height='30' align='left'>产品编号:<a href='showproct.asp?id="&rs(0)&"'>"&classid&"-"&rs(0)&"</a></td>"
show_pic=show_pic&"</table></td>"

i=i+1
k=k+1
if k=clng(m) then
k=0
show_pic=show_pic&"</tr><tr>"
end if
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop

show_pic=show_pic&"<tr>"
show_pic=show_pic&"<td height='30' colspan='3' align='center'>共有: "&rs.recordcount&" 信息 "
show_pic=show_pic&"<a href="&request.ServerVariables("url")&"?classid="&classid&">首页</a> "
show_pic=show_pic&"<a href="&request.ServerVariables("url")&"?page="¤tpage-1&"&classid="&classid&">上一页</a>"
show_pic=show_pic&" <a href="&request.ServerVariables("url")&"?page="¤tpage+1&"&classid="&classid&">下一页</a>"
show_pic=show_pic&" <a href="&request.ServerVariables("url")&"?page="&rs.pagecount&"&classid="&classid&">尾页"
show_pic=show_pic&"</a></td>"
show_pic=show_pic&"</tr>"
end if
show_pic=show_pic&"</table>"
end sub
%>

H. 在哪能下到ASP源代码

兄弟，这里有数千个ASP源码，有很多留言本和论坛的源码，你可以去看看：
http://code.knowsky.com/down.asp?typeid=1

I. 请问ASP网站源码怎样授权给别人使用。

方法有以下常用的几种
1、加密ASP源代码，你给对方唯一的授权
2、使用DLL组件方式，将核心运算或方法放在DLL中，然后在DLL增加授权方法：读取CPU和网卡MAC地址，然后再生成唯一授权码。。。
3、在线验证对方是否授权