⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 head.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<html>
<head>
<title><%=webname%>---联系QQ:6439358,联系邮箱vqqq59r@163.com,网站www.vqqq.com,谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--
function check()
{
   if(checkspace(document.searchform.searchkey.value !='请输入关键字'))  {
	document.searchform.searchkey.focus();
	alert("请输入查讯关键字!");
	return false;
  }
  if(checkspace(document.searchform.searchkey.value))  {
	document.searchform.searchkey.focus();
	alert("请输入查讯关键字!");
	return false;
  }
   document.searchform.submit();
}
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
//-->
</script>
<%
dim rssearch
dim sqlsearch
set rssearch=server.createobject("adodb.recordset")
sqlsearch = "select * from catson order by catsonid asc"
rssearch.open sqlsearch,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rssearch.eof 
        %>
subcat[<%=count%>] = new Array("<%= trim(rssearch("catsonname"))%>","<%= trim(rssearch("catid"))%>","<%= trim(rssearch("catsonid"))%>");
        <%
        count = count + 1
        rssearch.movenext
        loop
        rssearch.close
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.catsonid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.catsonid.options[document.myform.catsonid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
		}
</script>
</HEAD>
<body topmargin=0 leftmargin=0 bgcolor=<%=bgcolor%>>
<!--#include file="head2.asp"-->

</body>
</html>

⌨️ 快捷键说明

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