nclass.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 276 行 · 第 1/2 页
ASP
276 行
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkclass()
{
if(document.myclass.nclassid.value==0) {
document.myclass.nclassid.focus();
alert("请选择要转的小类！");
return false;
}
if(document.myclass.anclassid.value==0) {
document.myclass.anclassid.focus();
alert("请选择待转的大类！");
return false;
}
}
function checkspace(checkstr)
{
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function checkxl()
{
if(checkspace(document.myform.nclassidorder2.value)) {
document.myform.nclassidorder2.focus();
alert("请输入排序号！");
return false;
}
if(checkspace(document.myform.nclass2.value)) {
document.myform.nclass2.focus();
alert("请输入小类名称！");
return false;
}
}
//-->
</script>
</head>
<body>
<table width="90%" height="450" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ece9d8"><br><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=77 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>图书小类</font></div></td>
</tr>
</table>
<table width="98%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
<tr>
<td>
<table width="100%" border="1" align="center" height=230 cellpadding="0" cellspacing="0">
<tr>
<td colspan=2 valign="top" height=10%>
<table border="0" align="center" >
<tr>
<form name="myclass" method="post" action="savemoveclass.asp">
<td><font size=2>类别转移</font></td>
<td><select name="nclassid" size="1">
<option value=0 selected>--选择要转小类--</option>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select nclassid,nclass from shop_nclass order by nclassid",conn,1,1
if rs.EOF and rs.BOF then
response.Write "<option value=0>还没有分类</option>"
else
do while not rs.EOF%>
<option value="<%=int(rs("nclassid"))%>"><%=trim(rs("nclass"))%></option>
<%rs.MoveNext
loop
rs.Close
set rs=nothing
end if%></select></td>
<td><img src="images/arw.ico" width=16 border=0></td>
<td><select name="anclassid" size="1">
<option value=0 selected>--选择转到大类--</option>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select anclassid,anclass from shop_anclass order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.Write "<option value=0>还没有分类</option>"
else
do while not rs.eof%>
<option value="<%=int(rs("anclassid"))%>"><%=trim(rs("anclass"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
end if%></select></td>
<td><input type="submit" name="Submit" value="转 移" class="bt3" onClick="return checkclass();"></td>
</form>
</tr>
</table>
<tr>
<td width="52%" valign="top" bgcolor="#ece9d8">
<%action=request.QueryString("action")
select case action
case ""
dim ii
ii=1
set rs=server.CreateObject("adodb.recordset")
rs.Open "select anclassid,anclass from shop_anclass order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.Write "<option value=0>还没有分类</option>"
else%>
<table width="100%" border="0">
<tr>
<td colspan=10>所有的大类</td>
<tr>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?