asp¸úAccessÊý¾ÝÁ¬½ÓÎÊÌâ¡£
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
SqlUsername = "sa" 'Ö÷Êý¾Ý¿âµÇ¼Óû§
SqlPassword = "" 'Ö÷Êý¾Ý¿âµÇ¼ÃÜÂë
SqlLocalName = "(local)" 'Êý¾Ý¿â·þÎñÆ÷£¬±¾»úÓá°(local)¡±
DbPath = "/wrunion/data/union.asp"
if IsSqlDataBase=1 then
TrueType = "1"
FalseType = "0"
SqlNowString = "GetDate()"
else
TrueType = "True"
FalseType = "False"
SqlNowString = "Now()"
end if
'Ö÷Õ¾Êý¾Ý¿âÁ´½Ó¹ý³Ì
Sub OpenConn()
if IsObject(Conn) then Exit Sub
if IsSqlDataBase=1 then
Db.ConnValue = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
else
Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
end if
Set Conn=Db.OpenConnection("Ö÷Êý¾Ý¿â")
End Sub
³öÏÖÖ÷Êý¾Ý¿âÁ´½Ó³ö´í£¬Çë¼ì²éÊý¾Ý¿âÁ´½Ó×Ö·û´®£¡
ÎÒ²»ÊÇÓÃÁËÁ½¸öÁ¬½ÓĪ¡£¡£ÓÐsql µÄÒ²ÓÐaccess µÄ°¡¡£¡
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
Ò»¶Îʱ¼äºó ¾Í²»ÄÜÓõÄÄÇÖÖ
¿ÉÒÔÓÃ×é¼þдÂð?
×é¼þ ÊDz»ÊDZØÐëÏÈÔÚ·þÎñÆ÷°²×° ²ÅÄÜʹÓÃ?
ÄÇÓÃÐéÄâÖ÷»úµÄ ²»¾ÍûϷÁË....
ewebeditor¾ÍÊÇҪע²á²ÅÄÜÓõÄ
Ã²ËÆÊÇûɶÓõ ......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......