<%
Sub infoback(info)
response.Write ""
response.End
End Sub
Sub infohref(info, url)
response.Write ""
response.End
End Sub
Sub iderror
If request.QueryString("id") = "" Or Not IsNumeric(request.QueryString("id")) Then
Call infoback("非法操作！")
End If
End sub
Sub close_conn
conn.Close
Set conn = Nothing
End Sub
Sub close_rs
rs.Close
Set rs = Nothing
End Sub
Sub pcfinal_page
action = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
query = Split(request.servervariables("query_string"), "&")
For Each x in query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
response.Write("