|
°Q½×°Ï>>SQL Server ?ˆï¿½ï¿???forum_id=43<< |
|
¡@¥DÃD¡G¤£ª¾ access ´«¦¨ sql ®É ¦³¨º¨Ç¦a¤ènÅÜ
³Ìªñè¾Ç asp
·Q½Ð°Ýn±N asp ¤¤ªº¸ê®Æ®w§ïÅܮɡA»Ýn§ïÅܨº¨ÇªF¦è
¥Øªº: access ¸ê®Æ®w ´«¦¨ sql ¸ê®Æ®w
ì©lÀɮ׬°
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
UpOk = True
Set conn = Server.CreateObject("Adodb.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("../DataBase/class.mdb")
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open "Select * From Login" ,conn,3,2
if Request.Form("UID") <> "" then
Set IfUid = Server.CreateObject("Adodb.RecordSet")
IfUid.Open "Select ©m¦W From Login where ©m¦W = '" & Request.Form("UID") & "'" ,conn,1,3
if Not IfUid.Eof then
UpOk = False
End if
Set IfUid = Nothing
End if
if UpOk = True then
rs.addnew
rs("©m¦W") = Request.Form("UID")
rs("±K½X") = Request.Form("PWD")
rs("affirmpassword") = Request.Form("REPWD")
rs("name") = Request.Form("NAME")
rs("sex") = Request.Form("sex")
rs("phone") = Request.Form("phone")
rs("storename") = Request.Form("storename")
rs("storenumber") = Request.Form("storenumber")
rs("mail") = Request.Form("mail")
rs("storekind") = Request.Form("storekind")
rs("storeaddress") = Request.Form("storeaddress")
rs("storephone") = Request.Form("storephone")
rs.update
Set rs = Nothing
%>
<%else%>
<%
End if
conn.close()
%>
§Ú¥H¬°n§ïªº¦a¤è¬°
conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("../DataBase/class.mdb")
Åܦ¨
Conn.ConnectionString = "driver={SQL Server};server=MIS;uid=sa;pd=1234;database=Subject"
¦ý§ï¤F«á¡A¥X²{ªº°ÝÃD¬°
rs.open "Select * From Login" ,conn,3,2
³Q§PÂ_¬°¿ù»~¡K
§Æ±æ¦³¨º¦ì¤j¤j¯à´À§Ú¸Ñ´b¡K·P®¦
|
|
1.¦^À³¤H¡G |
admin
¤¤¯Å·|û |
|
¦^À³®É¶¡¡G 2005/07/05-16:30:06
  ÀËÁ|
|
¡@¦^À³¤º®e¡G
conn.Open "Provider=SQLOLEDB.1;Data Source=MIS;User ID=sa;Password=1234;Initial Catalog=Subject"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From Login", conn, 3, 2
Set GetSQLServerStaticRecordset = rs
.
.
.
.
.
.
 |
|
|
|
|
| |
|
|
§iª¾