aspµ¥Ò³Éú³É¾²Ì¬Ò³
½ñÌìÔÚÍøÉÏÕÒÁ˺þùØÓÚASPÉú³É¾²Ì¬Ò³µÄ´úÂë ×î¶àµÄ¾ÍÊÇ FSO·½·¨£¬Ä£°å·½·¨£¬µ«²»ÖªµÀ£¬ÎÒ°Ñ´úÂëÄÃÀ´Ö®ºó¶¼²»ºÃÓ㬾ÍÊÇÌṩÏÂÔØµÄѹËõ°üÀïÃæÐ´ºÃµÄÎÒÔËÐж¼ÊÇÓдíÎ󡣡£
²»¹ý»ÆÌì²»¸ºÓÐÐÄÈË£¬ÎÒÖÕÓÚÕÒµ½Ò»¸öµ¥Ò³Éú³É¾²Ì¬µÄ·½·¨£¬ÄóöÀ´¸ø´ó¼Ò·ÖÏí
<!-- ======================== Éú³É¾²Ì¬·½·¨ ====================== -->
<%
Function GetPage(url)
'»ñµÃÎļþÄÚÈÝ
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
on error resume next
Url=" http://www.ent-wangchong.cn/index.asp"'Òª¶ÁÈ¡µÄÒ³ÃæµØÖ·
response.write "¿ªÊ¼¸üÐÂÊ×Ò³..."
wstr = GetPage(Url)
'response.write(wstr)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'Òª´æ·ÅµÄÒ³ÃæµØÖ·
dizhi=server.MapPath("index.html")
If (fs.FileExists(dizhi)) Then
fs.DeleteFile(dizhi)
End If
Set CrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
response.write "¸üÐÂÍê³É£¡"
response.End()
%>
±£´æÎªasp¾ÍÐУ¬ÐèÒªÉú³É£¬Ö´ÐÐÒ»ÏÂÕâ¸öÎļþ£¡
Ïà¹ØÎĵµ£º
ʹÓñäÁ¿ºÍ³£Á¿
±äÁ¿ÊǼÆËã»úÄÚ´æÖÐÒÑÃüÃûµÄ´æ´¢Î»Öã¬ÆäÖаüº¬ÁËÊý×Ö»ò×Ö·û´®µÈÊý¾Ý¡£±äÁ¿°üº¬µÄÐÅÏ¢±»³ÆÎª±äÁ¿µÄÖµ¡£±äÁ¿Ê¹ÓÃÓû§±ãÓÚÀí½â½Å±¾²Ù×÷µÄÃû³ÆÎªÓû§ÌṩÁËÒ»ÖÖ´æ´¢¡¢¼ìË÷ºÍ²Ù×÷Êý¾ÝµÄ;¾¶¡£
ÉùÃ÷ºÍÃüÃû±äÁ¿
ÃüÃûºÍÉùÃ÷±äÁ¿Ó¦×ñѽű¾ÓïÑԵĹæÔò¼°Ö¸µ¼¡£¼´Ê¹ÔÚʹÓñäÁ¿Ç°²»ÐèҪȥÉùÃ÷±äÁ¿£¬Ò²Ó¦Ñ ......
´´½¨Ò»¸ö¼òµ¥µÄASPÒ³Ãæ
ÔÚ·þÎñÆ÷¶Ë±àдµÄÎļþ index.asp £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="JSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"&g ......
°ÑFCKeditorǶÈëµ½ASPµ±ÖÐÓÃÀ´´æÈ¡Êý¾ÝºÍÉÏ´«Îļþʱ³öÏÖÁËÂÒÂëÎÊÌâ£¬ÍøÉϲéÁËϲÅÖªµÀ×Ô¼º×öASPÊÇgb2312µÄ±àÂ룬¶øfckeditorĬÈϵıàÂëÊÇutf-8,Òò´Ë³öÏÖÁËÂÒÂëÎÊÌâ¡£
ÍøÉÏÕÒÁËһЩһЩ½â¾ö°ì·¨£¬×îÖÕÓÐÓõÄÄÃÀ´°É¡£ÔÚFCKeditor/editor/filemanager/connector/aspĿ¼ÏÂÓÐÁ½¸ö ......
Ò»¡¢Ä¾ÂíÉú³É
aspľÂí´úÂë¼ÓÃÜ£¬Í¼Æ¬ºÏ²¢£¬Îļþʱ¼äÐ޸쬻¹ÓÐÒªÃüµÄϵͳ©¶´ÀûÓÃ
ͼƬºÍľÂíºÏ²¢ÃüÁ
copy 1.gif /b + asp.asp /a asp.gif
¶þ¡¢Ä¾ÂíÉÏ´«
Èç¹ûºǫ́ûÓÐÀàËÆÊý¾Ý¿â±¸·Ý¹¦ÄÜ£¬¿ÉÒÔÉú³ÉÐÂÎļþ£¬»òÕßÖ±½ÓÐÞ¸ÄÎļþ¡£ÄÇôºÜÄÑÖ±½ÓÈÃľÂíÔËÐУ¬²»¹ý»¹ÊÇÓÐһЩ·½·¨£¬¿ÉÒÔ¿¼ÂÇ¡£
1¡¢Èç¹ ......
±äÁ¿ÉêÃ÷£¬ÃüÃû¹æÔòÓëÔËËã·û
1£¬ÓÃÈýÖÖÓï¾äÀ´ÉùÃ÷±äÁ¿£ºdim £¬public Óë private £¬±È½Ï³£ÓõϹÊÇ dim ¡£
È磺<% dim a %> £»<% dim a , b , c %>
2£¬ÃüÃû¹æÔò£º
<1> ±äÁ¿µÄµÚÒ»¸ö×Ö·û±ØÐëÊÇ×Öĸ£¬Êý×ֺͷûºÅ¶¼²»ÐС£
<2> ²»ÄÜǶÈë¾äµã¡£
<3> ³¤¶È²»Äܳ¬¹ý255¸ö×Ö·û¡£
<4> ......