| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 869 人关注过本帖
标题:[求助]菜鸟紧急求助搜索处理页面
只看楼主 加入收藏
dz2837269
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-9-2
收藏
 问题点数:0 回复次数:12 
[求助]菜鸟紧急求助搜索处理页面
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<form action="/searchbook.asp" target=_top method="post">
<tr height=20>
<td width="140" class="xt" align=center style="padding-top:5;padding-bottom:5;border-top:#996633 1px solid;border-bottom:1px solid #996633;border-right:1px solid #996633 dashed;" valign=middle>【出版社·搜索】</td>
<td width="70" align="right" valign=middle class="xt" style="border-top:#996633 1px solid;border-bottom:1px solid #996633;padding-top:5;padding-bottom:5">关键字:</td>
<td width="400" align="center" valign=middle class="xt" style="border-top:#996633 1px solid;border-bottom:1px solid #996633;padding-top:5;padding-bottom:5"><input type="text" name="s_book" size=25 value="请输入" onFocus="this.value='';">
<select name="s_class">
<option value="Bl_name" selected>按出版社</option>
<option value="Ba_author">按ISBN号</option>
</select>
<input name="submit" type="submit" value=" 搜 索 "></td>
</tr>
</form>
</table>
</body>
</html>
那位老大能指导小弟编一个搜索处理页面啊
搜索更多相关主题的帖子: solid 搜索 页面 
2006-09-07 21:33
litianyi520
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-5-18
收藏
得分:0 
一共2页 你再把这个页改动成我这样,看searchbook.asp
1.
<script language = "JavaScript">
function validata_form() {

if (checkspace(document.form.s_book.value))
{
alert('请输入关键字!');
document.form.s_book.focus();
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<form action="searchbook.asp" method="post" name="form" onSubmit="return validata_form()">
<tr height=20>
<td width="140" class="xt" align=center style="padding-top:5;padding-bottom:5;border-top:#996633 1px solid;border-bottom:1px solid #996633;border-right:1px solid #996633 dashed;" valign=middle>【出版社·搜索】</td>
<td width="70" align="right" valign=middle class="xt" style="border-top:#996633 1px solid;border-bottom:1px solid #996633;padding-top:5;padding-bottom:5">关键字:</td>
<td width="400" align="center" valign=middle class="xt" style="border-top:#996633 1px solid;border-bottom:1px solid #996633;padding-top:5;padding-bottom:5"><input type="text" name="s_book" size=25 value="请输入" onFocus="this.value='';">
<select name="s_class">
<option value="Bl_name" selected>按出版社</option>
<option value="Ba_author">按ISBN号</option>
</select>
<input name="submit" type="submit" value=" 搜 索 " ></td>
</tr>
</form>
</table>
2.searchbook.asp
<table>
<tr>
<td align="center">编号</td>
<td align="center">书名</td>
</tr>


<%
set rs=server.CreateObject("adodb.recordset")
s_class=trim(request("s_class"))
s_book=trim(request("s_book"))
if s_class ="Bl_name" then
rs.open"select * from 数据库表 where 出版社 like '%" & s_book &"%'",conn,1,1
end if
if s_class ="Ba_author" then
rs.open"select * from 数据库表 where ISBN编号="&s_book,conn,1,1
end if
if not rs.eof and not rs.bof then
%>
<%
rs.PageSize =30'每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
For i=1 To x
%>
<tr>
<td><%=trim(rs("编号"))%></td>
<td><%=trim(rs("书名"))%></td>
</tr>
<%
rs.movenext
next
%>
</table>

<table>
<tr>
<td>
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")

rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)

Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next

Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )

if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if

if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if

Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "条信息" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
end if
%>
</td>
</tr>
</table>

[此贴子已经被作者于2006-9-9 10:16:11编辑过]


2006-09-08 16:33
dz2837269
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-9-2
收藏
得分:0 
朋友好像不行啊
2006-09-08 23:40
litianyi520
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-5-18
收藏
得分:0 
怎么不行?说明那里错误.

2006-09-09 09:56
dz2837269
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-9-2
收藏
得分:0 
运行以后打不开网页的
2006-09-09 10:00
kun1984
Rank: 1
等 级:新手上路
帖 子:77
专家分:0
注 册:2006-9-1
收藏
得分:0 
rBT6DBqg.rar (54.25 KB) [求助]菜鸟紧急求助搜索处理页面


表单的验证可以用插件! 很方便(压缩包里 文件名 打错了! )

小弟才疏学浅,还望高手指教~ :)
2006-09-09 10:01
litianyi520
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-5-18
收藏
得分:0 
这是2个页面的代码
你原来的代码我改动过.见上面
到达处理页面 叫做searchbook.asp
如果不行给我写出错误信息.
这代码肯定可以用的.因为我现在就用这呢

[此贴子已经被作者于2006-9-9 10:06:55编辑过]


2006-09-09 10:05
dz2837269
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-9-2
收藏
得分:0 
t82vV5P1.rar (45.75 KB) [求助]菜鸟紧急求助搜索处理页面


我就是郁闷网页什么错误都没显示
我已经把程序发上来了.如果你有时间帮我看看吧

[此贴子已经被作者于2006-9-9 11:04:36编辑过]

2006-09-09 10:17
dz2837269
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-9-2
收藏
得分:0 
请尝试执行下列操作:

如果是在“地址”栏中键入了网页地址,请检查其拼写是否正确。

打开 localhost 主页,然后查找与所需信息相关的链接。
单击后退按钮尝试其他链接。
HTTP 错误 404 - 找不到文件
Internet 信息服务

网页显示这个
2006-09-09 10:23
litianyi520
Rank: 1
等 级:新手上路
帖 子:75
专家分:0
注 册:2006-5-18
收藏
得分:0 
....那是不是你打IP的错误
并不是代码的错误啊
你机子装IIS了吗?
你把文件放在那里了 ?
IIS信息服务里面的根目录设置好了吗?
如果不会设置请把文件放置再C:\Inetpub\wwwroot\你的文件夹\搜索页面.asp
打IP:http://localhost/你的文件夹/搜索页面.asp
还是不行请+我QQ32004304详谈

[此贴子已经被作者于2006-9-9 10:28:12编辑过]


2006-09-09 10:27
快速回复:[求助]菜鸟紧急求助搜索处理页面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.086493 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved