ad_sell.asp
来自「中国电视购物网电子商务系统」· ASP 代码 · 共 85 行
ASP
85 行
<%@ Language=VBScript %>
<!--#include file="../../include/memconn.asp"-->
<%
Response.Expires=-1
sql="select mem_id,comp_name,mem_account,mem_password from mem_sell order by mem_id desc"
rs.open sql,conn,1,1
if rs.eof then
set rs=nothing
call conn_end
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("还没有会员。")
history.go(-1)
//-->
</SCRIPT>
<%
else
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
body,td,p,input，select {font-size:14.8px;font-family:宋体}
.head {font-size:14pt;font-family:宋体}
-->
</style>
</HEAD>
<BODY bgcolor="#FFFFFF">
<p> </p>
<form action="delete.asp" method="post" id=form1 name=form1>
<table width="600" border="1" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="35" colspan="3"><b class="head">卖家会员管理</b></td>
</tr>
<tr>
<td height="30" colspan="3"> </td>
</tr>
<tr>
<td height="30" width="90"> 选定</td>
<td height="30" width="260"> 企业名称（点击可查看用户详细信息）</td>
<td height="30" width="250"> 有无建立用户名和口令</td>
</tr>
<%
while not rs.eof
mem_id=rs("mem_id")
%>
<tr>
<td height="30" width="90">
<input type="checkbox" name="mem_id" value="<%=mem_id%>">
</td>
<td height="30" width="260"> <a href="show.asp?id=<%=mem_id%>&action=sell"><%=rs("comp_name")%></a></td>
<td height="30" width="250">
<%
pass=rs("mem_password")
if isnull(rs("mem_password")) then
Response.Write "无 <a href='create_acc.asp?id="&mem_id&"&action=sell'>新建用户名</a>"
else
Response.Write "有 <a href='modi_acc.asp?id="&mem_id&"&action=sell'>修改口令</a>"
end if
%>
</td>
</tr>
<%
rs.movenext
wend
%>
<tr align="center">
<td height="30" colspan="3">
<input type="hidden" name="action" value="sell">
<input type="submit" name="Submit" value=" 删 除 ">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
set rs=nothing
call conn_end
end if
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?