asp怎样提取网页中的数据，放进表单初始值，存进数据库中？

asp怎样提取网页中的数据，放进表单初始值，存进数据库中？
http://handgood.124107.168.bz/zuli/hjinxhuo.html
红色箭头上方的数据 --------------------编程问答-------------------- 哦~~ --------------------编程问答-------------------- 撒撒旦法地方阿斯蒂芬 --------------------编程问答-------------------- HttpWebRequest获取页面数据
HttpWebRequest req = (HttpWebRequest)WebRequest.Create("");
req.Method = "GET";
HttpWebResponse myResponse= (HttpWebResponse)req.GetResponse();
StreamReader reader = new StreamReader(myResponse.GetResponseStream(), Encoding.Default);
string content = reader.ReadToEnd();
reader.Close();
再用正则解析 --------------------编程问答-------------------- 目标网页放在<iframe>中，然后直接找到元素id读取value --------------------编程问答-------------------- 不会搞啊！
<%
HttpWebRequest
HttpWebRequest req = (HttpWebRequest)WebRequest.Create("http://handgood.124107.168.bz/zuli/hjinxhuo.html ");
req.Method = "GET";
HttpWebResponse myResponse= (HttpWebResponse)req.GetResponse();
StreamReader reader = new StreamReader(myResponse.GetResponseStream(), Encoding.Default);
string content = reader.ReadToEnd();
reader.Close();
%>

'form.asp
'-----------------------------
<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body>

<form action=form_cl.asp method=post name=form1>
<p align="center">今日推荐股票号码(如果今天已经有推荐请不要提交，终端只显示今天的第一个推荐人的信息)：
<div align="center">
  <center>
  <table border="1">
    <tr>
      <td>
<p align="center"><TEXTAREA rows=1 cols=50 NAME="content"></TEXTAREA></td>
    </tr>
  </table>
  </center>
</div>
<div align="center">
  <table border="1">
    <tr>
      <td align="center"><p align="center">
<INPUT type="submit" value="提交推荐" ID="Submit1" NAME="Submit"></td>
      <center>
      <td align="center" width="50">　</td>
      <td align="center">
<p align="center">
<INPUT type="reset" value="清除推荐" ID="Reset1" NAME="Reset1">
      </td>
      </tr>
    </table>
  </center>
</div>
</form>
<br>
推荐记录：<br><hr>

</body>
</html>
'-----------------------------
'form_cl.asp
'--------------------------
<%@ Language=VBScript %>
<%
'忽略所有错误
on error resume next
'取表单输入的内容，并把内容中的硬回车替换为<br>
content=trim(Request("content"))
content=Replace(content,vbCrLf," ")

'琐定application对像，避免同时留言的错误。
Application.Lock

'建立文件对像
set fso = server.CreateObject ("scripting.FileSystemObject")

'设置路径，这里大家要注意，为什么要设两个路径。原因是asp写入文本文件时是从后面写内容，但要别人看到最新的留言，可以这样来实现：1，将记录留言的文件record.txt更名为record_temp.txt，然后建立新的record.txt，然后读出record_temp.txt的所有内容再写入record.txt中。最后删除record_temp.txt

path = server.MapPath ("record.txt")
temppath = server.MapPath ("record_temp.txt")

'把record.txt更名为record_temp.txt
fso.MoveFile path,temppath

'打开文件record.txt，８表示以可写方式打开，true表示如果文件存在就覆盖。
set record = fso.OpenTextFile (path ,8,true)

'将表单的内容附给变量
line3="推荐时间："&DATE()&"////////股票代码："&content&"<hr>"

'写入文件
record.WriteLine line3

'打开文件record_temp.txt，１表示以只读方式打开
set temprecord = fso.OpenTextFile(temppath,1)

'读取record_temp.txt文件的所有内容并写入record.txt文件的后面。今天已经推荐则不写入

'if mid$(temprecord.ReadAll,7,10)<>mid$(NOW(),1,10) then
record.WriteLine temprecord.ReadAll
'end if
'record.WriteLine line4
'关闭record_temp.txt文件
temprecord.close

'删除record_temp.txt文件，注：必须先关闭文件才可以删除。
fso.DeleteFile temppath,true

'释放application对像
Application.UnLock

'提示留言已保存，利用html的meta元素返回到form.asp
Response.Write "千钧荐股后台推荐列表记录。"
Response.Write "<br><a href=form.asp>点击这里返回</a>"
%>
'--------------------------
--------------------编程问答-------------------- 到底有没有人能够帮忙啊？ --------------------编程问答-------------------- 目前的搜索引擎爬虫还不能抓取js事件吧？

补充：.NET技术 ,  ASP.NET