热点问题

sxh007vip 2003-12-29 03:01:58

大家好我想请教一个问题我在搞一个网站做一个搜索页，查找1年龄 2性别 3学历
怎么做哦我准备用FRONTPAGE 2003 调用ACCESS 2003数据库具体怎么做请指点我装的系统是WINXP SP1 ACCESS数据库怎么配置怎么老是要我必须输入服务器我想全部做好再上传数据表已经建好具体怎么操作请就要点告诉于我
我赶时间请各位多帮忙！

...全文

65 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

sxh007vip 2003-12-31

打赏
举报

那我该怎么搞啊能说的详细点吗
我想用最简单的方法

happyamang 2003-12-30

打赏
举报

用DW调用数据库的话垃圾代码好多的！

hjz166 2003-12-30

打赏
举报

用那个我不知道,但DW可以调用数据库的,而且特别方便

happyamang 2003-12-29

打赏
举报

看看这个例子
我没有改
这是查询会员的

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索结果</title>
<link href="css1.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style>
</head>

<body>
<%
Function repl_keyword(str)
repl_keyword=replace(str,keyword,""&keyword&"")
End Function
%>
<%
Dim keyword
keyword=replace(Trim(Request.Form("keyword")),"'","")
SQLStr="SELECT id,username,linkman,com_name,address FROM user_info WHERE username LIKE '%"&keyword&"%' OR linkman LIKE '%"&keyword&"%' OR com_name LIKE '%"&keyword&"%' OR address LIKE '%"&keyword&"%'"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open SQLStr,Conn
If NOT RS.Eof Then
%>
<center>
搜索结果
<table width="100%" border="0" bgcolor="#CCFFFF">
<tr align="center" bgcolor="#33CCFF" class="font14">
<td>用户名称</td>
<td width="25%">公司名称</td>
<td width="25%">公司地址</td>
<td> 联系人</td>
<td>操作</td>
</tr>
<%
DO While Not RS.eof
username=repl_keyword(RS("username"))
linkman=repl_keyword(RS("linkman"))
com_name=repl_keyword(RS("com_name"))
address=repl_keyword(RS("address"))
%>
<tr bgcolor="#99FFFF" class="font12">
<td><a href="show.asp?id=<%=RS("id")%>"><%=username%></a></td>
<td><%=com_name%></td>
<td><%=address%></td>
<td><%=linkman%></td>
<td><a href="edit.asp">修改</a> 批准权限
删除</td>
</tr>
<%
RS.MoveNext
If Not RS.eof Then
username=repl_keyword(RS("username"))
linkman=repl_keyword(RS("linkman"))
com_name=repl_keyword(RS("com_name"))
address=repl_keyword(RS("address"))
%>
<tr class="font12">
<td><a href="show.asp?id=<%=RS("id")%>"><%=username%></a></td>
<td><%=com_name%></td>
<td><%=address%></td>
<td><%=linkman%></td>
<td>修改 批准权限
删除</td>
</tr>
<%
End If
If Not RS.eof Then
RS.MoveNext
End If
LOOP
%>
</table>
</center>
<%
End If
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=nothing
%>

</body>
</html>

flybird66 2003-12-29