成品网站介绍
成品网站是通过对各行各业网站的细分研究,由专业人员经过精心策划、设计和制作,做好大量现成网站,在网站超市分类展示并打包出售,用户可以将成品网站安装到自己的主机空间。每个成品网站的设计风格、栏目布局规划、测试内容都参照该行业的实际网站需求和案例来进行制作,使之更接近行业用户的最终需求。每一款成品网站都提供在线演示和试用体验,让用户全面了解网站的设计和功能。所见即所得、网站上线快、升级维护方便、性价比高等特点。
选模板:按照行业分类
-
<%
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,性能更卓越 | 未见 |
当前位置: >> 成品网站|智能建站
<%
'**************************************************
'函数名: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%>
<%
rs.movenext
Next
%>
当前分类:<%=typenames%>
<%
end if
for wn=1 to maxperpage
if rs.eof then exit for%>
模板编号:No.<%=rs("sid")%>
应用分类:<%=rs("proTname")%>
行业分类:<%=rs("webTname")%>
" rel="nofollow" title="点击查看 <%=rs("webname")%> 演示" target="_blank"> .html" title="点击查看 <%=rs("webname")%> 详情" target="_blank"> .html" title="点击购买 <%=rs("webname")%>" target="_blank">
应用分类:<%=rs("proTname")%>
行业分类:<%=rs("webTname")%>
" rel="nofollow" title="点击查看 <%=rs("webname")%> 演示" target="_blank"> .html" title="点击查看 <%=rs("webname")%> 详情" target="_blank"> .html" title="点击购买 <%=rs("webname")%>" target="_blank">
<%
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
%>