<%
function pageLocation()
pageLocation=""
if request.QueryString("SortID")="" then
pageLocation=pageLocation&"工程案例"
elseif not IsNumeric(request.QueryString("SortID")) then
pageLocation=pageLocation&""
elseif conn.execute("select * from Southidc_OthersSort Where ViewFlagch and ID="&request.QueryString("SortID")).eof then
pageLocation=pageLocation&""
else
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Southidc_OthersSort where ViewFlagch and ID="&request.QueryString("SortID")
rs.open sql,conn,1,1
pageLocation=""&rs("SortNameCh")&""
rs.close
set rs=nothing
end if
end function
function pageContent(DataFrom,ID)
if ID="" or not IsNumeric(ID) then
response.write "
暂无相关信息
"
elseif conn.execute("select * from "&DataFrom&" Where ViewFlagch and ID="&ID).eof then
response.write "
暂无相关信息
"
else
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from "&DataFrom&" where ViewFlagch and ID="&ID
rs.open sql,conn,1,3
%>