小组接了省教育厅的项目后,我在oa3.0练习中被时哥拉来弄保定吧,已经有半个月了。也是我学习asp的半个月。以前由于不明白很讨厌asp,用.net时前台后台分的那么详细,现在用asp居然代码和html页面放在一起,而且一句话就加了个页面进来,觉得这太不符合常情了。
曾经也觉得不懂句法乱改页面挺好玩的。不过过了几天失败过n多次后就郁闷了。然后再也不想弄asp了 。那时真是进退两难。我领着一堆看都看不懂的asp任务,小组又忙省教育厅没人管我,太简单的东西又不好意思常去问时哥。马哥不学asp,峰老又不常来。于是有种被抛弃的感觉。呵呵~~~
这样熬了不久,渐渐的能解决点简单的任务,也经过朱哥的帮忙终于熬过了艰难的阶段。然后能解决些一般asp错误后,空闲时间投入到asp版的新闻发布的制作。
随着任务的减少,再加上通宵。asp版新闻发布算是完成了。
晚上忽然想到可能以后再也接触不到asp技术了,想想就这样和asp擦肩而过,真有种不舍之情。安排一个通宵时间把分页功能完成了,算是给asp的学习生涯画一个完美的句号吧。不枉学了半个月的asp,无憾的向asp说声再见!

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="Config/WebConfig.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>asp版新闻发布</title>
</head>
<body>    
        
<% 
    
if request.QueryString("action")="del" then    
        
dim ok
            
dim ok2
            ok
=request.Form("id")
            ok2
=split(ok,"")
            response.Write(ok2(i))    
                
For i = 0 To UBound(ok2)         
                    response.Write(
"您选的第"& i+1 &"个ID:" & ok2(i)& "<br />")
                    conn.execute(
"DELETE FROM [dbh171001].[h171001].[PowerSite_User_Disp] where userid=" & ok2(i))        
                
Next 
             response.Redirect(
"showNews.asp?action=delok")
                
set conn=nothing
    
end if
        
        sqlwm 
= "SELECT  * FROM PowerSite_User_Disp"
        
set rswm= server.CreateObject("adodb.recordset")
        rswm.open sqlwm,conn,
1,1
        
rswm.pagesize
=5
curpage
=Request.QueryString("curpage")
if curpage="" then curpage=1
rswm.absolutepage
=curpage

        



%>



<form action="shownews.asp?action=del" method="post" name="f" >


<href="addnews.asp">添加新闻</a>&nbsp;&nbsp;
            
<INPUT type="submit" value="删除"><%if request.QueryString("action")="delok" then response.Write("<font color=red>删除成功!</font>"%>
            
<br />
            
<%for i= 1 to rswm.pagesize
            
if rswm.eof then
exit for
end if
%>
             
            
<%=rswm("UserID")%>&nbsp;&nbsp;<%=rswm("msn")%>&nbsp;<%=rswm("qq")%> 
            
            
<href="editNews.asp?id=<%=rswm("userid")%>">编辑</a>
            
<input type="checkbox" name="id" value="<%=rswm("UserID")%>" >

            
<br />
            
<%
rswm.movenext
next

%>
<div>当前第<%=curpage%>页,共有<%=rswm.pagecount%>页,共有:<%=rswm.recordcount%>条记录</div>
<%if curpage=1 then%>
首页
<%else%>
<href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rswm.pagecount<curpage+1 then%>
下一页
<%else%>
<href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>

<%if rswm.pagecount<curpage+1 then%>
尾页
<%else%>
<href="?curpage=<%=rswm.pagecount%>">尾页</a>
<%end if%>


            
</form>     
        

    
</body>
posted on 2007-10-30 01:23  超少  阅读(314)  评论(2编辑  收藏  举报