Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨



 
ASPÉú³É¾²Ì¬ÍøÒ³µÄ¶àÖÖ·½·¨
ÊÕ²Ø



ʹÓÃFSOÉú³É
<%
'ʹÓÃFSOÉú³É
Set fs = CreateObject("Scripting.FileSystemObject")
NewFile=Server.MapPath("ud03/fso.htm")
'н¨Ò»Îļþfso.htm,Èô¸ÃÎļþÒÑ´æÔÚ£¬Ôò¸²¸ÇËü
Set a = fs.CreateTextFile(NewFile, True)
Response.Write"ÐÂÎļþÒѽ¨Á¢£¡"
a.close
File=Server.MapPath("ud03/fso.htm")
Set txt=fs.OpenTextFile(File,8,True) '´ò¿ª³É¿ÉÒÔÔÚ½áβдÈëÊý¾ÝµÄÎļþ
data1="Õâ¾ä»°ÊÇʹÓÃWriteLine·½·¨Ð´ÈëµÄ¡££¡<Br>"
txt.WriteLine data1
data2="Õâ¾ä»°ÊÇʹÓÃWrite·½·¨Ð´ÈëµÄ¡£<Br>"
txt.Write data2
txt.Close
%>
ʹÓÃXMLHTTPÉú³É
<%
'ʹÓÃXMLHTTPÉú³É
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'°ÑÏÂÃæµÄµØÖ·Ìæ»»³ÉÄãµÄÊ×Ò³µÄÎļþµØÖ·,Ò»¶¨ÒªÓÃhttp://¿ªÍ·µÄ¾ø¶Ô·¾¶,²»ÄÜдÏà¶Ô·¾¶
xml.Open "GET", "http://www.kinoko.name/ud03/
", False
xml.Send
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Set xml = Nothing
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile(server.MapPath("ud03.htm"), True) 'Éú³ÉµÄhtmlµÄÎļþÃû
MyFile.WriteLine(BodyText)
MyFile.Close
'ʹÓÃAdodb.Stream´¦Àí¶þ½øÖÆÊý¾Ý
Function BytesToBstr(strBody,CodeBase)
   dim objStream
   set objStream = Server.CreateObject("Adodb.Stream")
   objStream.Type = 1
   objStream.Mode =3
   objStream.Open
   objStream.Write strBody
   objStream.Position = 0
   objStream.Type = 2
   objStream.Charset = CodeBase
   BytesToBstr = objStream.ReadText
   objStream.Close
   set objStream = nothing
End Function
%>
ʹÓÃXMLHTTPÅúÁ¿Éú³É
<%
'ʹÓÃXMLHTTPÅúÁ¿Éú³É
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_


Ïà¹ØÎĵµ£º

ASPÑ­»·Êä³ö±í¸ñÐÐtrµÄ·½·¨

  <%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ­»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ­»·µÄÄÚÈÝ
  <%if (i mod 1 = 0) then ......

aspÁ¬½ÓaccessÊý¾ÝÀý×Ó

<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......

ASP·µ»Ø´íÎóÒ³ºÍhttp״̬²éѯ¹¤¾ß

¡¡IISĬÈϵĴíÎóÒ³ÊǺܲ»ÓѺõģ¬ºÜ¶àÈË¿´µ½Ä¬ÈϵĴíÎóҳʱ¶¼»á˵£ºÍøÕ¾´ò²»¿ªÁË£¡°×°×ËðʧÁËÕⲿ·ÖÁ÷Á¿¡£¶øÈç¹û´íÎóÒ³Ö±½ÓÌøתµ½Ê×Ò³ÓÖ¶ÔËÑË÷ÒýÇæºÜ²»ÓѺ㬸㲻ºÃÊ×Ò³»¹»á±»·âµô¡£ËùÒÔ¸ù¾ÝÇé¿ö£¬ÓÐÁ½¸ö·½·¨½â¾öÕâ¸öÎÊÌ⣺
¡¡¡¡Èç¹ûÊDz©¿ÍµÈÄÚÈÝÐ͵ÄÍøÕ¾£¬¿ÉÒÔ·µ»ØÒ»¸ö´øÓÐ404´íÎóµÄËÑË÷¿òÈ÷ÿÍËÑË÷£¬ÈôÊǵç×ÓÉÌÎñÐÍÍøÕ¾ ......

aspÌí¼ÓÊý¾Ý¼Ç¼дÈë,ɾ³ý,²é¿´ÊµÁÐ

<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('ÄúºÃ£¬²»ÄÜΪ¿Õ
');location.href='index.html';</script>")
end if
%>
<%
di ......

ASP.NET Cache_µÚËÄƪ_ÈçºÎÒƳýASP.NET»º´æÖеĻº´æ

+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔ­ÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ­¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔʾÒƳý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ­´æÔÚʱ£¬ÄÇô£¬Ô­À´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ