📄 gtitle.asp

📁 矮子多用户版客户管理系统2.0Bate2
💻 ASP
字号:
<!--#include file="conn.asp" -->
<%
if session("name")="" or session("dd")="" then
response.write "SORRY <br>"
response.write "数据在携带中出现意外！<br>"
response.write "<a href=login.asp>回去重来</a>"
response.end
end if
if session("quanxian")<"3"  then
response.write "SORRY <br>"
response.write "您的权限不够！请勿尝试非法访问！<br>"
response.end
end if

%>
<html>
<head>
<title>分类设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table {  font-size: 10.5pt}
-->
</style>
</head>
<script Language="JavaScript">
<!--
function Form1_Validator(theForm)
{ 



 if (theForm.sclass_folder.value == "")
  {
    alert(" 分类名称必须填写！");
    theForm.sclass_folder.focus();
    return (false);
  }
   if (theForm.paixu.value.length == "")
  {
    alert("排序不得为空！");
    theForm.paixu.focus();
    return (false);
  }
  
  
  { 
var txt = theForm.paixu.value; 
if(checknumber(txt)) 
{ 
alert("排序只允许输入数字！"); 
return false; 
} 
return true; 
} 
function checknumber(String) 
{ 
var Letters = "1234567890"; 
var i; 
var c; 
for( i = 0; i < String.length; i ++ ) 
{ 
c = String.charAt( i ); 
if (Letters.indexOf( c ) ==-1) 
{ 
return true; 
} 


} 
return false; 
} 

    return (true);
}
//-->
</script>

<body bgcolor="#FFFFFF">
<p align="center"><font size=2 color=ff0000>添 加 分 类</p>
<form method="POST" action="savetitle.asp" onsubmit="return Form1_Validator(this)" >











			<input type="hidden" name="vest" value="<%=session("dd")%>">











  <div align="center">
	<table border="0" width="283" id="table1" cellpadding="0" cellspacing="1" bgcolor="#DADADA" height="28">
		<tr>
			<td bgcolor="#EBEBEB" height="25" align="center">
			<p align="center"><font style="font-size: 9pt">排序</td>
			<td bgcolor="#EBEBEB" height="25" width="153" align="center">
			<font size=2><span style="font-size: 9pt">分类名称</span></td>
			<td bgcolor="#EBEBEB" height="25" width="93"><font size=2>
			<p align="center"><span style="font-size: 9pt">操作</span></font></td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF" height="25">
			<font size=2 color=ff0000>
			<span style="font-size: 9pt">
			<input  type="text" name="paixu" style="padding: 1px" size="4"></span></td>
			<td bgcolor="#FFFFFF" height="25" width="153">
			<font size=2 color=ff0000>
			<span style="font-size: 9pt">
			<input  type="text" name="sclass_folder" style="padding: 1px" size="20"></span></td>
			<td bgcolor="#FFFFFF" height="25" width="93">
			<p align="center"><font size=2 color=ff0000>
			<span style="font-size: 9pt"><input type="submit" name="Submit2" value="添加">
			<input type="reset" value="清除"></span></td>
		</tr>
	</table>
	</div>











  <p align="center">
  </p>
</form>


</font><font color=ff0000 style="font-size: 9pt">


<%
sql2="select * from sclass where vest = "&session("dd")&" "
set rs2= Server.CreateObject("ADODB.Recordset") 
rs2.open sql2,conn,1,1 
  if rs2.eof and rs2.bof then 
  response.write "" 
  rs2.close
   else 

 
		
		%>	
		
	










</font><font size=2 color=ff0000>	
		
	










<p align=center><font color=ff0000 style="font-size: 9pt">修 改 分 类</p>
  <div align="center">

    <tr><td align=center bgcolor="#FFFFFF"><%	
     	dim foldersql,folderrs
     	set folderrs=server.createobject("adodb.recordset")    
		    foldersql="select * from sclass where vest ="&session("dd")&" order by paixu asc;"
		    folderrs.open foldersql,conn,1,1  
		    %>
		    
		    
		     </font><font size=2 color=ff0000>
		    
		    
		     <div align="center">
	<table border="0" width="273" id="table1" cellpadding="0" cellspacing="1" bgcolor="#DADADA" height="51">
		<tr>
			<td bgcolor="#EBEBEB" height="25" align="center">
			<p><span style="font-size: 9pt">排序</span></td>
			<td bgcolor="#EBEBEB" height="25" align="center">
			<font size=2><span style="font-size: 9pt">分类名称</span></td>
			<td bgcolor="#EBEBEB" height="25" align="center" width="96">
			<span style="font-size: 9pt">操作</span></td>
		</tr> 
		    <%
  do while not folderrs.EOF   
  %> <form method=POST action=savetitle2.asp onsubmit="return Form1_Validator(this)" >
  <%
   Response.Write "<tr><td bgcolor=#FFFFFF height=25><input  type=text name=paixu value="&folderrs("paixu")&" style=padding: 1px size=4></td><td bgcolor=#FFFFFF height=25 width=153><input type=hidden value="&folderrs("sclass_id")&" name=sclass_id><input type=text value="&folderrs("sclass_folder")&" name=sclass_folder></td><td bgcolor=#FFFFFF height=25><p align=center><input type=submit name=Submit value=修改>&nbsp;<input value=删除 type=button onClick=if(confirm('\n删除此分类前必须删除分类内容，您已经全部删除了吗？')){window.open('deltitle.asp?sclass_folder="&folderrs("sclass_folder")&"&sclass_id="&folderrs("sclass_id")&"','_self')}></td></tr>" 
%></form>  <%
  folderrs.movenext
    loop
    folderrs.close
    set folderrs=nothing
    end if
%></table>
	</div><br>
</td></tr>
</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -