Classic examples of ASP programming

Programming

1. How to use ASP to determine the virtual physical path of your website

Answer: Using the MapPath method

< p align= "center" >< Font size= "4" face= "Arial" >< B >
The physical path to this virtual Website is:
</b ></font >
< font color= "#FF0000" size= "6" face= "Arial" >
<%= Server.MapPath ("\")% >
</font ></p >

2. How do I know the browser used by the user?

Answer: Use the Request object method

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 repeated visits per day

Answer: the solution

<% Startdate=datediff ("D", Now, "01/01/1990")
If strdate< 0 then startdate=startdate*-1
Avgvpd=int ((usercnt)/startdate)% >

Show results

<% Response.Write (AVGVPD)% >
This is It.this page have been viewed since November 10,1998

4. How to display random images

<% Dim P,ppic,dpic
Ppic=12
Randomize
P=int ((ppic*rnd) +1)
Dpic= "graphix/randompics/" &p& ". gif"
% >
Show
< img src= "<%=dpic% >" >

5. How to get back to the previous page

Answer:< a href= "<%=request.servervariables (" Http_referer ")% >" >preivous page</A >
Or with pictures such as:< img src= "http://www.webjx.com/htmldata/2006-01-26/arrowback.gif" alt= "<%=request.servervariables (" Http_referer ")% >" >

6. How to determine the IP address of each other

Answer:<%=request.servervariables ("remote_addr)% >

7. How to link to a picture

Answer:<% @Languages =vbscript% >
<% response.expires=0
Strimagename= "Graphix/errors/erroriamge.gif"
Response.Redirect (Strimagename)
% >

8. Forced Enter Password dialog box

A: Put this sentence on the beginning of the page

<% response.status= "401 not Authorized"
Response.End
% >

9. How to pass variables from one page to another

A: Use the HIDDEN type to pass variables

<% form method= "POST" action= "mynextpage.asp" >
<% for per item in request.form% >
< input namee= "<%=item% >" type= "HIDDEN"
Value= "<%=server. HTMLEncode (Request.Form (item)% > ">
<% next% >
</form >

10. Why I use MsgBox in the ASP program, the program error said no permissions

A: Because the ASP is the server running, if you can display a dialog box in the server, then you have to wait for someone to make sure that your program can continue to perform, and the general server will not be guarded, so Microsoft has to prohibit this function, and casually tell you (ha) do not have permission. However, ASP and client-side scripting can be combined to display a dialog box, as follows:

<% yourvar= "Test dialog box"% >
<% script language= ' JavaScript ' >
Alert ("<%=yourvar% >")
</script >

11. There is no way to protect their source code, do not give people to see

A: You can download a Microsoft Windows Script Encoder, which can encrypt the ASP scripts and client Javascript/vbscript scripts ... However, after the client is encrypted, only IE5 can execute, server-side script encryption, only the server installed script engine 5 (installed a IE5 have) to perform.

12. How can I transfer query string from one ASP file to another?

A: The former file adds the following sentence:

Response.Redirect ("Second.asp?" & Request.ServerVariables ("Query_string"))

13.global.asa files always don't work?

A: Only the web directory is set to Web application, Global.asa is valid, and global.asa the root directory of a Web application is valid. IIS4 can use Internet Service Manager to set application setting how can I make an HTM file Execute script code just like an ASP file?

14. How can I make an HTM file Execute script code like an ASP file?

Answer: Internet sevices Manager-> select Default Web Site-> right mouse button-> Menu Properties-〉 home Directory-> Application settings (Application Setting)-> Click button "Configuration"-> App mapping-> Click button "ADD"-> Executable browse select \winnt\system32\inetsrv\asp. DLL EXTENSION input HTM method exclusions input put.delete all OK. However, it should be noted that the HTM is also handled by Asp.dll, and the efficiency will be reduced.

15. How to register components

Answer: There are two ways.

The first method: Manually registering DLLs This method is used from IIS 3.0 to IIS 4.0 and other Web servers. It requires you to run down the command line, into the directory containing the DLL, and enter: regsvr32 component_name.dll for example C:\temp\regsvr32 AspEmail.dll It registers specific information about the DLL into the registry in the server. This component can then be used on the server, but there is a flaw in this approach. When the component is registered with this method, the component must be set to the appropriate NT anonymous account to execute the DLL. In particular, some components need to read the registry, so the method of registering the component is simply using the server without MTS, to unregister the DLL, using: regsvr32/u Aspobject.dll Example c:\temp\regsvr32/u Aneiodbc.dll

The second approach: using MTS (Microsoft Transaction Server) MTS is a new feature of IIS 4, but it provides a great deal of improvement. MTS allows you to specify that only privileged users have access to the component, greatly improving the security settings on the Web server. The steps for registering a component on 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) name the package.
5 Specify the Administrator account or use "interactive" (if the server is often logged in with the administrator).
6 now use the right mouse button to click the "Components" that you started underneath the package you just created. Select "New then Component".
7 Select "Install new component" [B].
8 Locate your. dll file and select next to complete.

To delete this object, simply select its icon, and then select Delete.

Note: In particular, note the second method, which is the best way to debug your own writing components, without having to reboot the machine every time.

ASP to connect to an Access database:

<%@ language=vbscript%>
<%
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
%>

ASP to connect with SQL database:

<%@ language=vbscript%>
<%
Dim conn
Set Conn=server.createobject ("Adodb.connection")
Con.open "Provider=sqloledb;data source=sql server name or IP address; Uid=sa; pwd= database password; database= database name
%>

To set up a Recordset object:

Set Rs=server.createobject ("Adodb.recordset")
Rs.Open SQL statement, conn,3,2

How to use SQL frequently used commands:

(1) Data record filtering:

Sql= "SELECT * from data table where field name = field value order BY field name [desc]"
Sql= "SELECT * from data table where field name like '% field value ' Order by field name [desc]"
Sql= "SELECT top * from data table 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 table where field name between value 1 and value 2"

(2) Update data records:

sql= "Update data table 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 Condition expression "

(3) Delete data records:

Sql= "Delete from data table where condition expression"

Sql= "Delete from data table" (delete all records from datasheet)

(4) Adding data records:

sql= INSERT into Data table (field 1, Field 2, Field 3 ...) valuess (value 1, value 2, value 3 ...)

Sql= INSERT INTO Target datasheet SELECT * from source datasheet (add a record from the source datasheet to the destination datasheet)

(5) Data record statistic function:

AVG (field name) to derive a table column average
Count (*| field name) statistics on the number of data rows or the number of data rows that have a value for a column
Max (field name) gets the maximum value of a table column
Min (field name) gets the smallest value of a table column
sum (field name) adds the value of the data bar

How to reference the above function:

Sql= "Select sum (field name) as Alias from data table where condition expression"
Set Rs=conn.excute (SQL)

Using RS ("Alias") to obtain the value of the unified, other functions using the same.

(5) The establishment and deletion of the data table:

CREATE Table datasheet Name (field 1 type 1 (length), Field 2 type 2 (length) ...)

Example: CREATE TABLE tab01 (name varchar, datetime default Now ())

drop table datasheet name (permanently deletes a data table)

19. Method of Recordset object:

Rs.movenext moves the record pointer down one row from the current position
Rs.moveprevious move the record pointer up one row from the current position
Rs.movefirst move the record pointer to the first row of the datasheet
Rs.movelast move the record pointer to the last row of the datasheet
Rs.absoluteposition=n move the record pointer to the nth row of the datasheet
Rs.absolutepage=n move the record pointer to the first row of page N
Rs.pagesize=n set every page to N records
Rs.pagecount returns the total number of pages based on pagesize settings
Rs.recordcount returns the total number of records
RS.BOF returns whether the record pointer is over the first end of the datasheet, True indicates Yes, FALSE is no
Rs.eof returns whether the record pointer is over the end of the datasheet, True indicates Yes, FALSE is no
Rs.delete deletes the current record, but the record pointer does not move down
Rs.addnew add records to the end of the datasheet
Rs.update Update datasheet Record