aspÅúÁ¿Ð´ÈëÊý¾Ý¿â
Êý¾Ý¿â×Ö¶Î
id a b c d e f g h
Äܲ»ÄܰÑÒÔÏÂÊý¾ÝÅúÁ¿ÈëÊý¾Ý¿â
1 2 3 4 5 6 7 8
7 8 9 4 5 6 1 2
4 5 6 1 2 3 1 2
ÏÈ·Ö¸î»Ø³µ,ΪÿÌõÊý¾Ý
ÔÙ·Ö¸î¿Õ¸ñдÈëÿ¸ö×Ö¶Î
ÕâÑùÔõô¸ã?
¸ø´úÂë/лл...
ASPÖ»Ö§³ÖÑ»·insert²»Ö§³ÖÏómysqlÄÄÖÖÒ»´Î²åÈë¾ÞÕó
Åú´¦Àí·½Ê½´ò¿ªÊý¾Ý¼¯£¬ÓÃrs.UpdateBatchÒ»´ÎµÝ½»µ½Êý¾Ý¿â.
VBScript code:
<%
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open "SELECT * from xxx WHERE 1=0",conn,1, 4
a = Split(s, VBCrLf)
For i = 0 To UBound(a)
If Trim(a(i))<>"" Then
rs.AddNew
b = Split(a(i), " ")
For j=0 To UBound(b)
rs(j) = b(j)
Next
End If
Next
rs.UpdateBatch
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
Ò»¶Îʱ¼äºó ¾Í²»ÄÜÓõÄÄÇÖÖ
¿ÉÒÔÓÃ×é¼þдÂð?
×é¼þ ÊDz»ÊDZØÐëÏÈÔÚ·þÎñÆ÷°²×° ²ÅÄÜʹÓÃ?
ÄÇÓÃÐéÄâÖ÷»úµÄ ²»¾ÍûϷÁË....
ewebeditor¾ÍÊÇҪע²á²ÅÄÜÓõÄ
Ã²ËÆÊÇûɶÓõ ......
ÎÒÓÐÒ»¸öÎļþÃû aaa.bbb.rar»òÕßa.b.c.d.html»òÕßaa.b.dd.shtml
ÎÒÔõÑù½ØÈ¡ÎļþµÄºó׺Ãûѽ¡£¡£¡£
<%
aa="aaa.bbb.rar"
bb=split(aa,".")
response.write bb(ubound(bb)) ......