Asp´´½¨Êý¾Ý¿âÎļþ
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath(DBToCreate) & _
";Jet OLEDB:Engine Type=5;"
' Engine Type=5 = Access 2000 Database
' Engine Type=4 = Access 97 Database
Set catNewDB = Nothing
End Sub
Ïà¹ØÎĵµ£º
¿Í»§¶Ë´úÂ룺
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Ê ......
Ö÷Ŀ¼,ÅäÖÃϱðÍüÁËÆôÓø¸Ä¿Â¼
ÎÊÌâÖ¢×´£º
ADODB.Connection ´íÎó '800a0ea9' δָ¶¨Ìṩ³ÌÐò£¬Ò²Ã»ÓÐÖ¸ÅɵÄĬÈÏÌṩ³ÌÐò¡£
ÎÊÌâ·ÖÎö£º
Windows 64λµÄϵͳÉÏ£¬ÔËÐÐÏÂÁÐ32bit(λ)Ó¦ÓóÌÐò£¬²»Äܹ»ÍêÈ«¼æÈÝ£¬ÐèÒª¶ÀÁ¢²Ù×÷½â¾ö¡£³ÌÐòÁбíÈçÏ£º
Internet·þÎñAPIÀ©Õ¹
ISAPI¹ýÂËÆ÷
ASPÓ¦ÓóÌÐò
ASP.NETÓ¦ÓóÌÐò
½ ......
Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï
±¾ÎĽ«¶ÔĿǰ×î³£ÓõÄËÄÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔPerl£¨Practical Extraction and Report Language£©¡¢PHP£¨Hypertext Preprocessor£©¡¢ASP£¨Active Server Pages£©¡¢JSP£¨JavaServer Pages£©½øÐÐһЩ¼¼ÊõÐԵıȽϡ£
¡¡¡¡Perl
¡¡¡¡Perl£¨Practical Extraction and Report Language£©ÊÇÒ»ÖֺܹÅÀϵĽű ......
ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......