用于前台操作数据表排序字段的研究

最新推荐文章于 2025-12-18 10:02:55 发布

原创最新推荐文章于 2025-12-18 10:02:55 发布 · 803 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #function #xhtml #javascript #sql #html

ASP网站开发技术专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种利用VBScript和JavaScript实现的前端数据表排序方法。通过用户界面操作，可以轻松调整数据库中记录的顺序。具体实现了记录上移和下移功能，并即时更新数据库中的排序字段。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'用于前台操作数据表排序字段的研究
'作者：周培公
'数据库：d.mdb
'数据表：t
'字段：ID,name,orderID
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("d.mdb")

  If Request.form("a")<>"" Then
  dim arrTest
  arrTest=Request.form("a")
  response.Write(arrTest)
  dim arrT
  arrT=split(arrTest,"|")
  dim j,arT1,arT2
  arT1=split(arrT(0),",")'第一个数是ID,第二个数是orderID
  arT2=split(arrT(1),",")
  conn.exeCute("update t set orderID="&arT1(1)&" where id="&arT1(0))
  conn.exeCute("update t set orderID="&arT2(1)&" where id="&arT2(0))
  response.Redirect("index.asp")
else

dim sql,rs
sql="select * from t order by orderID"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
%>
<!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>
</head>
<body>
<%
  dim intCounter
  intCounter=0
  dim lastCountIndex
  lastCountIndex=rs.recordcount-1
  do while not rs.eof
   %>
   <%= rs("id") %>、<%= rs("name") %>---<%= rs("orderID") %>
     
   [
   <%
   If intCounter<>0 Then
   %>
  <a href="#" onclick="upOder(<%= intCounter %>);return false;">升</a>
  <%
   End If
   If intCounter<>lastCountIndex Then
   %>
  <a href="#" onclick="downOder(<%= intCounter %>);return false;">降</a>
  <%
   End If
   %>
  ]<br />
<%
  intCounter=intCounter+1
  rs.movenext
  loop
%>
<form id="f" name="f" method="post" action="">
<input name="a" type="hidden" value="" />
</form>
<script language="javascript">

</script>
</body>
</html>
<%
  end if
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>