<%
dim var_id
var_id=request.QueryString("id")      '获得要修改的记录的网站编号
session("id")=var_id
dim conn
set conn=server.CreateObject("ADODB.Connection")      '建立connection对象的实例
conn.open "web"       ' 利用数据源连接数据库

'以下打开记录集
dim strsql,rs
strsql="select * from web where id=" & var_id
set rs=conn.execute(strsql)
%>
<center>
<table width=100% border=1>
<form name="form1" method="post" action="update_form.asp">
<tr><td>网站名称</td><td><input type="text" name="name" size=20 value="<%=rs("name")%>" ></td>
</tr>
<tr><td>网站网址</td><td><input type="text" name="url" size=40 value="<%=rs("url")%>"  ></td></tr>
<tr><td>网站说明</td><td><input name="text" type="text" value="<%=rs("text")%>" size=40  ></td></tr>
<tr><td></td><td><input type="submit" value="确定"  ></td></tr>
</form></table>

[ 本帖最后由 qq757500610 于 2010-6-2 18:00 编辑 ]

var_id变量没有得到值，检查提交页面的代码

如何得到值

晕死……你自己都不知道自己这个程序要做什么……

用来更新记录的

你提交页面怎么写的？提交页面没有把值提交过来。

如果你的是没有传值。那你就先传值；
如果你传值了，估计就是变量有问题，可以按下面的代码试试：
dim strsql,rs
strsql="select * from web where id='" & var_id&"'"
set rs=conn.execute(strsql)
%>
<center>
<table width=100% border=1>
<form name="form1" method="post" action="update_form.asp">
<tr><td>网站名称</td><td><input type="text" name="name" size=20 value="<%=rs("name")%>" ></td>
</tr>
<tr><td>网站网址</td><td><input type="text" name="url" size=40 value="<%=rs("url")%>"  ></td></tr>
<tr><td>网站说明</td><td><input name="text" type="text" value="<%=rs("text")%>" size=40  ></td></tr>
<tr><td></td><td><input type="submit" value="确定"  ></td></tr>
</form></table>