<%
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的值哦。