go.asp

一个利用数据库的关联

<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<!-- #include file="conn.asp" -->
<%
If Request.QueryString("LinkId") <> "" Then
	Dim rs, con, cmd, sql, link, param
	Set con = GetDBConnection()
	Set rs = Server.CreateObject("ADODB.Recordset")
	Set cmd = Server.CreateObject("ADODB.Command")

	sql = "SELECT * FROM Links WHERE pkId = @pkId"
	cmd.ActiveConnection = con
	cmd.CommandText = sql
	
	Set param = cmd.CreateParameter
	param.Name = "@pkId"
	param.Type = adInteger
	param.Direction = adParamInput
	param.Value = Request.QueryString("LinkId")
	cmd.Parameters.Append param
	
	Set rs = cmd.Execute
	
	link = ""
	If Not(rs.EOF) Then
		link = rs("Link")
	End If
	
	rs.Close
	con.Close
	
	Set rs = Nothing
	Set cmd = Nothing
	Set con = Nothing
	
	If link <> "" Then
		Response.Redirect(link)
	End If
End If
%>

您访问的信息有错误，<a target="_blank" href="http://www.mybu.net">请联系管理员进行修复</a>！
<br /><br />
你可以点击浏览器上的后退按钮，返回原来的页面！ - MyBu.Net