无源不平衡治理模块结构

上一个

下一个

Top

在线客服

客服热线

180-2817-3863

客服组：在线客服

<% function pageLocation() pageLocation="" if request.QueryString("SortID")="" then pageLocation=pageLocation&"项目案例" elseif not IsNumeric(request.QueryString("SortID")) then pageLocation=pageLocation&"- 信息ID读取错误" elseif conn.execute("select * from Southidc_OthersSort Where ViewFlagch and ID="&request.QueryString("SortID")).eof then pageLocation=pageLocation&"- 信息ID读取错误" 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 pageLocationen() pageLocationen="" if request.QueryString("SortID")="" then pageLocationen=pageLocationen&"Project cases" elseif not IsNumeric(request.QueryString("SortID")) then pageLocationen=pageLocationen&"- 信息ID读取错误" elseif conn.execute("select * from Southidc_OthersSort Where ViewFlagch and ID="&request.QueryString("SortID")).eof then pageLocationen=pageLocationen&"- 信息ID读取错误" 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 pageLocationen=rs("SortNameen") rs.close set rs=nothing end if end function function pageContent(DataFrom,ID) dim Pictures if ID="" or not IsNumeric(ID) then response.write "

No Information

" elseif conn.execute("select * from "&DataFrom&" Where ViewFlagch and ID="&ID).eof then response.write "

No Information

" 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 BigPicArr=split(rs("BigPic"),",") %>

<%=rs("OthersNamech")%>

<%=prepro("Southidc_Others",rs("ID"),rs("SortID"))%>

<%=nextpro("Southidc_Others",rs("ID"),rs("SortID"))%>

<% rs.update rs.close set rs=nothing end if end function function nextpro(DataFrom,ID,SortID) dim rs,sql,AutoLink set rs = server.createobject("adodb.recordset") sql="select Top 1 * from "&DataFrom&" where ViewFlagch and SortID="&SortID&" and ID>"&ID&" order by Sequence asc,id asc" rs.open sql,conn,1,3 if rs.Eof then rs.close sql="select Top 1 * from "&DataFrom&" where ViewFlagch and ID<>"&ID&" and SortID="&SortID&" order by Sequence asc,id asc" rs.open sql,conn,1,3 if rs.Eof then response.write "" else If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "honorshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"&SortPath="&rs("SortPath") End If response.write "下一个" end if elseif ViewNoRight(rs("GroupID"),rs("Exclusive")) then If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "honorshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"&SortPath="&rs("SortPath") End If response.write "下一个" end if rs.close set rs=nothing end function function prepro(DataFrom,ID,SortID) dim rs,sql,AutoLink set rs = server.createobject("adodb.recordset") sql="select Top 1 * from "&DataFrom&" where ViewFlagch and SortID="&SortID&" and ID<"&ID&" order by Sequence desc,id desc" rs.open sql,conn,1,3 if rs.Eof then rs.close sql="select Top 1 * from "&DataFrom&" where ViewFlagch and ID<>"&ID&" and SortID="&SortID&" order by Sequence desc,id desc" rs.open sql,conn,1,3 if rs.Eof then response.write "" else If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "honorshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"&SortPath="&rs("SortPath")&"" End If response.write "上一个" end if elseif ViewNoRight(rs("GroupID"),rs("Exclusive")) then If ISHTML = 1 Then AutoLink = ""&ProName&""&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "honorshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"&SortPath="&rs("SortPath") End If response.write "上一个" end if rs.close set rs=nothing end function function ruanfn(DataFrom,SortID,ID,num) dim rs,sql,AutoLink set rs = server.createobject("adodb.recordset") Randomize() sql="select Top "&num&" * from "&DataFrom&" where ViewFlagch and SortID="&SortID&" and ID<>"&ID&" order by rnd(-(id+" & rnd() & "))" rs.open sql,conn,1,3 co=1 if rs.Eof then else do while not rs.eof If ISHTML = 1 Then AutoLink = "honorshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "honorshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"&SortPath="&rs("SortPath")&"" End If %>

" title="<%=rs("OthersNamech")%>" />

<%=rs("OthersNamech")%>

<% co=co+1 rs.movenext loop end if rs.close set rs=nothing end function function pageLocation2() pageLocation2="" if request.QueryString("ID")="" then elseif not IsNumeric(request.QueryString("ID")) then elseif conn.execute("select * from Southidc_Others Where ViewFlagch and ID="&request.QueryString("ID")).eof then else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Southidc_Others where ViewFlagch and ID="&request.QueryString("ID") rs.open sql,conn,1,1 pageLocation2=pageLocation2&""&rs("OthersNamech")&"" rs.close set rs=nothing end if end function %>