成品网站介绍
成品网站是通过对各行各业网站的细分研究,由专业人员经过精心策划、设计和制作,做好大量现成网站,在网站超市分类展示并打包出售,用户可以将成品网站安装到自己的主机空间。每个成品网站的设计风格、栏目布局规划、测试内容都参照该行业的实际网站需求和案例来进行制作,使之更接近行业用户的最终需求。每一款成品网站都提供在线演示和试用体验,让用户全面了解网站的设计和功能。所见即所得、网站上线快、升级维护方便、性价比高等特点。
选模板:按照行业分类
    <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set rs = Server.CreateObject("ADODB.Recordset") Sql="SELECT MAX(b.tname) AS tname, MAX(b.id) AS id, COUNT(*) AS num FROM xunweb a INNER JOIN xunweb_webType b ON a.webType = b.id GROUP BY a.webType ORDER BY MAX(b.xuhao)" rs.Open Sql,conn,1,1 while not rs.eof response.Write("
  • "& rs("tname") &" ("& rs("num") &")
  • ") '查询类别1-行业:2-应用, 类别ID, 页码 rs.movenext wend rs.close %>
选模板:按照应用分类
    <% Set rs = Server.CreateObject("ADODB.Recordset") Sql="SELECT MAX(b.tname) AS tname, MAX(b.id) AS id, COUNT(*) AS num FROM xunweb a INNER JOIN xunweb_proType b ON a.proType = b.id GROUP BY a.proType" rs.Open Sql,conn,1,1 while not rs.eof response.Write("
  • "& rs("tname") &" ("& rs("num") &")
  • ") '查询类别1-行业:2-应用, 类别ID, 页码 rs.movenext wend rs.close %>
成品网站介绍 最新优惠政策:买成品网站送域名一个,一次性购买多少年就送多少年!
企业建站套餐 第二代智能建站优势餐 传统建站介绍餐
价格 智能建站免费提供对应技术支持,一对一理想模式 需要找技术人员开发及维护,需要花费大量薪资成本
周期 千套网站建站模板任您选择,找到最适合自己的网站设计理念,省时省力 需要与设计师反复沟通,花费较多时间和精力在设计理念与维护上
维护 全功能智能网站管理系统,无需技术,会用鼠标就能维护网站 网站无法维护,利用率低下,难以吸引客户。大量的网络推广费用白白流失。
开通 一键式建站,即开即用。轻松实现自助建站 自行建站,修改,摸索,遇到问题不能及时处理
备份 智能建站后台备份功能,及时保存客户的重要数据,即使操作不当,可以及时恢复 对系统不了解的情况下,一旦操作不当可能造成数据的丢失
服务 专业的售后服务团队全程为您提供金牌服务 自架系统成本高,耗费精力
故障解决 一体化套餐服务,给你更快速便捷的服务 需要判断程序,空间,域名的故障,周旋于主机和软件供应商。耗时耗力
多样化 免费提供千套建站模板,一键即可改变您的风格,随想随换,个性随你把握 网站样式单一死板,不能替换,一模板从一而终
收录优化 集成网站的自动引擎优化利于客户推广自己网站的效果,优化系统极其详细 网站没有优化效果
数据安全 客户可随意更换模板并提供数据导入功能,确保数据不丢失 网站模板换过之后原有数据全部丢失,要重复劳动力重新去做
保密 后台有密码,验证码双重保险 普通后台密码登陆
增值 自动集成网站短信群发的功能,自动集成企业邮局登录功能 未见
备案 海外智能建站无需备案,稳定快速 未见
超值 云智能建站系统,不限制CPU/空间/iis,性能更卓越 未见
<% skey = trim(Restr(request("skey"))) stype = trim(Restr(request("stype"))) typeid = trim(Restr(request("typeid"))) if stype = "0" then stype = "" if typeid = "0" then typeid = "" %>
当前位置: >> 成品网站|智能建站         
" style="<% if skey = "" then response.Write("color:#999999") else response.Write("color:#333333") end if %>" onfocus="if(this.value=='请输入搜索模板关键词'){this.value='';this.style.color='#333333'}" onblur="if(this.value=='请输入搜索关键词'||this.value==''){this.value='请输入搜索模板关键词';this.style.color='#999999'}" />  
<% '************************************************** '函数名:Restr '作 用:过滤非法的SQL字符 '参 数:strChar-----要过滤的字符 '返回值:过滤后的字符 '************************************************** Function Restr(strChar) If strChar = "" Or IsNull(strChar) Then Restr = "" Exit Function End If Dim strBadChar, arrBadChar, tempChar, i strBadChar = "+,',--,%,^,&,?,<,>,[,],{,},\,;,:," & Chr(34) & "," & Chr(0) & "" arrBadChar = Split(strBadChar, ",") tempChar = strChar For i = 0 To UBound(arrBadChar) tempChar = Replace(tempChar, arrBadChar(i), "") Next tempChar = Replace(tempChar, "@@", "@") Restr = trim(tempChar) End Function Set rs = Server.CreateObject("ADODB.Recordset") 'set xunweb = Server.CreateObject("xweb.xclass") 'xunweb.xunwebPages stype, typeid, conn,rs sql= "select a.*,b.tname as webTname,c.tname as proTname from xunweb a inner join xunweb_webType b on a.webType = b.id " If stype = "1" Then sql = sql & " and b.id = " & typeid End If sql = sql & " inner join xunweb_proType c on a.proType = c.id " If stype = "2" Then sql = sql & " and c.id = " & typeid End If if skey <> "" then sql = sql & " where a.webname like '%"& skey &"%'" end if sql = sql & " order by a.id desc" 'Response.Write sql rs.Open sql, conn, 1, 1 response.Write(err.description) if not rs.eof then dim typenames dim pageid,maxperpage,mpage,totalput,wn if trim(request("pageid"))<>"" then pageid = cint(request("pageid")) else pageid = 1 if pageid = "" or pageid =< 1 then pageid = 1 maxperpage = 16 '每页显示资源数目 rs.pagesize = maxperpage mpage = rs.pagecount '得到总页数 totalput = rs.recordcount '得到总记录数 rs.move(pageid-1)*maxperpage if not rs.eof then if stype = "1" then typenames = "按照行业分类 > " & rs("webTname") & "" elseif stype = "2" then typenames = "按照应用分类 > " & rs("proTname") & "" end if if skey <> "" then typenames = typenames & " 搜索关键词(" & skey &")" end if end if if stype = "" then stype = "0" if typeid = "" then typeid = "0" %>
<% if typenames <> "" then%>
当前分类:<%=typenames%>
<% end if for wn=1 to maxperpage if rs.eof then exit for%> <% rs.movenext Next %>
<% if mpage>1 then%>
<%'页码开始 response.write("共" & rs.recordcount & "个,每页"& maxperpage &"个 ") dim ye,m,k,n 'dim ye,m,k ye=9 if pageid+ye-m>999 then ye=3 if pageid+ye-m>99 then ye=5 if pageid > 1 then%>上一页<%end if%> <%if pageid >= ye then%>  1 ... <%end if%> <%m=0 if mpage - pageid <= 1 then k = (ye-1)/2-(mpage - pageid) else k = 0 for n = (k+(ye-1)/2) to 0 step -1 if pageid-n>0 then m=m+1%>  <%if n<>0 then%><%end if%><%=pageid-n%><%if n<>0 then%> <%end if end if next for n = 1 to ye-m if pageid+n <= mpage then%> <%=pageid+n%> <%end if next%> <%if pageid < mpage-(ye/2) then%> ... <%=mpage%><%end if%> <%if pageid < mpage-(ye/2) then%> 下一页<%end if%><% '页码结束 %>
<%end if else%> 当前条件下没有模板数据 <% end if rs.close conn.close %>