=============================== delete ================================================================================================================================================= ================ if Request ("DELS") = "DELS" the set Delfile = conn.execute ("SELECT * from [Agad] where id =" & request (" ID ")) On Error ResMe Next IF (ISNULL (" Upfile ") = false and Delfile (" Upfile ") <>" ") THEN SET FS1 = Server.createObject (" scripting.filesystemObject ") fs1.deletefile (Server.mappath ("..")))) SET FS1 = Nothing end if Delfile.close set Delfile = Nothing SQL = "delete [agad] where id =" & request ("id") conn. Execute SQL Response.Redirect ("http_referer") end if =========================== 除 提 ==== ============================== " onclick = "JavaScript: IF (CONFIRM ('Do you confirm this operation?')) {return true;} else {return false;}> Delete
=========================== common query code ===================== ============== SET RS = Server.createObject ("AdoDb.Recordset") SQL = "delete from product where id =" & id "ro s r = r r o s s r 3, 3 ========================== 瑞腾 database query ================ ============= Select P. *, c3.fd_pcname, c4. * from Tb_ProductS P, TB_ProductCatalog4 C4, TB_PRODUCTCATALOG3 C3 where p.fd_companyid = 11534 and P.FD_PC4ID = C4.FD_PCID and C4 .fd_pcupid = c3.fd_pcid and c3.fd_pcid = 606 and c3.fd_pcupid = 67
========================== Image display ======================================================================================================================================================================================== ============= <% IF RS ("UPFILE") <> "" OR ISNULL (RS ("Upfile") = true kil> "Target =" _ blank "> "alt =" <% = rs ("Name")%> "width =" 100 "Height =" 75 "border =" 0 "style =" background-color: # 003366 "> <% else%>
<% end if%> ======================================================================================================================================================================== =================== if Request ("exit") = "EXIT" TENRESPONSE.EXPIRES = -9999Session.Abandon () Response.Redirect ("index.asp") END IF
=========================== Generate random number ============================================================================================================================================= ============= randomizesuis = int (RND () * (9999-1000 1)) 1000
=========================== Delete, add, modify the image ======================================================================================================================================================================== ====== ID = getContent ("ID") Name = getContent ("name") content = getContent ("content") links = getContent ("links") Kind = getContent ("kind") if id = " "THENSQL =" INSERT INTO [AGAD] (Name, Content, Links, Kind, Upfile) Values ('"& Name &",' "& Content &", '"& Links &" "& Kind & "','" & UploadFloder & "/" & FileName & ")" Else Set Delfile = Conn.execute ("Select * from [Agad] where id =" & id) on Error Resume Next if (isnull (Delfile "UPFILE") = false and Delfile ("Upfile") <> ") THEN SET FS1 = Server.createObject (" scripting.FileSystemObject ") fs1.deletefile (Server.Mappath (" ./"& Delfile ("Upfile "))) SET FS1 = Nothing end if Delfile.close set Delfile = Nothingsql =" Update [agad] set name = '"& name", content =' "& content &", links = '"& links & "', Kind ='" & Kind & "', Upfile ='" & UploadFloder & "/" & FileName & "'Where id =" & idend ifconn.execute (SQL) Response.Redirect ("Agad.asp? Main = main ") Response.end312603719
20 very useful examples in ASP programming TYPE: web tutorial Time: 2004-1-3 Author: Unknown URL: World New Network HIT: 7 1. How to use ASP to judge your website's virtual physical path: Using MAPPATH method < % = Server.mappath ("/")%> 2. How do I know the user's browser? A: a method using the Request object strBrowser = Request.ServerVariables ( "HTTP_USER_AGENT") If Instr (strBrowser, "MSIE") <> 0 Then Response.redirect ( "ForMSIEOnly.htm") Else Response.redirect ( "ForAll.htm" ) End IF
3. How to calculate the average number of repetitions per day Answer: Solution <% StartDate = Datediff ("D", NOW, "01/01/1990") if strdate <0 dam stdate = startdate * -1 avgvpd = int 4 Usercnt) / startdate)%> Display result <% response.write (avgvpd)%> That Is it.this page has been viewed Since November 10,1998
4. How to display a random image <% DIM P, PPIC, DPIC PPIC = 12 Randomize P = INT (PPIC * RND) 1) DPIC = "Graphix / Randompics /" & P & ". GIF"%> Show
5. How to return to the previous page answer: preivous page or with images, 
">>
6. How to determine the other party's IP address answer: <% = Request.serverVariables ("remote_addr)%>
7. How to link to a pair of pictures: <% @ languages = VBS cript%> <% response.expires = 0 strimagename = "graphix / errors / errooriamge.gif" response.redirect (strimagename)%>
8. Forced Enter Password dialog: A: put this sentence to the beginning of the page <% response.status = "401 Not Authorized" response.END%>
9. How to transfer variables from one page to another: Use hidden type to transfer variable <% form method = "post" action = "mynextpage.asp"> <% for each item in request.form%> <% script language = javas cript> alert ("<% = Yourvar%>")
11. Is there a way to protect your source code, do not give people an answer: You can download a Microsoft's Windows S Cript Encoder, which can encrypt the ASP script and client JavaS CRIPT / VBS CRIPT script. . . However, after the client encrypts, only IE5 can execute, after the server-side script is encrypted, only the S Cript Engine 5 installed on the server can be executed.
12. How can I send Query String from an ASP file to another? A: The former file adds the following sentence: response.redirect ("second.asp?" & Required.servervariables ("query_string"))
13.Global.asa files don't always work? A: Only the web directory is set to Web Application, Global.asa is only valid, and Global.asa is valid in the root of a Web Application. IIS4 can use Internet Service Manager to set Application Setting how to make the HTM file like an ASP file can execute script code?
14. How can I make the script code as the HTM file like an ASP file? Answer: Internet sevices manager -> Select Default Web Site -> Right Mark -> Menu Properties -> Home -> Application Setting -> Click button "Configuration" -> App Mapping -> Click button "Add "-> EXECUTABLE BROWSE Selection / Winnt/System32/INetsrv/asp.dll Extension Enter HTM Method Exclusions Enter Put.delete All OK. But it is worth noting that this is also processed by ASP.DLL for HTM, and the efficiency will be reduced.
15. How to register the component A: There are two ways. The first method: Hand-registered DLL This method is used from IIS 3.0 to IIS 4.0 and other web server. It requires you to execute in the command line mode, enter the directory containing the DLL, and enter: regsvr32 component_name.dll, for example C: / temp / regsvr32 aspemail.dll, will register DLL's specific information in the registry in the registry in the server . This component can then be used on the server, but this method has a defect. When the component is registered with this method, the component must have the corresponding setting NT anonymous account with permission to execute this DLL. In particular, some components need to read the registry, so the method of this registration component is only used in the case where there is no MTS on the server. Use: regsvr32 / u aspobject.dll Example C: / Temp / Regsvr32 The second method of using the MTS (Microsoft Transaction Server) MTS is IIS 4, but it provides a huge improvement. MTS allows you to specify that only privileged users can access components and greatly improve the security settings on the website server. The steps to register the components on the MTS are as follows: 1) Open the IIS Management Console. 2) Expand Transaction Server, right-click "PKGS Installed" and select "New Package". 3) Click Create An Empty Package. 4) Naming the package. 5) Specify the Administrator account or use "Interactive" (if the server is often used using administrator). 6) Now use Right-click "Components" after the package you just created. Select "New Ten Component". 7) Select "Install New Component". 8) Locate your .dll file and select Next to complete. To delete this object, just select its icon, then select Delete. Note: Pay special attention to the second method, it is used to debug the best way to write components, without having to restart the machine each time.
16. ASP and Access database connection:
<% @Language = VBS CRIPT%> <% DIM CONN, MDBFILE MDBFILE = Server.mAppath ("Database Name. MDB") set conn = server.createObject ("adodb.connection" conn.open "driver = {Microsoft Access DRIVER (* .mdb)}; uid = admin; pwd = database password; dbq = "& mdbfile%>
17. ASP is connected to the SQL database:
<% @Language = VBS cript%> <% DIM conn set conn = server.createObject ("adoDb.connection") Con -.open "provider = SQLOLDB; DATA source = SQL server name or IP address; UID = SA; PWD = Database password; database = database name%>
Establish record set objects:
SET RS = Server.createObject ("AdoDb.Recordset") RS.Open SQL statement, conn, 3,218. SQL common command usage method:
(1) Data Record Screening:
SQL = "SELECT * FROM data table where field name = field value ORDER BY field name [DESC]"
SQL = "SELECT * FROM DATA WHERE Field Name LIKE% Field Value% ORDER BY Field Name [DESC]"
SQL = "SELECT TOP 10 * FROM DATA WHERE Field Name ORDER BY Field Name [DESC]"
SQL = "SELECT * FROM data table where field name in (value 1, value 2, value 3)"
SQL = "SELECT * FROM DATA WHERE Field Name BetWeen Value 1 AND Value 2"
(2) Update data record:
SQL = "Update Datasheet Set Field Name = Field Value WHERE Condition Expression"
SQL = "Update Data Table Set Field 1 = Value 1, Field 2 = Value 2 ... Field N = Value N Where Conditions Expression"
(3) Delete data records:
SQL = "Delete from Data Sheet WHERE Condition Expression"
SQL = "delete from data table" (deleted all records of data tables)
(4) Add a data record:
SQL = "INSERT INTO Data Sheet (Field 1, Field 2, Field 3 ...) Valuess (value 1, value 2, value 3 ...)"
SQL = "INSERT INTO Target Data Table Select * From Source Data Sheet" (Add record of the source data table to the target data sheet)
(5) Data logging statistics:
AVG (Field Name) gives a table bar average count (* | field name) Statistics on the number of data lines or the maximum value of the value of the value of a value for a column. MIN (Field Name) gets the smallest value of a table bar SUM (field name) adds the value of the data bar.
Citing the above function:
SQL = "SELECT SUM (Field Name) AS alias from Datasheet Where Condition Expression" SET RS = Conn.excute (SQL)
Use RS ("alias") to get the value, and other functions are used.
(5) Establishment and deletion of data sheets:
Create Table Data Sheet Name (Field 1 Type 1 (Length), Field 2 Type 2 (Length) ...)
Example: Create Table Tab01 (Name Varchar (50), DateTime Default now ())
DROP TABLE Datasheet Name (permanently delete a data sheet)
19. Recording the method of the object:
Rs.MoveNext moves the record pointer down the current position down RS.MOVEPREVIOS to move the logger from the current location to the top RS.MoveFirst Move the record pointer to the data table RS.MOVELAST Move the record pointer to the data table The last row RS.absolutePosition = n Moves the record pointer to the data table nth line rs.absolutepage = n Move the record pointer to the first line of the first line of the nth page RS.Pagesize = n Sets each page for n-record RS.PageCount PageSize's Settings Returns the total number rs.RecordCount Returns the total number RS.BOF Returns the record pointer beyond the data table header, the true said whether false is rs.eof returns a record pointer over the end of the data table, true, true Has the RS.Delete deletes the current record, but the record pointer does not move the RS.AddNew to add the record to the end of the data table Rs.Update Update Data Table Record --------------- ---------------
20 Recordset object method
Open method
Recordset.open Source, ActiveConnection, Cursortype, LockType, Options
Source RecordSet objects can connect the Command object with the Source property. The Source parameter can be a COMMAND object name, a SQL command, a specified data table name or a Stored ProCedure. If this parameter is omitted, the system uses the Source property of the Recordset object.
ActiveConnection RecordSet objects can connect the Connection object through the ActiveConnection property. The ActiveConnection here can be a connection object or a string parameter containing database configuration (Connectionstring).
CURSORTYPE RECORDSET Object Open method The CURSORTYPE parameter represents what kind of cursor type starts data, including AdopenForwardOnly, AdoPENDYNAMIC, and AdoPenStatic, is described below: ---------------------------------------------------------------------------------------------------------------------- -------------- constant constant value description -------------------------------- AdopenForwardonly 0 defaults to start a prominend that can only move forward. AdopenKeyset 1 Start a KEYSET type cursor. AdoPendynamic 2 launches a dynamic type cursor. AdoPenStatic 3 launches a cursor for a Static type. ----------------------------------------------------- List description differences between them.
------------------------------ Recordset Properties AdopenForwardOnly AdopenKeyset AdoPENDYNAMIC ADOPENSTATIC ------------ -------------------- AbsolutePage does not support you do not support readable write readable write absolutePosition does not support readable write can read and write ACTIVECONNECTION Reading and writing BOF read-only read only bookmark does not support not support readable write can read and write Cachesize can read and write can read and write CARSORLOCATION to read and write CACSORLOCATION CursorType write can read and write can read and write can read and write can read and write EditMode read-only read-only read-only read-only read-only read-only read-only read-only EOF Filter can read and write can read and write can read and write can read and write can read and write can LockType Read and write readable and writable MarshalOptions can read and write readable write-readable and write readable write-readable write-readable write-readable write-writable can read and write can read and write RecordCount not supported not supported read only read-only Source can read and write can read and write can read and write can read and write State read-only read-only read-only read-only read-only read-only read-only read-only Status AddNew support support support Support CancelBatch Support Support CancelupDate Support Support CLONE does not support close support support support support support support support support support support support support support support support support MOVE does not support support support MOVEFIRAST support support support MOVELAST does not support support support MOVELENEXT support Support Support MovePrevious does not support support support NEXTRECORDSET Support Support Support Open Support Support Support Requuery Support Support Support Support Support Support Support Support Supports Support Support Support UPDATE Support Support Support support UpdateBatch support support support --------------------------------
Where the next NEXTRECORDSET method does not apply to the Microsoft Access database. The LockType parameter of the LockType RecordSet object Open method indicates the Lock type to be used. If this parameter is ignored, the system will be preset with the LockType property of the Recordset object. The LockType parameter contains AdlockReadOnly, AdlockPrsSIMistic, AdlockOptimistic, and AdlockbatchOptimistic, etc., which are described below:
------------------------------- constant constant value description -------------- ----------------------------------Ly, Recordset objects are launched by read-only mode, unable to run AddNew, Update, and Delete, etc. AdlockPrsSIMistic 2 When the data source is being updated, The system is temporarily locked to other users to maintain data consistency. AdlockOptimistic 3 When the data source is being updated, the system does not lock the action of other users, and other users can increase, delete, and modified XX works. AdlockBatchOptimistic 4 When the data source is being updated, other users must change the CURSORLOCATION property to ADUDECLIENTBATCH to increase, delete, and change the data.
