asp Éú³É¾²Ì¬
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" Ö÷Ŀ¼
aa=Request.Servervariables("url") 'ÐéÄâĿ¼
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.htm",Do_Url)
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>
Ïà¹ØÎĵµ£º
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--¼ÙÉèÄãÏëÈÃÉú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å
filename = Server.MapPath("users.xls")
'--Èç¹ûÔÀ´µÄEXCELÎļþ´æÔڵĻ°É¾³ýËü
if fs.FileExists(filename) then ......
public static void SetTreeNode(System.Web.UI.WebControls.TreeView treeRolePopedom, string rolecode,out string errMsg)
{
int k = 0;
& ......
½ñÌìͬѧװÁËÒ»¸öxampp.À´Ê¹ÓÃFTPºÍMysql. µ«ÊÇËûÊÇʹÓÃASP.netÀ´½øÐÐÍøÒ³¿ª·¢µÄ,È»ºóÓÖ²»ÏëÁíÍâ×°IIS,½ÐÎÒ°ïËûŪ. ÉÏÍøGoogleÒ»ÏÂ,·¢ÏÖ¹úÍâÓÐÈË·¢¹ý½Ì³ÌÁË,²»¹ýÊÇÓ¢ÎĵÄ.ÕûÀíÁËһϺÍ×Ô¼ºÅäÖÃÍê³ÉµÄÐĵÃÖØз¢³öÀ´. Ê×ÏÈ,ÄãÒªÉÏxamppµÄ¹ÙÍøÉÏÏÂÔØ°²×°xampp,°²×°¹ý³Ì¹ÙÍøÓÐÏêϸµÄ˵Ã÷. °²×°Íê³Éºó,È·¶¨ÄãµÄxamppÄܳɹ¦Ô ......
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'Ëæ»úÅÅÐò
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......