|
#2
aspic2010-03-11 18:51
|
程序代码：<%
连接数据库
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select top 27* from V_Video order by S_ID desc"
rs.Open sql,conn,1,1
do while not rs.eof
strURL = rs("S_Vdata")
aryReturn = Split(strURL,"#")
For i = LBound(aryReturn) To UBound(aryReturn)
Response.Write("返回值数组中的元素[" & i & "]：" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")
Next
rs.MoveNext
loop
%>
我想把这写内容全部写入到xml的文件中。不知道如何添加代码？连接数据库
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select top 27* from V_Video order by S_ID desc"
rs.Open sql,conn,1,1
do while not rs.eof
strURL = rs("S_Vdata")
aryReturn = Split(strURL,"#")
For i = LBound(aryReturn) To UBound(aryReturn)
Response.Write("返回值数组中的元素[" & i & "]：" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")
Next
rs.MoveNext
loop
%>
忘高手解答，谢谢
[ 本帖最后由 sky222 于 2010-3-11 16:49 编辑 ]
