Admin_type.asp 要听音乐网完美修正版 1.0源码程序 - ASP源码程序

www.gusucode.com > 要听音乐网完美修正版 1.0源码程序 > admin/Admin_type.asp
    <!--#include file="../inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_info(0)%></title>
<link href="css.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312"></head>
<body text=#000000 leftmargin=0 topmargin=0 marginheight="0" marginwidth="0" bgcolor="#E5E5E5">
<script src="editor/checkform.js"></script>
<br>
<%
Dim Action,ID,SpecialName,SpecialRead,ClassID,strClass,Previewimg
If Not CheckAdmin(ScriptName) Then
    strMsg="<Li>您没有管理本页面的权限。"
    Call Msg()
Else
    SELECT Case Request("Action")
        Case "add"
            Call Add()
		Case "edit"
		    Call Edit()
		Case "edit_save"
		    Call Edit_Save()
        Case "del"
            Call Del()
        Case Else
            Call Main()
    End Select
End If

DataClose()

Sub Main()
%>
<table width="95%" border=0 align="center" cellpadding=5 cellspacing=1 class="border-all">
  <tbody>
    <tr> 
      <th height=22 colspan="4" align="center" sytle="line-height:150%">分类列表（点击分类名称修改分类）</th>
    </tr>
    <tr> 
      <td width="5%" height=22 class="TopTitle" sytle="line-height:150%"> ID</td>
      <td height=22 class="TopTitle" sytle="line-height:150%"><div align="left">分类名称</div></td>
      <td width="20%" height=22 align="center" class="TopTitle" sytle="line-height:150%">一级分类</td>
      <td width="6%" height=22 align="center" class="TopTitle" sytle="line-height:150%">操作</td>
    </tr>
    <%
    SQL="SELECT * FROM "& TableSpecial &" where Classid=1 ORDER BY SClassid"
    Set Rs=Conn.Execute(SQL)
    If Rs.Eof Or Rs.Bof Then
		Response.Write ("<tr><td colspan='2' align='left'>&nbsp;尚无分类</td></tr>")	   
    Else
	    Do While Not Rs.EOF
			ID=Rs("SClassid")
			SClassName=Rs("SClass")
			strClass=Rs("Classid")
			
%>
    <tr class="Table_row_1"> 
      <td align="left">&nbsp; <%=ID%></td>
      <td><%="<a href=?Action=edit&ID="&ID&">"&SClassName&"</a>"%>&nbsp;</td>
      <td width="20%" align="center"><%=strClass%></td>
      <td width="6%" align="center"><a href="?Action=del&ID=<%=ID%>">删除</a> 
      </td>
    </tr>
    <%
			Rs.MoveNext
	    Loop
	End If 
	%>
  </tbody>
</table>
<br>
<form name="myform" method="post" action="?">
  <table width="95%" border=0 align="center" cellpadding=5 cellspacing=1 class="border-all">
    <tbody>
      <tr> 
        <th height=21 colspan="2" sytle="line-height:150%">添加分类</th>
      </tr>
      <tr> 
        <td width="10%"> 分类名称： </td>
        <td width="90%"> <input name="SClassName" type="text" class="editbox" id="SClassName"></td>
      </tr>
      <tr> 
        <td>所属分类：</td>
        <td><%=strClass%></td>
      </tr>
      <tr> 
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit" value="提交" class="button"> <input type="reSet" name="Submit2" value="重置" class="button"> 
          <input name="action" type="hidden" id="action" value="add"> </td>
      </tr>
    </tbody>
  </table>
</form>
<%
End Sub

Sub Edit()
    ID=CheckStr(Request.QueryString("ID"))
	SQL="SELECT * FROM "& TableSpecial &" WHERE SClassid="&ID
	Set Rs=Conn.Execute(SQL)
	ID=Rs("SClassid")
	SClassName=Rs("SClass")
	strClass=Rs("Classid")
	Set Rs=Nothing
%>
<form name="myform" method="post" action="?">
  <table width="95%" border=0 align="center" cellpadding=5 cellspacing=1 class="border-all">
    <tbody>
      <tr> 
        <th height=21 colspan="2" sytle="line-height:150%">添加分类</th>
      </tr>
      <tr> 
        <td width="10%"> 分类名称： </td>
        <td width="90%"> <input name="SClassName" type="text" class="editbox" id="SClassName" value="<%=SClassName%>"></td>
      </tr>
      <tr> 
        <td>所属分类：</td>
        <td><%=strClass%></td>
      </tr>
      <tr> 
        <td>&nbsp;</td>
        <td><input type="submit" name="Submit" value="提交" class="button"> <input type="reSet" name="Submit2" value="重置" class="button"> 
          <input name="action" type="hidden" id="action" value="edit_save">
          <input name="GoUrl" type="hidden" id="GoUrl" value="<%=Url%>">
          <input name="ID" type="hidden" id="ID" value="<%=ID%>"></td>
      </tr>
    </tbody>
  </table>
</form>
<%
End Sub

Sub Add()
	SClassName=CheckStr(Request.Form("SClassName"))
	ClassID=Request.Form("strClass")
	If SClassName="" Then strMsg="<li>分类名称不能为空!"
	'If ClassID=0 Then strMsg=strMsg+"<li>请选择正确的分类!"
	If strMsg<>"" Then Call Msg()

	'SQL="SELECT MAX(ID) FROM "& TableSpecial &""
	'Set Rs=Conn.Execute(SQL)
	'ID=Rs(0)+1
	'If IsNull(ID) Then ID=1
	set rs=server.CreateObject("ADODB.RecordSet")
	sql="select * from SClass where SClass='"&SClassName&"'"
	rs.open sql,conn,3,2
	if (rs.eof and rs.bof) then
		rs.addnew
		rs("Sclass")=SClassName
		rs("Classid")=1
		rs.update
	end if

	'SQL="INSERT INTO "& TableSpecial &"(SClassid,SClass,Classid) VALUES("
	'SQL=SQL&SClassName&"',"&ClassID&")"
	'Response.Write SQL
	'Conn.Execute(SQL)
	rs.close
	Set Rs=Nothing
	Response.Redirect Url
End Sub 

Sub Edit_Save()
	SClassName=CheckStr(Request.Form("SClassName"))
	ClassID=Request.Form("ClassID")
	SQL="UPDATE "& TableSpecial &" SET SClass='"&SClassName&"' WHERE SClassid="&Request.Form("ID")
	Conn.Execute(SQL)
	Set Rs=Nothing
	Response.Redirect Request.Form("GoUrl")
End Sub

Sub Del()
	ID=CheckStr(Request.QueryString("ID"))
	SQL="DELETE FROM "& TableSpecial &" WHERE SClassid="&ID
	Conn.Execute(SQL)
	Response.Redirect Url
End Sub
%>
</body>
</html>