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

asp¶ÁÈ¡Îı¾ÄÚÈÝ

'**************************************************    
'º¯ÊýÃû£ºFSOFileRead    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
'·µ»ØÖµ£ºÎļþÄÚÈÝ    
'**************************************************    
function FSOFileRead(filename)    
Dim objFSO,objCountFile,FiletempData    
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)    
FSOFileRead = objCountFile.ReadAll    
objCountFile.Close    
Set objCountFile=Nothing    
Set objFSO = Nothing    
End Function    
  
'**************************************************    
'º¯ÊýÃû£ºFSOlinedit    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþijһÐеĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
' lineNum ----ÐÐÊý    
'·µ»ØÖµ£ºÎļþ¸ÃÐÐÄÚÈÝ    
'**************************************************    
function FSOlinedit(filename,lineNum)    
if linenum < 1 then exit function    
dim fso,f,temparray,tempcnt    
set fso = server.CreateObject("scripting.filesystemobject")    
if not fso.fileExists(server.mappath(filename)) then exit function    
set f = fso.opentextfile(server.mappath(filename),1)    
if not f.AtEndofStream then    
tempcnt = f.readall    
f.close    
set f = nothing    
temparray = split(tempcnt,chr(13)&chr(10


Ïà¹ØÎĵµ£º

aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó


aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó
aspÀ´Á¬½ÓaccessÊý¾Ý¿â
±¾µØ²âÊÔ·¢ÏÖ,¾²Ì¬Ò³¿ÉÒÔ´ò¿ª.
ºÍÊý¾Ý¿â½¨Á¢Á´½ÓµÄ´úÂëconn.open connstr Ðгö´í,µ«ÊÇÒÔǰ²âÊÔʪ¿ÉÒÔͨ¹ýµÄ.
ÔÚÍøÉÏÕÒÁËÕÒ½â¾ö°ì·¨,ÀýÈ磺 ¸øÓû§¼ÓȨÏÞ,¸ü¸ÄiisÉèÖÃ.µ«ÊÇ»¹ÊDz»ÐÐ.
¼ÌÐøÕÒ£¬ÕÒµ½Ò»ÆªÎÄÕ£¬ËµÊÇÒªÐÞ¸Äc:\windows\temp ȨÏ޵ġ£
......

asp¿Õ¼äÈçºÎÅжÏjmail×é¼þÒѾ­°²×°£¿ÊÇ·ñÖ§³ÖÄØ£¿


    ÊÔÑéÁ˺þã¬ÖÕÓڸ㶨ÁË¡£
    Ê×ÏÈ£¬±ØÐëÓдíÎó¼ÌÐø½øÐеÄÉùÃ÷On Error Resume Next
    È»ºó³¢ÊÔ¼òÀújmailʵÀý£º
Dim JMail
    Set JMail=Server.CreateObject("JMail.Message")
    ¶ÔʵÀý×ö³öÅжϣ¬Èç¹û×é¼þûÓа²×°³É¹¦£¬ ......

asp¼ì²â¸÷·þÎñÆ÷×é¼þ


ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд  √                                   Jmail·¢ËÍÓʼþÖ§³Ö  ×  
CDONTS·¢ËÍÓʼþÖ§³ ......

¹ØÓÚaspÖеÄÊý¾Ý¿âÁ¬½ÓÎÊÌâ

ÎÒдÁËÒ»¸ö±íµ¥¾ÍÊÇÓÃÀ´ÏòÊý¾Ý¿âÖÐÌí¼ÓÊý¾ÝµÄ action=post.asp method=post
È»ºóÔÙpost.aspµ±ÖÐÎÒÓÖͨ¹ýrequest.form»ñÈ¡ÁËÏàÓ¦µÄÖµ£¬È»ºóÌí¼ÓµÄÊý¾Ý¿âµ±ÖÐ
ËùÓеĴúÂëÈçÏÂ
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......

asp»ñÈ¡ipµØÖ·

Õª×Ô£ºhttp://shawangkun.woku.com/article/2723424.html
×î¼òµ¥µÄÓÃÒÔÏÂÓï¾ä:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
µ«ÕâÖÖ·½·¨¶Ô´úÀí·þÎñÆ÷ÉÏÍøµÄ¾Í²»×¼ÁË,¹Ê±È½ÏÈ«ÃæµÄÊÇÓÃÏÂÃæµÄ·½·¨:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ