谘詢熱線：

400-893-2898

你所在的位置：首頁  /  案例展示  /  成功案例
案例展示
成功案例
成功案例

發布者：AG水果拉霸  時間：2016-12-29


下一個：成功案例
上一個：暫無相關信息
『返回上一頁』
『返回首頁』

<% function pagelocations() pagelocations="" if request.QueryString("SortID")="" then pagelocations=pagelocations&"成功案例" elseif not IsNumeric(request.QueryString("SortID")) then pagelocations=pagelocations&"- 信息ID讀取錯誤" elseif conn.execute("select * from Southidc_OthersSort Where ViewFlagch and ID="&request.QueryString("SortID")).eof then pagelocations=pagelocations&"- 信息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 pagelocations=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")%>

發布者：AG水果拉霸  時間：<%=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 pagelocations2() pagelocations2="" 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 pagelocations2=pagelocations2&""&rs("OthersNamech")&"" rs.close set rs=nothing end if end function %>