Home>Network programming tutorial>ASP tutorial

Summary of commonly used source code of ASP (Part 2)

Author：Eve Cole Update Time：2025-03-19 01:48:02

This article will share with you some source code that is often used in ASP programming. Suitable for beginners to read. I hope it will be helpful to you, let’s take a look together!

ASP is the abbreviation of Active Server Page, meaning dynamic server page. ASP is an application developed by Microsoft to replace CGI scripting programs. It can interact with databases and other programs and is a simple and convenient programming tool. Continued with the previous article>> http://www.vevb.com/kaifa/asp/70602.html

11.ACCESS database connection:

  1. <%
  2. optionexplicit
  3. dimstartime, endtime,conn,connstr,db
  4. starttime=timer()
  5. 'Change the database name
  6. db=data/dvBBS5.mdb
  7. Setconn=Server.CreateObject(ADODB.Connection)
  8. connstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(db)
  9. 'If your server uses an older version of Access driver, please use the following connection method
  10. 'connstr=driver={Microsoft AccessDriver(*.mdb)};dbq=&Server.MapPath(db)
  11. conn.Openconnstr
  12. functionCloseDatabase
  13. Conn.close
  14. Setconn=Nothing
  15. EndFunction
  16. %>

12.SQL database connection:

  1. <%
  2. optionexplicit
  3. dimstartime, endtime,conn,connstr,db
  4. starttime=timer()
  5. connstr=driver={SQLServer};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs
  6. Setconn=Server.CreateObject(ADODB.Connection)
  7. conn.Openconnstr
  8. functionCloseDatabase
  9. Conn.close
  10. Setconn=Nothing
  11. EndFunction
  12. %>

13. Open the web page code with the keyboard:

  1. <scriptlanguage=javascript>
  2. functionctlent(eventobject)
  3. {
  4. if((event.ctrlKey&&window.event.keyCode==13)||(event.altKey&window.event.keyCode==83))
  5. {
  6. window.open('website','','')
  7. }
  8. }
  9. </script>

Here is the codes of Ctrl+Enter and Alt+S by yourself and then change them.

14. Make the layer not overwritten by the control code:

  1. <divz-Index:2><objectxxx></object></div>#Front
  2. <divz-Index:1><objectxxx></object></div>#Back
  3. <divid=Layer2style=position:absolute;top:40;width:400px;height:95px;z-index:2>
  4. <tableheight=100%width=100%bgcolor=#ff0000><tr>
  5. <tdheight=100%width=100%></td></tr></table><iframewidth=0height=0></iframe></div>
  6. <divid=Layer1style=position:absolute;top:50;width:200px;height:115px;z-index:1>
  7. <iframeheight=100%width=100%></iframe></div>

15.Dongwang FLASH advertising code:

  1. <objectclassid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
  2. codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
  3. width=468height=60>
  4. <paramname=movievalue=images/yj16d.swf>
  5. <paramname=qualityvalue=high>
  6. <embedsrc=images/dvbanner.swfquality=high
  7. pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash;
  8. ;;;;;;;;;;;;; type=application/x-shockwave-flashwidth=468height=60></embed></object>

16.VBS popup window code:

  1. <scriptlanguage=vbscript>
  2. msgbox you have not registered or logged in to the forum, 0, boutique forum
  3. location.href=login.asp
  4. </script>

17. Use FSO to modify file-specific content functions:

  1. functionFSOchange(filename,Target,String)
  2. DimobjFSO, objCountFile, FiletempData
  3. SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
  4. SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  5. FiletempData=objCountFile.ReadAll
  6. objCountFile.Close
  7. FiletempData=Replace(FiletempData,Target,String)
  8. SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
  9. objCountFile.WriteFiletempData
  10. objCountFile.Close
  11. SetobjCountFile=Nothing
  12. SetobjFSO=Nothing
  13. EndFunction

18. Functions that use FSO to read file content:

  1. functionFSOFileRead(filename)
  2. DimobjFSO, objCountFile, FiletempData
  3. SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
  4. SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  5. FSOFileRead=objCountFile.ReadAll
  6. objCountFile.Close
  7. SetobjCountFile=Nothing
  8. SetobjFSO=Nothing
  9. EndFunction

19. Functions that use FSO to read a certain line of a file:

  1. functionFSOlinedit(filename,lineNum)
  2. iflinenum<1thenexitfunction
  3. dimfso,f,temparray,tempcnt
  4. setfso=server.CreateObject(scripting.filesystemobject)
  5. ifnotfso.fileExists(server.mappath(filename))thenexitfunction
  6. setf=fso.opentextfile(server.mappath(filename),1)
  7. ifnotf.AtEndofStreamthen
  8. tempcnt=f.readall
  9. f.close
  10. setf=nothing
  11. template=split(tempcnt,chr(13)&chr(10))
  12. iflineNum>ubund(temparray)+1then
  13. exitfunction
  14. else
  15. FSOlinedit=temparray(lineNum-1)
  16. endif
  17. endif
  18. endfunction

20. Functions that modify file-specific content using FSO:

  1. functionFSOchange(filename,Target,String)
  2. DimobjFSO, objCountFile, FiletempData
  3. SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
  4. SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  5. FiletempData=objCountFile.ReadAll
  6. objCountFile.Close
  7. FiletempData=Replace(FiletempData,Target,String)
  8. SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
  9. objCountFile.WriteFiletempData
  10. objCountFile.Close
  11. SetobjCountFile=Nothing
  12. SetobjFSO=Nothing
  13. EndFunction

21. Functions that use FSO to read file contents

:

  1. functionFSOFileRead(filename)
  2. DimobjFSO, objCountFile, FiletempData
  3. SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
  4. SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  5. FSOFileRead=objCountFile.ReadAll
  6. objCountFile.Close
  7. SetobjCountFile=Nothing
  8. SetobjFSO=Nothing
  9. EndFunction

22. Functions that use FSO to read a certain line of a file:

  1. functionFSOlinedit(filename,lineNum)
  2. iflinenum<1thenexitfunction
  3. dimfso,f,temparray,tempcnt
  4. setfso=server.CreateObject(scripting.filesystemobject)
  5. ifnotfso.fileExists(server.mappath(filename))thenexitfunction
  6. setf=fso.opentextfile(server.mappath(filename),1)
  7. ifnotf.AtEndofStreamthen
  8. tempcnt=f.readall
  9. f.close
  10. setf=nothing
  11. template=split(tempcnt,chr(13)&chr(10))
  12. iflineNum>ubund(temparray)+1then
  13. exitfunction
  14. else
  15. FSOlinedit=temparray(lineNum-1)
  16. endif
  17. endif
  18. endfunction

At this point, I will introduce it to you in the summary of commonly used ASP codes. I hope it will be helpful to you.

Related Articles