Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ts_tier_2_012010.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
1.25 Mб
Скачать

D) asp Coding Examples

1. Asp dsn connection for ms access

Set conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=prefix_domain_com”

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>ASP DSN Connection To An Access Database</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

</head>

<body>

<%

Dim conn

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "DSN=dsn_domain_com"

sqlquery = "SELECT * FROM TableName"

Set rs = conn.Execute(sqlquery)

do while not rs.eof

response.write( "<H3>" & "ASP DSN Connection To An Access Database: " & rs(0) & "</H3>" )

rs.movenext

loop

%>

</body>

</html>

2. Asp dsn connection for MySql

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "DSN=prefix_domain_com;UID=dbm.domain.com;PWD=password"

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>ASP DSN Connection To A MySQL Database</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

</head>

<body>

<%

Dim conn

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "DSN=dsn_domain_com;UID=dbm.domain.com;PWD=password"

sqlquery = "SELECT * FROM TableName"

Set rs = conn.Execute(sqlquery)

'Response.Write "FieldName: <input type=text name="&TableName&" value="&FieldName&">"

do while not rs.eof

response.write( "ASP DSN Connection To A MySQL Database: " & rs(0) )

rs.movenext

loop

%>

</body>

</html>

3. Asp dsNless Connection for ms access

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" &Server.MapPath(“/databse.mdb”) mdbfile = "/stuff/sample.mdb" connstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &

Server.MapPath( mdbfile ) & ";"

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>ASP DSNLess Connection To An Access Database</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

</head>

<body>

<%

Set conn = Server.CreateObject("ADODB.Connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & Server.MapPath("path/to/database.mdb")

conn.Open DSNtemp

sqlquery = "SELECT * FROM TableName"

Set rs = conn.Execute(sqlquery)

do while not rs.eof

response.write( "<H3>" & "ASP DSNLess Connection To An Access Database: " & rs(0) & "</H3>" )

rs.movenext

loop

%>

</body>

</html>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]