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 µÄ°¡¡£¡
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¶ÔÒ³ÃæÊ¹ÓÃÁËα¾²Ì¬
²¢ÇÒ¶ÔID½øÐÐÁ˼ÓÃÜ¡£
Ö÷Òª´úÂëÈçÏ£º
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
³ÌÐò´úÂë
AΪ¼ÓÃÜ£¬BΪ½âÃܺ¯Êý
<a href=&q ......
Ò»¶Îʱ¼äºó ¾Í²»ÄÜÓõÄÄÇÖÖ
¿ÉÒÔÓÃ×é¼þдÂð?
×é¼þ ÊDz»ÊDZØÐëÏÈÔÚ·þÎñÆ÷°²×° ²ÅÄÜʹÓÃ?
ÄÇÓÃÐéÄâÖ÷»úµÄ ²»¾ÍûϷÁË....
ewebeditor¾ÍÊÇҪע²á²ÅÄÜÓõÄ
Ã²ËÆÊÇûɶÓõ ......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
ÇëÎÊΪʲôÎÒÕâ¶Î´úÂë¿ÉÒÔÏÔʾÒÑÐ޸ijɹ¦picÎļþ¼ÐÖеÄͼƬ£¬µ«Êµ¼ÊÉÏÎļþ¼ÐÖеÄÎļþÃû³Æ»¹ÊǺúõġ£Íû¸ßÊÖ°ïæ¸Ä¸Ä°¡¡£
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......