📄 lei23.asp
字号:
<% if session("name")<>"" then %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<base target="main_part">
<title>添加用户</title>
</head>
<STYLE type=text/css>
p,table,a,body,input {
FONT-FAMILY: 宋体; FONT-SIZE: 9pt; LINE-HEIGHT: 16pt
}
</STYLE>
<base target="main">
<body topmargin="10" leftmargin="15">
<p>
<object RUNAT="Server" ID="Conn" PROGID="ADODB.Connection">
</object>
<object RUNAT="Server" ID="Connn" PROGID="ADODB.Recordset">
</object>
</p>
<table width=100%>
<tr><td width=50%>用户：<a href="lei21.asp" target="main">增加</a>、<a href="lei22.asp" target="main">修改</a>、<a href="lei23.asp" target="main">删除</a></td></tr>
</table><center>现在是<用户删除界面></center>
<% conn.Open "email","sa",""%>
<form action="delexiao.asp" target="_self" method="post" id=form1 name=form1>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=100%>
<%
sql="SELECT * FROM keshi order by 排序权重 "
Set jin = Conn.Execute(sql)%>
<TR><TD colSpan=6><DIV align=center><font color="green">现在全部的科室名称如下</font></DIV></TD></TR>
<TR><% j=1
do until jin.eof
k=jin("用户号")
'cc="checked" %>
<%sql1="SELECT * FROM minorkindtable where 用户号='" & k & "' order by 排序权重"
set jin1=conn.Execute (sql1)
hang=0
do until jin1.eof
hang=hang+1
jin1.movenext
loop
if hang/5>cint(hang/5) then
hang=cint(hang/5)
hang=hang+1
else
hang=cint(hang/5)
end if
j=1
jin1.close
%>
<td rowspan=<%=hang%>><b><font color="red"><% =jin("用户名")%></font></b></td>
<% set jin1=conn.Execute (sql1)
do until jin1.eof
if j>5 then%>
</tr><tr>
<td><input type="radio" name="R2" value=<%=jin1("小类号") %>><font color="#000040"><% =jin1("小类名")%>--<% =jin1("排序权重")%></font></td>
<% j=1
else%>
<td><input type="radio" name="R2" value=<%=jin1("小类号") %>><font color="#000040"><% =jin1("小类名")%>--<% =jin1("排序权重")%></font></td>
<%end if
j=j+1%>
<% jin1.movenext
loop
j=1%></tr><tr>
<% jin.movenext %>
<%loop
conn.close %>
</TR></table>
<tr align=center width=100%><TD ><INPUT id=button1 name=button1 type=submit value=确定删除 ></TD></tr>
</form>
<% if trim(request("T1"))<>"" and Instr(trim(request("T1"))," ")>0 then
Response.Write "<hr><center><i>大类<font color=red><b>"&trim(request("T1"))&"</b></font>没有被增加,所取的大类名中不应含空格</i></center>"
Response.End
end if
%>
<% if trim(request("T1"))<>"" and trim(request("Q1"))="" then
Response.Write "<hr><center><i>您应该为要新建的大类指定一个<font color=red><b>排序权重</b></font></i></center>"
Response.End
end if
%>
<% if trim(request("T1"))<>"" and IsNumeric(request("Q1"))=False then
Response.Write "<hr><center><i>请以自然数作为大类的<font color=red><b>排序权重</b></font></i></center>"
Response.End
end if
%>
</body>
</html>
<%else %>
<P>请登录 </p>
<%end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -