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

开发平台：
DOS

zixunlei.asp：源码内容
							<!--#include file="conn.asp"-->
<%
dim cls
if session("admin")="" then
	Response.Redirect("admin.asp")	
else
	if session("flag")<>"0" then
	
		cls = Instr(session("flag"), "danweifig")
		if cls <= 0 then
	%>
		<script language="javascript">
			if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
			  location.href="login.asp";
			else
			  location.href="index.asp";
		</script>
	<%
		end if
	end if
end if
%>
<%
dim danweiid,danweiorder,danweiname,danweino,i
if request("action")="update" then
    for i=1 to request.form("danweiid").count
	danweiid=replace(request.form("danweiid")(i),"'","")
	danweiorder=replace(request.form("danweiorder")(i),"'","")
	danweiname=replace(request.form("danweiname")(i),"'","")
 
%>
<%
	 
	conn.execute("update zixunlei set  danweiname='"&danweiname&"' where id="&danweiid)
    next
conn.close
set conn=nothing
response.write "<script language=javascript>alert('单位设置成功！');window.location.href='zixunlei.asp';</script>"
end if
if request("action")="add" then
	danweino=request.form("danweino")
	danweiname=trim(request("danweiname"))
	danweiorder=request.form("danweiorder")
	If danweiname="" Then
		response.write "单位名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
	
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from zixunlei",conn,1,3
rs.addnew
rs("danweiname")=danweiname
rs("danweiorder")=danweiorder
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=javascript>alert('单位添加成功！');window.location.href='zixunlei.asp';</script>"
end if
%>
<html>
<head>
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
    <form method="post" action="?action=update">
          <tr> 
            
      <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">资讯分类设置</font></b></td>
          </tr>
      <tr align=center > 
        <td width="20%" bgcolor="fbc2c2">序 号</td>
        
      <td width="30%" bgcolor="fbc2c2">资讯类别名称</td>
        
      <td width="30%" bgcolor="fbc2c2">&nbsp;</td>
        <td width="20%" bgcolor="fbc2c2">操 作</td>
      </tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT  * from zixunlei  order by id",conn,1,1
if rs.recordcount=0 then 
%>
<tr> 
      <td colspan="8" height=25 align="center" width="100%" > 还没有添加名称</td>
</tr>
<%
else
    do while not rs.eof
%>
      <tr > 
        <td align=center><%=rs("ID")%></td>
        <td align=center> 
          <input type="hidden" name="danweiid" value="<%=rs("id")%>">
          <input class=text type="text" name="danweiname" size="10" value="<%=trim(rs("danweiname"))%>">
        </td>
        
      <td align=center>&nbsp; </td>
        <td align=center> 
          <a href="delzixunlei.asp?danweiid=<%=rs("id")%>">删除</a> 
        </td>
      </tr>
      <%
    rs.MoveNext
    Loop
%>
<tr> 
<td colspan="4"  align="center" width="100%"> 
<input type="submit" name="Submit2" value="保存修改" style="font-family: 宋体; font-size: 9pt">&nbsp;
<input type="reset" value="重新设定" style="font-family: 宋体; font-size: 9pt" name="重置" >
</td>
</tr>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</table><br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<form method="post" action="?action=add">
<tr> 
      <td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">添加资讯单位</font></b></td>
</tr>
<tr height=40 > 
      <td width=20% align=center>添加资讯类别</td>
<td width=30% align=center> 
<input class=text type="text" name="danweiname" size="10">
</td>
      <td width=30% align=center>&nbsp;</td>
<td width=20% align=center> 
<input type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt">
</td>
</tr>
</form>
</table>
</body>
</html>

						