showresult.asp

一个ASP做的政府网站的全站程序

<%@ Language=VBScript %>
<!--#include file="connect.asp"-->

<%dim sqlStr 
	sqlStr="select fldtemplate from tblcolumn where fldcolumn='" & request("column") & "'"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open sqlStr,dataConn,1,1
	
	select case rs("fldtemplate")
	case "template1.asp"
		response.redirect "showText02.asp?id=" & request("id")
	case "template2.asp"
		response.redirect "showText01.asp?id=" & request("id")
	case ""
		response.redirect "showText02.asp?id=" & request("id")
	case "template4.asp"
		response.redirect "showText02.asp?id=" & request("id")
	case else
		response.redirect rs("fldtemplate") & "?id=" & request("id")
	end select
	
	rs.close
	set rs=nothing
  %>