ASP分类目录源码 v1.0 源码下载

不可以，一般网页显示的源码 都不会显示脚本的 ，但是像acc一般都放在install里面的data文件里面www.zgxue.com防采集请勿采集本网。

源码大小：1.16MB 源码语言：简体中文 源码类型：国产软件 源码授权：开源软件 更新时间：2020-11-24 16:10:28 源码类别：网址导航 源码官网： 官方网址 网友评分： 应用平台：ASP/Access

 本网站分类目录具备来路、去路统计功能，支持两级分类。后台功能齐全，可以方便的设置网站各项要素，可以自由设置网站分类信息，也可以对网站进行添加、修改、删除和加入黑名单等操作。本系统特点速度快、占用服务器资源小、扩展功能强大，能方便快捷地建立您的网站目录。

language = javascript> var t=new Array(); var a=0; t[a++]=new tree(0,0,"关于公司","starpage.htm") <!--#代表的是地址--> t[a++]=new tree(10,0

功能介绍：

循环所有,在列前判断是否指定类型,如是,显示即可。循环完毕即是您需要的代码。

对每一个登录网站都进行人工审核；

set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录 set objfoldercont "<td>"&objfileitem.type&"</td>" '类型 response.write

对搜索关键词具有智能辨别功能；

01.《医疗器械分类目录》的说明 02.6801基础外科手术器械 03.6802显微外科手术 08.6807胸腔心血管外科手术器械 09.6808腹部外科手术器械 10.6809泌尿肛肠外

对每一个网站都进行点入和点出数统计；

6801至6870 加上6877这类 一共71大类(代码)

对每一个网站可以进行网站打分测评；

源码放在网络空间上,自己建立一个网站。请先确认你的空间是支 持哪种类型的源码,比如是asp+access呢还是php+mysql等。 2:如是asp类型的,请把所有源码上传到网站根目录

程序要求：asp+access

.category-list div { font-family: "lucida grande","lucida sans unicode",arial,verdana,sans-serif; text-shadow: 0 1px 2px #ddd } .category-list div:hover .hid

程序后台：你的域名/admin/ 用户名和密码都是admin

比如你看到的一个网页,你看着是这样,实际上都是用代码来写的,就是机器能看懂的东西,大概是这样,以前是01代码组成的,现在该成通俗意懂类型英语的东西,不知道这样解释你明

下载地址如下：

CODEPAGE="936"%> 因为你包含的文件中 再次声明了语言类型所以 link.asp"--> 类似! file 一个是引用文件相对路径 virtual 是对于根目录的路径

网硕互联电信下载

提供商会给你提供ftp的用户名和密码 根据这个,你能用ftp软件(例如leapftp)把代码上传到虚拟主机。 至于上传到什么目录,和虚拟主机类型有关。你可以截图再问。

港中数据电信下载

《统计上使用的产品分类目录》499页,蓄电池:394030,电动车蓄电池代码:3940301103,

河南紫田网通下载

打开后查看代码找到“产品售价”“产品规格”在产品售价:后会有<%=rs(xx)%>的字样,多数是这样的,这里的rs(xx)就是从数据库中提取的变量,删掉就好,其实要是改asp代

易阳网络电信下载

方法很多 给你个参考: <?php query_posts('cat=1&showposts=5'); ?>//cat是要调用的分类ID,showposts是需要显示的文章数量 <?php while (have_posts()) : the_post()

<%  dim conn  dim connstr  dim db  db="../data/1du.asp"  Set conn = Server.CreateObject("ADODB.Connection")  connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)  conn.Open connstr    sub closedatabase()    conn.close         set conn=Nothing     End sub %> <title>错误提示</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <% dim founderr,errmsg founderr=false errmsg="" if Request.form("MM_insert") then if request.form("action")="newp" then sql="select * from p_class_small" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew dim p_small_type,p_type p_small_type=trim(replace(request.form("p_small_type"),"'","")) p_type=trim(replace(request.form("p_type"),"'","")) p_small_type_e=trim(replace(request.form("p_small_type_e"),"'","")) if p_small_type="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须输入栏目名称名称！" else   rs("p_small_type")=p_small_type End if if p_type="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须选择一级分类！" else   rs("p_type")=p_type End if '由P_type得到p_type_e    sql_p="select p_type_e from p_class where p_type='"&p_type&"'"             set rs_p=server.createobject("adodb.recordset")             rs_p.open sql_p,conn,1,1    if Not(rs_p.BOF and rs_p.EOF) then       p_type_e=rs_p("p_type_e")    end if    rs_p.close    set rs_p=nothing  rs("p_type_e")=p_type_e rs("p_small_type_e")=p_small_type_e if Not founderr then rs.update rs.close set rs=Nothing   closedatabase response.redirect "admin_p_small.asp" else Call diserror() response.End End if End if if request.form("action")="editp" then if request.Form("id")="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！" else   if Not isInteger(request.form("id")) then     founderr=true     errmsg=errmsg+"<br>"+"<li>非法的id参数。"   End if End if if founderr then   Call diserror()   response.End End if sql="select * from p_class_small where p_small_id="&cint(request.Form("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 p_old_small_type=rs("p_small_type") p_old_small_type_e=rs("p_small_type_e") p_small_type=trim(replace(request.form("p_small_type"),"'","")) p_type=trim(replace(request.form("p_type"),"'","")) p_small_type_e=trim(replace(request.form("p_small_type_e"),"'","")) p_type_e=trim(replace(request.form("p_type_e"),"'","")) if p_small_type="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须输入栏目名称！" else   rs("p_small_type")=p_small_type End if if p_type="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须选择一级分类！" else   rs("p_type")=p_type End if '由P_type得到p_type_e    sql_p="select p_type_e from p_class where p_type='"&p_type&"'"             set rs_p=server.createobject("adodb.recordset")             rs_p.open sql_p,conn,1,1    if Not(rs_p.BOF and rs_p.EOF) then       p_type_e=rs_p("p_type_e")    end if    rs_p.close    set rs_p=nothing  rs("p_type_e")=p_type_e rs("p_small_type_e")=p_small_type_e if Not founderr then rs.update rs.close set rs=Nothing 连代更新属于此小类的信息 v_sql="select * from p_info where p_small_type='"&p_old_small_type&"'" set v_rs=server.createobject("adodb.recordset") v_rs.open v_sql,conn,1,3 if Not(v_rs.BOF or v_rs.EOF) then do while not v_rs.eof v_rs("p_small_type")=p_small_type v_rs("p_small_type_e")=p_small_type_e v_rs.update v_rs.movenext loop End if v_rs.close set v_rs=Nothing response.redirect "admin_p_small.asp" else Call diserror() response.End End if End if if request.form("action")="delp" then if request.Form("id")="" then   founderr=true   errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！" else   if Not isInteger(request.form("id")) then     founderr=true     errmsg=errmsg+"<br>"+"<li>非法的id参数。"   End if End if if founderr then   Call diserror()   response.End End if sql="select * from p_class_small where p_small_id="&cint(request.Form("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 if Not(rs.BOF or rs.EOF) then rs.delete End if rs.close set rs=Nothing 连代删除属于此分类的信息 v_sql="select * from p_info where p_small_type='"&p_small_type&"'" set v_rs=server.createobject("adodb.recordset") v_rs.open v_sql,conn,1,3 if Not(v_rs.BOF or v_rs.EOF) then do while not v_rs.eof v_rs.delete v_rs.movenext loop End if v_rs.close set v_rs=Nothing closedatabase response.redirect "admin_p_small.asp" End if End if Call p_small_body() closedatabase %>内容来自www.zgxue.com请勿采集。