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、在線驗證對方是否授權