userlist.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include virtual="/manage/include/top.asp"-->
		 <tr bgcolor="#dddddd">
		     <td height="1" colspan="4"></td>
		 </tr>
		 <tr>
		     <td height="34" colspan="2" bgcolor="#efefef">		     
	            <span class="style8">　<img src="/manage/images/borrow.gif"><span class="style2"><strong> 连锁店列表</strong></span></span></td>
		 </tr>
		 <tr>
		     <td>
			 <br><br>
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
set rs1=server.CreateObject("adodb.recordset")
str1="select * from tb_User where UserId <> 1000"
rs1.open str1,conn,3,3
do while not rs1.eof
%>
			     <table width="600" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099CC">
				    <tr>
					    <td width="65" bgcolor="#FFFFFF" align="right"><strong>用户ID:</strong></td>
					    <td width="256" bgcolor="#FFFFFF"><%=rs1("UserID")%></td>
					    <td bgcolor="#FFFFFF" align="right"><strong>用户名称:</strong></td>
					    <td width="167" bgcolor="#FFFFFF"><%=rs1("UserName")%></td>
					</tr>
					<tr>
					    <td align="right" bgcolor="#FFFFFF"><strong>联系电话:</strong></td>
						<td bgcolor="#FFFFFF"><%=rs1("Tel")%></td>
					    <td bgcolor="#FFFFFF" align="right"><strong>联系人:</strong></td>
					    <td bgcolor="#FFFFFF"><%=rs1("Mname")%></td>
					</tr>
					<tr>
					    <td bgcolor="#FFFFFF" align="right"><strong>地 址:</strong></td>
					    <td colspan="3" bgcolor="#FFFFFF"><%=rs1("Address")%></td>
				    </tr>
					
					<tr bgcolor="#efefef">
					  <td height="2" colspan="4" align="right"><input type="button" value="删除" onClick="del(<%=rs1("UserID")%>)"style="border:1px solid;border-color:#4c99d4;background:#f2ebc3"></td>
				   </tr>
		     </table><hr size="1" width="80%" style="border-style:dashed;border-color:#660099">
				<%
				rs1.movenext
				loop
				%>
<!--#include virtual="/manage/include/bottom.asp"-->