WEB源码(ASP,PHP,...)

开发平台：
ASP/ASPX

typemanage.asp：源码内容
							<!--#include file="Conn.ASP"--><!--#include file="char.inc"--><!--#include file=../include/config.asp --><!--#include file="chkuser.asp" -->
<%
IF request.cookies("KEY")="" THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
IF request.cookies("KEY")="bigmaster" THEN
response.redirect "bigclass.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
IF request.cookies("KEY")="smallmaster" THEN
response.redirect "smallclass.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
%>
<html>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 文章管理</title>
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
</head>
</head>
<base target="main">
<body topmargin="0"><!--#include file=top.asp-->
<br><center>
  <table border="1" width="750" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=border%>">
  <form action ="typeset.asp?action=update" method=post>
    <tr height="20"> 
      <td  colspan="8" width="100%" align="left" valign="middle" height="25" bgcolor=<%=m_top%>><a href=typemanage.asp>全部总栏</a>（如果要修改总栏资料，只要修改完毕后按“保存”即可；此为批量修改）</td>
    </tr>
        <%
Set rs6 = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT  * From type order by typeorder"
RS6.open sql6,Conn,3,3
%>
    <tr align="center" bgcolor="<%=m_top%>" height="25"> 
      <td width="6%" >ID号</td>
      <td width="7%" >总栏名称</td>
      <td width="25%" >总栏注释（前为总栏名，后为注释）</td>
      <td width="10%" >总栏显示</td>
      <td width="10%" >总栏模板</td>
      <td width="12%" >排列顺序<br>(必填项，数字)</td>
	<td width="16%" >管理员<br>(可以多个，用|分隔)</td>
	  <td width="6%" >删除</td>
    </tr>
    <%			
do while not rs6.eof
dim typemaster,tmaster,master
master=rs6("typemaster")
if master<>"" then
tmaster=split(master,"|")
 for i=0 to ubound(tmaster)
	if request.cookies("username")=trim(tmaster(i)) then
	typemaster=true
	exit for
	else
	typemaster=false
	end if
 next
 end if
if (typemaster=true and request.cookies("key")="typemaster") or request.cookies("key")="super" or request.cookies("key")="selfreg" or request.cookies("key")="check" then
%>
    <tr height="25">
      <td width="6%" align="center" bgcolor="#FFFFFF"><%=rs6("typeid")%><input type=hidden name="typeid" value="<%=rs6("typeid")%>">　</td>
      <td width="7%" align="center" bgcolor="#FFFFFF"><a href="bigclass.asp?typeid=<%=rs6("typeid")%>" title="<%if rs6("typecontent")<>"" then%><%=rs6("typecontent")%><%else%>无<%end if%>"><%=rs6("typeName")%></a>　</td>
      <td width="25%" align="center" bgcolor="#FFFFFF"><input class=text type="text" name="typename" size="10" value="<%=rs6("typename")%>" <%if request.cookies("key")<>"super" then%>disabled<%end if%>><input class=text type="text" name="typecontent" size="22" value="<%=rs6("typecontent")%>" <%if request.cookies("key")<>"super" then%>disabled<%end if%>> 
　</td>
<td width="10%" align="center" bgcolor="#FFFFFF">
<select size="1" name="typeview" style="font-family: 宋体; font-size: 9pt" <%if request.cookies("key")<>"super" then%>disabled<%end if%>>
      <option <%if rs6("typeview")=1 then%>selected<%end if%> value="1">显示</option>
          <option <%if rs6("typeview")=0 then%>selected<%end if%> value="0">不显示</option>
          </select>
      </td>
      <td width="10%" align="center" bgcolor="#FFFFFF"><select size="1" name="mode" style="font-family: 宋体; font-size: 9pt" <%if request.cookies("key")<>"super" then%>disabled<%end if%>>
      <option <%if rs6("mode")=1 then%>selected<%end if%> value="1">图片产品模板</option>
          <option <%if rs6("mode")=2 then%>selected<%end if%> value="2">新闻媒体模板</option>
          <option <%if rs6("mode")=3 then%>selected<%end if%> value="3">网址推荐模板</option>
          <option <%if rs6("mode")=4 then%>selected<%end if%> value="4">软件文章模板</option>
</select>
      </td>
      <td width="12%" align="center" bgcolor="#FFFFFF"><input class=text type="text" name="typeorder" size="5" style="font-family: 宋体; font-size: 9pt" value="<%=rs6("typeorder")%>" <%if request.cookies("key")<>"super" then%>disabled<%end if%> ONKEYPRESS="event.returnValue=IsDigit();"></td>
	<td width="16%" bgcolor="#FFFFFF" align="center">
<input class=text type="text" name="typemaster" size="18" value="<%=rs6("typemaster")%>" <%if request.cookies("key")<>"super" then%>disabled<%end if%>></td>
<td width="6%" bgcolor="#FFFFFF" align="center"><%if request.cookies("key")="super" then%><a href="typekill.asp?typeID=<%=rs6("typeID")%>">删除</a><%end if%></td>
    </tr>
    <%end if
RS6.MoveNext
Loop
rs6.close
set rs6=nothing
%>
    <tr height="25"> 
      <td colspan="8" height="40" align="center" width="100%" bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="保存" style="font-family: 宋体; font-size: 9pt" <%if request.cookies("key")<>"super" then%>disabled<%end if%>>&nbsp;<input type="button" value="添加文章" style="font-family: 宋体; font-size: 9pt" onclick="javascript:window.open('newsaddd1.asp','_self','')"></td>
    </tr></form><%if request.cookies("key")="super" then%>
    <form method="post" action="typeset.asp?action=add" name="type">
    <tr>
      <td width="6%" align="center" bgcolor="#FFFFFF"></td>
      <td width="7%" align="center" bgcolor="#FFFFFF">添加总栏</td>
      <td width="30%" align="center" bgcolor="#FFFFFF">
      <input class=text type="text" name="typename" size="10"><input class=text type="text" name="typecontent" size="22"> 
　</td><td width="10%" align="center" bgcolor="#FFFFFF">
<select size="1" name="typeview" style="font-family: 宋体; font-size: 9pt" <%if request.cookies("key")<>"super" then%>disabled<%end if%>>
      <option value="1">显示</option>
          <option value="0">不显示</option>
          </select>
</td>
      <td width="10%" align="center" bgcolor="#FFFFFF">
      <select size="1" name="mode" style="font-family: 宋体; font-size: 9pt">
        <option value="1">图片产品模板</option>
        <option value="2">新闻媒体模板</option>
        <option value="3">网址推荐模板</option>
        <option value="4">软件文章模板</option>
      </select>
      </td>
      <td width="12%" align="center" bgcolor="#FFFFFF"><input class=text type="text" name="typeorder" size="5" style="font-family: 宋体; font-size: 9pt" ONKEYPRESS="event.returnValue=IsDigit();"></td>
	<td width="16%" bgcolor="#FFFFFF" align="center"><input class=text type="text" name="typemaster" size="18"></td>
<td width="6%" bgcolor="#FFFFFF" align="center"><input type="submit" name="Submit" value="添加" style="font-family: 宋体; font-size: 9pt">
</td>
    </tr></form><%end if%>
  </table>
</center>
</body>
</html>
<%conn.close
set conn=nothing%>

						