📄 webtop.asp
字号:
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/yq_style.css" rel="stylesheet" type="text/css">
</HEAD>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" bgcolor="#FFFFFF" height="95">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=71 width=760>
<TBODY>
<TR>
<TD height=71 width=300><a href=http://yiqu.tiyi.net target=_blank><img src="images/logo.gif" border=0></a></TD>
<TD width=460 valign="bottom" bgcolor="#FFFFFF">
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right">
<a href="<%=weburl%>">首页</a> -
<a href="search.asp">搜索</a> -
<a href="pay.asp">付费中心</a> -
<a href="reg.asp">注册</a> -
<%if session("user") <>"" then%>
<a href="logout.asp">退出</a> -
<%else%>
<a href="login.asp">登录</a> -
<%end if%>
<strong><a href="">欢迎您
<%if session("user")="" then
response.write "客人"
else
response.write session("user")
end if
%></a></strong>
</div></td>
</tr>
<tr>
<td height="12"> </td>
</tr>
<tr>
<td>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="brows.asp"><img src="images/bootn_01.gif" width="103" height="34" border="0"></a></td>
<td><a href="sell.asp"><img src="images/bootn_02.gif" width="104" height="34" border="0"></a></td>
<td><a href="cat.asp?action=new"><img src="images/bootn_03.gif" width="104" height="34" border="0"></a></td>
<td><a href="User_home.asp"><img src="images/bootn_04.gif" width="104" height="34" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</table>
<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>
<table width="760" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="12"><img src="images/search_03.gif" width="12" height="63"></td>
<td width="14" background="images/search2_05.gif"> </td>
<td width="383" background="images/search2_05.gif">
<table width="93%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/search2.gif" width="223" height="21"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="20"><table width="400" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<FORM action="research.asp" name="myform" method="post">
<td width="400">
<%
sqlsearch = "select * from cat"
rssearch.open sqlsearch,conn,1,1
if rssearch.eof and rssearch.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="catid" onChange="changelocation(document.myform.catid.options[document.myform.catid.selectedIndex].value)" size="1">
<option selected value="<%=trim(rssearch("catid"))%>"><%=trim(rssearch("catname"))%></option>
<%
dim selclass1
selclass1=rssearch("catid")
rssearch.movenext
do while not rssearch.eof
%>
<option value="<%=trim(rssearch("catid"))%>"><%=trim(rssearch("catname"))%></option>
<%
rssearch.movenext
loop
end if
rssearch.close
%>
</select>
<select name="catsonid">
<%sqlsearch="select * from catson where catid="&selclass1
rssearch.open sqlsearch,conn,1,1
if not(rssearch.eof and rssearch.bof) then
%>
<option selected value="<%=rssearch("catsonID")%>"><%=rssearch("catsonname")%></option>
<% rssearch.movenext
do while not rssearch.eof%>
<option value="<%=rssearch("catsonID")%>"><%=rssearch("catsonname")%></option>
<% rssearch.movenext
loop
end if
rssearch.close
set rssearch = nothing
%>
</select>
<input name=name1 type="text" size="10" onfocus="if(this.value=='请输入关键字')this.value='';" size=10 value=请输入关键字>
</td>
<td width="62"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
<tr>
<td><div align="center">
<input type="image" border="0" name="submit" src="images/sousuo1.gif" width="54" height="18">
</div></td>
</tr>
</table>
</div></td>
</form>
</tr>
</table></td>
</tr>
</table></td>
<td width="65"><img src="images/search_05.gif" width="65" height="63"></td>
<td width="400" background="images/search4_08.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="24"> <table width="97%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><a href=gqxx/addgq.asp><img src="images/search3_03.gif" width="66" height="19" border=0></a></td>
<td><a href=class.asp><img src="images/search3_05.gif" width="66" height="19" border=0></a></td>
<td><a href=classearch.asp><img src="images/search3_07.gif" width="66" height="19" border=0></td>
<td><a href=tejia.asp><img src="images/search3_09.gif" width="67" height="19" border=0></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="20"><TABLE align=right border=0 cellPadding=0 cellSpacing=0
width="80%">
<TBODY>
<TR>
<TD><A href="http://tiyi/es/User.Asp?action=UserReg">会员注册</A>
<SPAN class=l13><A href="http://tiyi/es/User.asp?action=UserEdit">修改信息</A>
<A href="http://tiyi/es/User.asp">用户操作</A>
<SCRIPT src="/online.htm"></SCRIPT>
</SPAN></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
<td width="12"><img src="images/search_10.gif" width="12" height="63"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -