20 very useful examples in 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 color= "#FF0000" size= "6" face= "Arial"
%= Server.MapPath ("\")%
/font >

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

For:

"A href="%=request.servervariables ("http_referer")% ">preivous page

6. How to determine the IP address of each other

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

7. How to link to a picture

For:

% @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%
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 on the server, then you have to wait for someone to confirm, your program can continue to execute, and the general server will not be guarded, so Microsoft had to ban this function, and told you in random (:) OH) No permissions. 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 see

A: You can download a Microsoft Windows Script Encoder, it can be ASP's script and client Javascript/vbscript script encryption ... 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: Global.asa is valid only if the Web directory is set to Web application, 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 do i make an HTM file Execute script code like an ASP file?

Answer: Internet sevices Manager-> Select Default Web site-right mouse key-> Menu Properties-〉 Home Directory-> Application settings (application Setting)-> Click button "Configure" -> App mapping-> Click the 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 a component

Answer: There are two ways.

The first method: Manually registering DLLs this way is used to IIS 4.0 and other Web servers from IIS 3.0. It needs you at the command line sideTo execute, enter 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 on 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 method: 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) Opens the IIS management Console.

2) Expand Transaction Server, right-click "pkgs Installed" and select "New Package".

3) Click "Create an empty package".

4) to name the package.

5) Specify the Administrator account number or use "interactive" (if the server is often logged in using the administrator).

6) Now use the right mouse button to click the "Components" after the package that you just created. Select "New then Component".

7) Select "Install New Component".

8) Locate your. dll file and select next to finish.

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.o