ASP一个网页处理所有问题(添加,修改,删除,列表)框架
来源:互联网 发布:壳域名仅限局域网使用 编辑:程序博客网 时间:2024/06/05 17:27
<!--#include file="conn.asp"-->
<%'本页配置
lanmusort="链接"
%>
<link href="css/style.css" rel="stylesheet" type="text/css">
<%
ID=int(request("ID"))
action=request("action")
select case action
Case "edit"
call edit()
Case "add"
call add()
Case "editok"
call editok()
call list()
Case "addok"
call addok()
call list()
Case "delok"
call delok()
call list()
Case "list"
call list()
Case else
call list()
end select
%>
<%sub list()%>
<table class="Border" width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr class="title">
<td colspan="7"><%=lanmusort%>管理</td>
</tr>
<tr class="tr">
<td colspan="6" align="center" nowrap="nowrap" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="17%"><input type="submit" name="Submit" value="添加<%=lanmusort%>" onclick="window.location.href='?action=add'" /></td>
<td width="52%"> </td>
<td width="31%"> <select name="SortID" onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}" >
<option value="?sortid=''" >全部<%=lanmusort%></option>
<%
Set rsselect=Server.Createobject("Adodb.Recordset")
sql="select * from LinkSort order by SortID"
rsselect.open sql,conn,1,1
for i=1 to rsselect.recordcount
if rsselect.eof then exit for
%>
<option value="?sortid=<%=rsselect("sortid")%>" <%if saferequest("sortid")<>"" then : if int(request("sortid"))=rsselect("sortid") then response.write " selected" end if%>><%=rsselect("txtSort")%></option>
<%
rsselect.movenext
next
%>
</select></td>
</tr>
</table></td>
</tr>
<tr class="tr">
<td width="5%" align="center" nowrap="nowrap" >排序</td>
<td width="13%" align="center" nowrap="nowrap" ><%=lanmusort%>名称</td>
<td width="13%" align="center" nowrap="nowrap" ><%=lanmusort%>地址</td>
<td width="54%" align="center" nowrap="nowrap" ><%=lanmusort%>图片</td>
<td width="54%" align="center" nowrap="nowrap" ><%=lanmusort%>位置</td>
<td width="9%" align="center" nowrap="nowrap" >操作</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Links as a,LinkSort as b where a.SortID=b.SortID "
if SafeRequest("SortID")<>"" then sql=sql&" and a.SortID="&SafeRequest("SortID")
if SafeRequest("SortID")<>"" then
sql=sql&" order by OrderID"
else
sql=sql&" order by a.id desc"
end if
rs.Open sql,conn,1,1
for i=1 to rs.recordcount
if rs.eof then exit for
%>
<form action="?action=edit" method="post">
<tr class="tr">
<td align="center" nowrap="nowrap" ><input name="ID" type="hidden" value="<%=rs("a.ID")%>" /><%=rs("OrderID")%></td>
<td align="center" nowrap="nowrap" ><%=rs("txtTitle")%></td>
<td align="center" nowrap="nowrap" ><%=rs("Url")%></td>
<td align="center" nowrap="nowrap" ><%=rs("Pic")%></td>
<td align="center" nowrap="nowrap" ><%=rs("txtSort")%></td>
<td align="center" nowrap="nowrap" ><input type="submit" name="Submit4" value="修改" />
<input type="button" name="Submit5" value="删除" onclick="if (confirm('您确定要删除嘛?')){window.location.href='?action=delok&id=<%=rs("a.id")%>';}" /></td>
</tr></form>
<%
rs.movenext
next
%>
<form action="?action=addok" method="post"></form>
</table>
<%end sub%>
<%sub add()%>
<table class="Border" width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr class="title">
<td colspan="2" align="center">添加<%=lanmusort%></td>
</tr>
<form action="?action=addok" method="post" name="form1" id="form1">
<tr class="tr">
<td width="33%" align="center"><%=lanmusort%>名称</td>
<td width="67%"><input name="txtTitle" type="text" id="txtTitle" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>地址</td>
<td><input name="URL" type="text" id="URL" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>图片</td>
<td><input name="Pic" type="text" id="Pic" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>排序</td>
<td><input name="OrderID" type="text" id="OrderID" value="0" size="4" onKeypress="if (event.keyCode < 45 || event.keyCode > 57){alert('同志只能输入数字,谢谢'); event.returnValue = false;}" ></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>位置</td>
<td> <select name="SortID">
<%
Set rsselect=Server.Createobject("Adodb.Recordset")
sql="select * from LinkSort order by SortID"
rsselect.open sql,conn,1,1
for i=1 to rsselect.recordcount
if rsselect.eof then exit for
%>
<option value="<%=rsselect("sortid")%>" ><%=rsselect("txtSort")%></option>
<%
rsselect.movenext
next
%>
</select></td>
</tr>
<tr class="tr">
<td> </td>
<td><input type="submit" name="Submit3" value="添 加">
<input type="reset" name="Submit" value="重 置" /></td>
</tr>
</form>
</table>
<%end sub%>
<%sub edit()%>
<%
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from Links where id="&ID
rs.open sql,conn,1,1
if not rs.eof then
%>
<table class="Border" width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr class="title">
<td colspan="2" align="center">修改<%=lanmusort%></td>
</tr>
<form action="?action=editok" method="post" name="form1" id="form1">
<tr class="tr">
<td width="33%" align="center"><%=lanmusort%>名称</td>
<td width="67%"><input name="txtTitle" type="text" id="txtTitle" value="<%=rs("txtTitle")%>" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>地址</td>
<td><input name="URL" type="text" id="URL" value="<%=rs("URL")%>" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>图片</td>
<td><input name="Pic" type="text" id="Pic" value="<%=rs("Pic")%>" size="24"></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>排序</td>
<td><input name="OrderID" type="text" id="OrderID" size="4" value="<%=rs("OrderID")%>" onKeypress="if (event.keyCode < 45 || event.keyCode > 57){alert('同志只能输入数字,谢谢'); event.returnValue = false;}" ></td>
</tr>
<tr class="tr">
<td align="center"><%=lanmusort%>位置</td>
<td> <select name="SortID">
<%
Set rsselect=Server.Createobject("Adodb.Recordset")
sql="select * from LinkSort order by SortID"
rsselect.open sql,conn,1,1
for i=1 to rsselect.recordcount
if rsselect.eof then exit for
%>
<option value="<%=rsselect("sortid")%>" <%if rs("sortid")=rsselect("sortid") then response.write " selected"%>><%=rsselect("txtSort")%></option>
<%
rsselect.movenext
next
%>
</select></td>
</tr>
<tr class="tr">
<td align="center"><input type="hidden" name="id" value="<%=rs("id")%>" /></td>
<td><input type="submit" name="Submit3" value="修 改">
<input type="reset" name="Submit" value="重 置" /></td>
</tr>
</form>
</table>
<%end if%>
<%end sub%>
<%sub addok()%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from Links",conn,1,3
rs.addnew
rs("txtTitle")=request.form("txtTitle")
rs("SortID")=request.form("SortID")
rs("URL")=request.form("URL")
rs("Pic")=request.form("Pic")
rs("OrderID")=request.form("OrderID")
rs.Update
rs.Close
set rs=nothing
%>
<%end sub%>
<%sub editok()%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from Links where ID = "&ID,conn,1,3
rs("txtTitle")=request.form("txtTitle")
rs("SortID")=request.form("SortID")
rs("URL")=request.form("URL")
rs("Pic")=request.form("Pic")
rs("OrderID")=request.form("OrderID")
rs.Update
rs.Close
set rs=nothing
%>
<%end sub%>
再来一个不要列表的
<!--#include file="../conn.asp"-->
<!--#include file="../function.asp"-->
<!--#include file="flag.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>日志管理--编辑</title>
<link href="../css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
action=request("action")
id=saferequest("id")
select case action
case "add"
call add()
case "edit"
call edit()
case "addsave"
call addsave()
case "edit"
call editsave()
case "del"
call del()
case else
call add()
end select
%>
<%sub add%>
<form id="form1" name="form1" method="post" action="?action=addsave">
<p align="center">值班日志添加</p>
<p align="center"> </p>
<table width="650" border="1" bordercolor="#CCCCCC" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20">值班时间</td>
<td height="20"><input name="rizhitime" type="text" id="rizhitime" size="30" value="<%=Now()%>" /></td>
</tr>
<tr>
<td height="20">值班人</td>
<td height="20"><input name="username" type="text" id="username" size="30" /></td>
</tr>
<tr>
<td height="20">操作概述</td>
<td height="20"><textarea name="intro" cols="75" rows="5" id="intro"></textarea></td>
</tr>
<tr>
<td height="20">操作详情</td>
<td height="20"><input name="content" type="hidden" id="content" size="30" /><iframe ID="eWebEditor1" src="../editor/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td height="20">处理结果</td>
<td height="20"><input name="result" type="text" id="result" value="" size="30" /></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="添加" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
<%end sub%>
<%sub edit%>
<%
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from where id="&id
rs.open sql,conn,1,1
if not rs.eof then
%>
<form id="form1" name="form1" method="post" action="?action=addsave">
<p align="center">值班日志修改</p>
<p align="center"> </p>
<table width="650" border="1" bordercolor="#CCCCCC" bordercolordark="#FFFFFF" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20">值班时间</td>
<td height="20"><input name="rizhitime" type="text" id="rizhitime" size="30" value="<%=rs("rizhitime")%>" /></td>
</tr>
<tr>
<td height="20">值班人</td>
<td height="20"><input name="username" type="text" id="username" size="30" value="<%=rs("username")%>" /></td>
</tr>
<tr>
<td height="20">操作概述</td>
<td height="20"><textarea name="intro" cols="75" rows="5" id="intro"><%=rs("intro")%></textarea></td>
</tr>
<tr>
<td height="20">操作详情</td>
<td height="20"><input name="content" type="hidden" id="content" size="30" value="<%=server.HTMLEncode(rs("rizhitime"))%>" /><iframe ID="eWebEditor1" src="../editor/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td height="20">处理结果</td>
<td height="20"><input name="result" type="text" id="result" value="<%=rs("result")%>" size="30" /></td>
</tr>
<tr>
<td colspan="2" align="center"><input name="id" type="hidden" value="<%=rs("id")%>" /><input type="submit" name="Submit" value="修改" />
<input type="reset" name="Submit2" value="重置" /></td>
</tr>
</table>
</form>
<%
Else
errormsg "此记录已经不存在!"
end if
%>
<%end sub%>
<%sub addsave%>
<%
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from "
rs.open sql,conn,1,1
rs.addnew
rs("")=saferequest("")
rs.update
rs.close
%>
<%end sub%>
<%sub editsave%>
<%
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from where id="&ID
rs.open sql,conn,1,1
If Not rs.EOF Then
rs("")=saferequest("")
rs.update
Else
errormsg "此记录已经不存在!"
End IF
rs.close
%>
<%end sub%>
<%sub del%>
<%conn.execute ("delete from Links where ID="&ID)%>
<%end sub%>
</body>
</html>
<%sub delok()%>
<%conn.execute ("delete from Links where ID="&ID)%>
<%end sub%>
- ASP一个网页处理所有问题(添加,修改,删除,列表)框架
- 列表,添加, 删除简单处理
- ASP添加、删除、修改代码 实例
- 适合所有表的添加、删除、修改的函数
- 适合所有表的添加、删除、修改的函数
- C#IIS网站应用程序池列表添加修改删除
- 线性列表的添加、删除、插入和修改
- IE中的网页元素 添加删除事件处理函数
- ASP.NET TreeView Web Control 添加,删除,修改
- ASP+ACCESS动态创建表,添加修改删除字段
- asp.net(VB)操作Access数据库(链接/添加/修改/删除)
- asp.net(VB)操作Access数据库(链接/添加/修改/删除)
- asp.net对xml文件的读写、添加、修改、删除
- asp.net中Cookie的添加 读取 修改和删除
- asp.net treeview数据库绑定 (节点添加 删除 修改)
- asp.net treeview数据库绑定 (节点添加 删除 修改)
- c#asp.net添加/修改/删除Cookie值
- Asp连接access数据库,查询,添加,修改,删除
- 使用winrar打包air程序为exe
- s3c2440的LCD应用
- php连接mysql测试和配置
- STL中的vector和deque对比
- [翻译]High Performance JavaScript(026)
- ASP一个网页处理所有问题(添加,修改,删除,列表)框架
- 求非完全二叉树第m层第k个节点
- 国产开源项目的七宗罪
- JDK的动态代理机制
- AudioRecord和AudioTrack类的使用
- VC++6.0编译环境介绍
- Oracle的使用
- [翻译]High Performance JavaScript(027)
- asp防SQL注入函数