admin_jscreate.asp

来自「.asp网站程序。专业的二手汽车商店网站。功能强大」· ASP 代码 · 共 105 行

ASP
105 行
字号 
<!--#include file="Config.asp" -->
<HTML><HEAD><TITLE>其他管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="信诚网络二手市场">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<BODY  leftMargin=0>
	<%  msgtitle="其它管理"
    	select case request("action")
		case "jsSearch"
           call jsSearch()
		   msginfo="<li>操作成功！已经创建信息分类搜索表单。</li><br>"
           call Sysmsg(msgtitle,msginfo)
        case "jsNav"
           call jsNav()
		   msginfo="<li>操作成功！已经创建信息大类导航链接。</li><br>"
           call Sysmsg(msgtitle,msginfo)
         case else
		   msginfo=""
           call Sysmsg(msgtitle,msginfo) 
        end select

sub jsSearch()

foolcat="document.write('搜索：<select name=action size=1>');" & vbCrLf
foolcat = foolcat + "document.write('<option value=title selected>按物品名称</option><option value=content>按物品简介</option></select> 栏目：<select name=CateID size=1><option selected value=>所有分类</option>');"   & vbCrLf 
        set rs=server.createobject("adodb.recordset")    
		sql = "select * from "&CategoryName&"_Cate"
        rs.open sql,conn,1,1
        do while not rs.eof
    foolcat = foolcat + "document.write('<option value="& trim(rs("CateID")) &">" & trim(rs("CateName")) & "</option>');" & vbCrLf
        rs.movenext
        loop
        rs.close
		set Rs=nothing
   foolcat = foolcat + "document.write('</select> ');" & vbCrLf
   foolcat = foolcat + "document.write('<input type=text name=keyword size=12 value=关键字 maxlength=50> ');" & vbCrLf
   foolcat = foolcat + "document.write('<input type=submit name=Submit value=搜索>');"
   
   jsname=Server.MapPath("jsSearch.js")
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   Set fout = fso.CreateTextFile(jsname)
   fout.WriteLine foolcat
'关闭连接
  fout.close
  set fout = nothing
end sub
	
sub jsNav()
content="<table width=""770"" height=""22"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""0"" background=""images/index-t.gif"">" & vbCrLf
content=content&"<tr><td align=""center"" class=""bottomindex""> <a href=""./"" ><img src=""images/d_down1.gif""  align=""absmiddle"" border=""0""></a> " & vbCrLf
    set rs=server.createobject("adodb.recordset")    
	sql = "SELECT * FROM "&CategoryName&"_Cate order by CateID asc"
    rs.open sql,conn,1,1
      if not(rs.eof and rs.bof) then 
       do while not rs.eof
        content = content & "| <a href=""SoftList.asp?CateID="&rs("CateID")&""">"&rs("CateName")&"</a> " & vbCrLf
       rs.movenext 
      loop
      end if
    Rs.Close
    set Rs=nothing
content=content&"</td></tr></table>"

jsname=Server.MapPath("navbar.htm")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(jsname)
fout.WriteLine content
'关闭连接
fout.close
set fout = nothing
end sub

%>
      <% 
		sub Sysmsg(msgtitle,msginfo)
		%>
      <br> 
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
  <tr> 
          
    <th ><%=msgtitle%></th>
        </tr>
        <tr> 
          
    <td class="forumRow"><%=msginfo%>
     <br><li><a href="admin_jsCreate.asp?action=jsNav" class="ArticleList">创建信息大类导航链接</a></li><br>            
      <br>
      <li><a href="admin_jsCreate.asp?action=jsSearch" class="ArticleList">创建信息分类搜索表单</a><br>
        <br>
        <font color="#FF0000">注意：</font>如果你的空间不支持FSO，请手动编辑jsSearch.js和navbar.htm这两个文件。 
    </td>
        </tr>
        <tr> 
          
    <td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" >&lt;&lt; 
      返回上一页</a></td>
        </tr>
      </table>
      <br> 
      <%end sub %>
</BODY></HTML>
<%
CloseDatabase
%>

admin_jscreate.asp - 源码说明

本页面展示了「.asp网站程序。专业的二手汽车商店网站。功能强大」中的 admin_jscreate.asp 源码文件，采用 ASP 编程语言编写，共 105 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?