asp 查询指定id记录进行修改

asp教程 查询指定id记录进行修改
<%
Dim IdSqlUrl
Id=Html_Encode(RequestQueryString("id"))
If id="" Then
ResponseWrite("数据传输过程被修改过了服务器拒绝操作")
ResponseEnd
ElseIf Not IsNumeric(Id) Then
ResponseWrite("数据传输过程被修改过了服务器拒绝操作")
ResponseEnd
Else
Call Hit(id)
Url=RequestServerVariables("Script_Name")
Sql="Select * from young Where id="&Id
On Error Resume Next
Call OpenDb
Set Rs=ConnExecute(Sql)
If Not Rseof Then
Did=Rs()
Pid=Rs()
Cid=Replace(Replace(Rs()"Script""")"<""")
%>

原理很简单现在我们把获取id的值哦