如何在ASP里实现点击标题就能按照标题的项目排序?请问如何修改代码??
效果图如下:
代码如下:
<!--#include file="Conn.asp"--><%if request("action")=1 thenWorks_Id = Trim(Request("Works_Id"))Sql = "Select * From Works_Info Where Works_Id="&Works_IdRs.Open Sql,Conn,1,1If Not Rs.Eof and Not Rs.bof thenDim sSavePathFileNameSavePathFileName = Rs("Works_allpics")SavePathFileName = Split(SavePathFileName, "|")End IfDim iFor i = 0 To UBound(SavePathFileName)Call DoDelFile(SavePathFileName(i))Nextrs.closeConn.Execute("Delete * From Works_Info Where Works_Id="&Works_Id&"")Response.Write "<p align=center>删除成功,2秒后自动返回!<script>window.setTimeout(""location.href='"&request.servervariables("http_referer")&"'"",2000);</script></p>" response.End() Sub DoDelFile(PathFile)On Error Resume NextDim FSOSet FSO = Server.CreateObject("Scripting.FileSystemObject")FSO.DeleteFile(Server.MapPath(PathFile))Set FSO = NothingEnd Subend if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title></title><link rel="stylesheet" type="text/css" href="css1.css"><style type="text/css"><!--.STYLE1 {color: #FF0000}--></style></head><body> <br> <% dim totalPut dim CurrentPageif not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if const Max=20
works_stat=request("works_stat")if works_stat="" thennworks_stat=""elsenworks_stat = "works_stat = '"&works_stat&"' and "end if
works_statu=request("works_statu")if works_statu="" thennworks_statu=""elsenworks_statu = "works_statu = '"&works_statu&"' and "end if
sql= "select * from Works_Info where "&nworks_stat&nworks_statu&" x=1 order by Works_Id desc"
Rs.Open Sql,Conn,1,1if Rs.eof and Rs.bof then response.write("<br><br>暂时还没有任何工作信息!")
else
totalPut=Rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*Max>totalput then if (totalPut mod Max)=0 then currentpage= totalPut \ Max else currentpage= totalPut \ Max + 1 end if end if if currentPage=1 then showContent showpage totalput,Max,"WorksList.asp" else if (currentPage-1)*Max<totalPut then Rs.move (currentPage-1)*Max dim Newsmark Newsmark=Rs.Newsmark showContent showpage totalput,Max,"WorksList.asp" else currentPage=1 showContent