ASP一个网页处理所有问题(添加,修改,删除,列表)框架,,CIO之家

ASP一个网页处理所有问题(添加,修改,删除,列表)框架

柳永法　　http://www.yongfa365.com/　　ASP　　编辑:dezai　　图片来源:网络

!--#include file="conn.asp"--%'本页配置lanmusort="链接" %link "css/style.css" rel="stylesheet" type="

<%'本页配置
lanmusort="链接"

%>

<%
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()%>

<%
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
%>








<%
rs.movenext
next
%>

<%=lanmusort%>管理

排序

<%=lanmusort%>名称

<%=lanmusort%>地址

<%=lanmusort%>图片

<%=lanmusort%>位置

操作

" /><%=rs("OrderID")%>

<%=rs("txtTitle")%>

<%=rs("Url")%>

<%=rs("Pic")%>

<%=rs("txtSort")%>

';}" />

<%end sub%>

<%sub add()%>

添加<%=lanmusort%>
<%=lanmusort%>名称
<%=lanmusort%>地址
<%=lanmusort%>图片
<%=lanmusort%>排序
<%=lanmusort%>位置

<%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

修改<%=lanmusort%>
<%=lanmusort%>名称	" size="24">
<%=lanmusort%>地址	" size="24">
<%=lanmusort%>图片	" size="24">
<%=lanmusort%>排序	" onKeypress="if (event.keyCode < 45 \|\| event.keyCode > 57){alert('同志只能输入数字，谢谢'); event.returnValue = false;}" >
<%=lanmusort%>位置
" />

<%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%>

再来一个不要列表的

http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
http://www.w3.org/1999/xhtml">

日志管理--编辑

<%
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%>

<%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
%>

<%
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%>

<%sub delok()%>
<%conn.execute ("delete from Links where ID="&ID)%>
<%end sub%>

本文作者:柳永法来源:http://www.yongfa365.com/
CIO之家 www.ciozj.com 微信公众号:imciow

　　　　>>频道首页　　 >>网站首页　　纠错　　 >>投诉