请教,如何把如下数据输入到数据库?ASP,好像用数组,怎么操作?请赐教!
数据库有file_name与film_name两个字段,分别存储文件名与电影名称.
<?lkstar?>m6d28h21m43s27.htm[年国产剧情片][天那边][DVDRIP-R中文字幕][383M]
<!?lkstar?>m6d28h21m36s42.htm[性感女神安吉丽娜朱莉犯罪动作大片][极速60秒/惊天动地/疾速60秒/急速60秒/惊天动地60秒][DVD-RMVB][中英字幕][639M]
<?lkstar?>m6d28h21m24s50.htm[探索频道旅游冒险系列7十大情侣天堂-Discovery.Worlds.Sexiest.Destinations.For.Couples][RMVB][288M]
<!?lkstar?>m6d27h22m47s28.htm[08美国最新高分爱情喜剧][重锤/铁拳雄风][DVD-RMVB/610M][中英字幕]
<?lkstar?>m6d27h18m2s36.htm[探索频道旅游冒险系列6十大十大恐怖景点-Discovery.Worlds.Creepiest.Destinations][241M]
<!?lkstar?>m6d27h17m55s9.htm[08美国科幻喜剧新片][一分钟人][DVD-RMVB/529M][中英字幕]
<?lkstar?>m6d27h12m18s38.htm[年美国动画片:飞出个未来:电影版2][DVDRIP-R风软中文字幕][382M]
<!?lkstar?>m6d27h12m16s19.htm[年美国喜剧科幻][一分钟人][DVD-RMVB][中英文字幕][474M]
<?lkstar?>m6d27h12m11s58.htm[08泰国青春爱情喜剧][荷尔蒙/大暑假悸动的心/爱我一下.夏][DVD-RMVB/473M][中文字幕]
<!?lkstar?>m6d27h1m8s5.htm[08美国最新赌局大片][决胜21点/攻陷拉斯维加斯][DVD-RMVB/525M][中英字幕]
<?lkstar?>m6d27h1m4s17.htm[08韩国最新恐怖惊悚][岗哨506/506号岗哨][DVD-RMVB/557M][中文字幕]
<!?lkstar?>m6d25h19m11s15.htm[真实事件改编超刺激战争动作大片][大偷袭/鬼魂士兵/卡巴那图大营救][DVD-RMVB][中英字幕][784M]
<?lkstar?>m6d25h10m12s30.htm[探索频道旅游冒险系列5十大购物天堂-Discovery.Top.Ten.Shopping.Heavens][312M]

[ 本帖最后由 caoxuelu 于 2008-6-29 09:49 编辑 ]

用正则或者SPLIT

思路 用FSO读入以上内容 用\n分割成数组
用正则去掉前面尖括号的那些内容 ，然后用'htm[' 分割成数组 第一个元素&html 是地址
第二个元素 是名称

感谢楼上的回答,,我就 数组的思路明白,是不明白如何写代码,还请麻烦写点代码提示一下

UP

复制内容到剪贴板

代码:

<%
Dim sContent, aCon, aStr, sTitle, sUrl, I
sContent = "..."
aCon = Split(sContent, "<?lkstar?>")
Responet.Write("<table border='1'><tr><td>序号</td><td>名称</td><td>地址</td></tr>")
For I = 1 To UBound(aCon)
    aStr = Split(aCon(I), ".htm[")
    sTitle = "[" & aStr(1)
    sUrl = aStr(0) & ".htm"
    Responet.Write("<tr><td>" & I & "</td><td>" & sTitle & "</td><td>" & sUrl & "</td></tr>"
Next
Respone.Write("</table>")
%>

多谢楼上回答,非常感谢!