主题:  我两个问题想问一下各们大侠?

zyzbw

职务:普通成员
等级:1
金币:0.0
发贴:2
#12004/12/17 9:05:57
我想上传图片,
我有一个网页本来有一个图片,但在一段时间后,我想换张图片,我想问各们大侠该怎么办呢。
第二个问题是,我做一个会员的管理系统,需要模糊查询那种,例如输入a就显示所有以a开头的所有记录。
下面是我做的代码不过显示不出来。
<!--#include file="../conn/conn.asp" -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0051)http://www.cartecst.com/webapp/member/userlist2.asp -->
<HTML><HEAD><TITLE>欢迎进入辽宁卡尔泰克密封技术有限公司!</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><!-----------------------style sheet &#44221;&#47196;----------------------------------------><LINK
href="userlist_01.files/style.css" type=text/css rel=STYLESHEET><!-----------------------style sheet &#44221;&#47196;----------------------------------------><LINK
href="../common/basic.css" type=text/css rel=stylesheet><!-- script language=vbscript

<%
dim found
found=request("found"
set rs=server.createobject("adodb.recordset"
sql="select * from users where userid like '"&found&"%' order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.bof then

response.Redirect("norecord.asp"
rs.close
rs=nothing
    else
rs.PageSize = 5 'pagesize属性指定了每页要显示的记录条数
    Page = CLng(Request("Page") 'string型转化为long型
    If Page < 1 Then
     Page = 1
    end if
    If Page > rs.PageCount Then
     Page = rs.PageCount
End If
rs.AbsolutePage = Page '把页码赋给absolutepage属性从而知当前页的首条记录号.
        end if
        
%>
<TABLE cellSpacing=0 cellPadding=0 width=830 border=0>
<TBODY>
<TR>
<TD height=24 colspan="2"><table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="26" height="24">&nbsp;</td>
<td width="274" class="text"><a href="../notice/admini_1.htm">管理中心</a> &gt;&gt; 会员管理</td>
</tr>
</table></TD>
</TR>
<TR>
<TD width="500" height=50><img src="userlist_01.files/admini.gif" width="500" height="50"></TD>
<TD width="330"></TD>
</TR>
<TR>
<TD height=25 colspan="2"></TD>
</TR>
<TR>
<TD colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width=738 align=center border=0>
<TBODY>
<TR>
<TD width=467>&nbsp;</TD>
<TD align=right width=233>&nbsp;</TD>
</TR>
<TR height=30>
<TD width=467 height="27"> &nbsp; <!--&#54788;&#51116; &#54168;&#51060;&#51648;&#44032; &#52509; &#54168;&#51060;&#51648;&#48372;&#45796; &#51089;&#51008; &#44221;&#50864;(&#45796;&#51020; &#54168;&#51060;&#51648;&#47196; &#51060;&#46041;&#54624; &#49688; &#51080;&#45716; &#44221;&#50864-->
            
            <%
             response.Write("<font size=3><div align=left>"
If Page <> 1 Then
     Response.Write("<A HREF=""userlist_02.asp?Page=1"">第一页</A>"
     response.Write("&nbsp;&nbsp;"
     Response.Write("<A HREF=""userlist_02.asp?Page="&(Page-1)&""">上一页</A>"
     response.Write("&nbsp;&nbsp;"
End If
If Page <> rs.PageCount Then
     Response.Write("<A HREF=""userlist_02.asp?Page="&(Page+1)&""">下一页</A>"
     response.Write("&nbsp;&nbsp;"
     Response.Write("<A HREF=""userlist_01.asp?Page="&rs.PageCount&""">最后一页</A>"
End If
response.Write("&nbsp;&nbsp;"
Response.write"页码:"&Page&"/"& rs.PageCount&"</font>"
response.Write("</div></font>"

            
             %> </TD>
<FORM name="form2"action="userlist_02.asp" method="post">
<TD align=right width=233>&nbsp; </TD>
</form></TR></TBODY></TABLE>
<form name="form1" method="post" action="userlist_01.asp">
<TABLE borderColor=#999999 cellSpacing=0 borderColorDark=#ffffff width=750
align=center borderColorLight=#999999 border=1>
<TBODY>
<TR class=w>
<TH width=122 height=24 bgColor=#669966>&nbsp;</TH>
<TH width=122 bgColor=#669966>ID号</TH>
<TH width=122 bgColor=#669966 height=24>密 码 </TH>
<TH width=140 bgColor=#669966 height=24>公 司 </TH>
<TH width=200 bgColor=#669966 height=24>E-mail</TH>
<TH width=97 bgColor=#669966 height=24>IP</TH>
</TR>
<% if not rs.eof then
        
for i=1 to rs.pagesize
%>
<TR onmouseover="this.style.backgroundColor='f7f7f7'"
onmouseout="this.style.backgroundColor=''" height=22>
<TD width=122 align=middle><A
href="http://www.cartecst.com/webapp/member/modify.asp?userid=4813300&amp;page=1">&nbsp;</A>
<input name="select_it" type="checkbox" id="select_it" value="<%=rs("id"%>"></TD>
<TD width=122 align=middle><a href=userid.asp?id=<%=rs("id"%>><%= rs("userid" %></a>&nbsp;</TD>
<TD align=middle width=122><%= rs("pwd" %>&nbsp;</TD>
<TD align=middle width=140><%= rs("company" %>&nbsp;</TD>
<TD align=middle width=200><%= rs("email" %>&nbsp;</TD>
<TD align=middle width=97><%= rs("ip" %>&nbsp;</TD>
</TR>
<%
    rs.movenext
        if rs.eof then
         exit for
        end if
     next %>
<% end if %>
</TBODY>
</TABLE>
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center"><input name="delit" type="submit" id="delit" value="删除"></td>
</tr>
</table>
<p align="center">&nbsp;</p>
</form> <p>&nbsp;</p>
</TD>
</TR>
</TBODY></TABLE>
</BODY></HTML>