go.asp

来自「一个用ASP和ACCESS做的网络建站系统 1.WAP站长论坛网站系统【测试版」· ASP 代码 · 共 52 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
dim id

	id = Request.QueryString("id")
	if not isnumeric(id) then id=""
if id<>"" then
IF  Request.QueryString("Action")="exid" Then
	call exid
else
	call main
End IF
else
Response.Redirect "index.asp"
end if
Function exid
dim sql

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM link  where id="&id
	Rs.Open Sql,conn,1,3
	if not (rs.bof and rs.eof)  then 
		rs("exid")=rs("exid")+1
		rs("pid")=rs("pid")+1
		rs.update()
		url=rs("url")
		Rs.close
		set rs=nothing
		Response.Redirect url
	else
		Rs.close
		set rs=nothing
		Response.Redirect "index.asp"
	end if
end Function


Function main

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM link  where id="&id
	Rs.Open Sql,conn,1,3
	if not (rs.bof and rs.eof)  then 
		rs("enid")=rs("enid")+1
		rs("pid")=rs("pid")+1
		rs.update()
	end if
		Rs.close
		set rs=nothing
		Response.Redirect "index.asp"
end Function%>