<%
if session("user_name")="" then
response.write ""
end if
%>
<%
call connlink
name=session("user_name")
set rs1=server.createobject("adodb.recordset")
sql1="select * from user_info where user_name='"&name&"'"
rs1.open sql1,conn,1,3
if rs1("power")<>1 then
response.write ""
end if
%>
<%
'sql server 資料庫的備份與恢復!
dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act
sqlserver = "(local)" 'sql伺服器
sqlname = "sa" '使用者名稱
sqlpassword = "635207" '密碼
sqllogintimeout = 15 '登陸超時
databasename = trim(request("databasename"))
bak_file = trim(request("bak_file"))
bak_file = replace(bak_file,"$1",databasename)
act = lcase(request("act"))
if databasename = "" then
response.write "input database name"
else
if act = "backup" then
set srv=server.createobject("sqldmo.sqlserver")
srv.logintimeout = sqllogintimeout
srv.connect sqlserver,sqlname, sqlpassword
set bak = server.createobject("sqldmo.backup")
bak.database=databasename
bak.devices=files
bak.files=bak_file
bak.sqlbackup srv
if err.number>0 then
response.write err.number&"
"response.write err.description&""
end if
response.write "備份成功!"
elseif act = "restore" then
'恢復時要在沒有使用資料庫時進行!
set srv=server.createobject("sqldmo.sqlserver")
srv.logintimeout = sqllogintimeout
srv.connect sqlserver,sqlname, sqlpassword
set rest=server.createobject("sqldmo.restore")
rest.action=0 ' full db restore
rest.database=databasename
rest.devices=files
rest.files=bak_file
rest.replacedatabase=true 'force restore over existing database
if err.number>0 then
response.write err.number&"
"response.write err.description&""
end if
rest.sqlrestore srv
response.write "恢復成功!"
else
response.write "沒有選擇操作"
end if
end if
%>
如何利用ASP實現郵箱訪問
您在訪問 時是否會在有些頁面上見到這種功能 您在可以訪問此 的同時,還可以檢視您免費郵箱中是否有新郵件。這個功能是不是讓您覺得很心動 很神秘呢?下面,我就用asp來舉個例子讓您知道是如何實現這一功能的。首先你可以去一些提供免費郵件服務的站點,申請乙個賬號然後登入。在開啟郵箱時,請您注意位址列中的內容...
利用ASP上傳漏洞得到webshell實戰
2004年網路安全屆的經典漏洞!前段時間被上傳漏洞和asp木馬鬧得沸沸揚揚,狗狗他們的 被黑了一次又一次 所以開始關心上傳漏洞方面的網路安全問題,昨天終於試驗了整個流程 上傳漏洞.href http www.skyhe.com blog bloget home review.asp?id 242 原...
利用Visual Basic把ASP編寫成DLL
這篇文章主要是為想將自己的asp水平提高的人寫的 把asp 變成元件,開發者不僅是加快了asp的速度,而且也能保護自己的 這篇文章寫出來,也是為了給想開發元件上一堂入門課 下面,我們會來編寫乙個非常簡單的元件,重點是知道怎樣開發dll元件,而不是其複雜的 這些都要靠你們自己以後的努力了.伺服器端元件...