asp 查詢指定id記錄進行修改

asp教程 查詢指定id記錄進行修改
<%
Dim Id,Sql,Url
Id=Html_Encode(Request.QueryString("id"))
If id="" Then
 Response.Write("數據傳輸過程被修改過了,服務器拒絕操作.")
 Response.End
ElseIf Not IsNumeric(Id) Then
 Response.Write("數據傳輸過程被修改過了,服務器拒絕操作.")
 Response.End
Else
 Call Hit(id)
 Url=Request.ServerVariables("Script_Name")
 Sql="Select * from young Where id="&Id
 On Error Resume Next
 Call OpenDb
 Set Rs=Conn.Execute(Sql)
 If Not Rs.eof Then
 Did=Rs(0)
 Pid=Rs(1)
 Cid=Replace(Replace(Rs(2),"Script",""),"<","")
%>

原理很簡單，現在我們把獲取id的值哦。