咨询热线:

400-893-2898

你所在的位置:首页  /  案例展示  /  成功案例
案例展示
成功案例
成功案例

发布者:晨浩丰  时间:2017-01-21


下一个:暂无相关信息
上一个:成功案例
『返回上一页』
『返回首页』

<% 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 pageContent(DataFrom,ID) dim Pictures 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 %>
<%=rs("OthersNamech")%>

发布者:晨浩丰  时间:<%=FormatDate(rs("Addtime"),14)%>

">
<%=rs("Contentch")%>

<%=nextpro("Southidc_Others",rs("ID"),rs("SortID"))%>
<%=prepro("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 = "caseshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "caseshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"" End If response.write "『上一个』"&rs("OthersNamech")&"" end if else If ISHTML = 1 Then AutoLink = "caseshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "caseshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"" End If response.write "『上一个』"&rs("OthersNamech")&"" 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 ID<"&ID&" and SortID="&SortID&" 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 = "caseshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "caseshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"" End If response.write "『下一个』"&rs("OthersNamech")&"" end if else If ISHTML = 1 Then AutoLink = "caseshow"&Separated&""&rs("ID")&""&Separated&""&rs("SortID")&"."&HTMLName&"" Else AutoLink = "caseshow.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&"" End If response.write "『下一个』"&rs("OthersNamech")&"" 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 %>