aspÁ¬½Ómysql
ÒÔmysql5.1ΪÀý
ÏÈÏÂÔØmysql-connector-odbc²¢°²×°
1¡¢Ö±½ÓÁ¬½Ó
conn.asp
<%
strconnection="driver={mysql odbc 5.1 driver};database=test1;server=localhost;uid=root;password=root"
set conn = server.createobject("adodb.connection")
conn.open strconnection
%>
2¡¢DSNÁ¬½Ó
ÐèÒªÏÈÔÚÊý¾ÝÔ´ (ODBC)ÀïµÄ“ϵͳDSN”ÖÐÌí¼ÓDSN“AAa”£¬ÔÚ“Óû§DSN”ÖÐÌí¼Ó²»Ò»¶¨ÄÜÁ¬½ÓÉÏ£¡
<%
strConnection = "dsn=AAa;"
set conn = server.createobject("adodb.connection")
conn.open strconnection
%>
Ïà¹ØÎĵµ£º
1.html´úÂë formnameÊÇ±íµ¥name,editnameÊÇÎļþÓòname,uppathÊÇÉÏ´«Îļþ±£´æÂ·¾¶.
<input name="qtxx" type="text" id="qtxx" size="50" />
<input type="button" name="Submit22" value="ÉÏ´«Í¼Æ¬" onClick="window.open('upload.asp?formname=from1&editname=qtxx&uppath ......
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'Êý¾Ý¿â¹ÜÀíÀà
class Datas
'±¸·Ý
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
......
<%
'¹ºÎï³µÀà ÀàÃû£ºUserCart
'×÷Õß:gameing
'»ù±¾ÔÀí:´ËÀàÓ÷þÎñÆ÷Session±äÁ¿±£´æÉÌÆ·Êý¾Ý,ÉÌÆ·ÓÃÒ»¸öÊý×é±íʾ.´ËÀàÀïÃæ±£´æÁËÈýÖÐÉÌÆ·¼Û¸ñ.
'1¡¢2008-11-25ÐÞ¸ÄFunction AddItem() by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
'2¡¢2008-11-25ÐÞ¸Äby tommy Ôö¼Óɾ³ýÉÌÆ·¹ý³Ì Sub DelItem()
'3¡¢2008-11-25ת»»Ò»Ð©Êý¾ÝÀàÐͲÅÄÜÔ ......
<!--#include file="inc/conn.asp" -->
<%
openconn()
sql="select * from tbnews"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
id=rs("id")
%>
<%
do while not rs.eof
%>
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME ......
<%
'
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://127.0.0.1/1.xml",False
http.send
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
'xml.load (Server.MapPath("1.xml"))¡¡'Èç¹û²»ÊÇÔ¶³ÌÎļþÖ±½ÓÕâÒ»²½
xml.Load(http.ResponseXML)
Dim t ......