html个人网站xp界面 <%@LANGUAGE="VBSCRIPT" C

文件名称: html个人网站xp界面

所属分类: C#

开发工具:

文件大小: 17mb

下载次数: 0

上传时间: 2009-05-21

提供者: ylp****

下载 (17mb)

不能下载？报告错误

详细说明： <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 留言板首页

修改用户资料

修改用户密码

<%if session("$_name$")="" then%>

用户名：密码：

<%else%>

<%=session("$_name$")%> 您好，欢迎您来到潇湘尘影的留言板【控制面板】【退出登录】

<%end if%>

<%dim rs,sql,p,q set rs=server.CreateObject("adodb.recordset") sql="select * from userDetail,Msg where userDetail.UserName=Msg.MsgAuthor order by MsgID desc" rs.open sql,conn,1,1 rs.pagesize=5 q=10 '设置每页可以浏览的页的总数 if request.QueryString("p")<>"" then p=CInt(request.QueryString("p")) else p=0 'p=0时，则翻页数字显示1 2 3 4 5，p=1时，则翻页数字显示6 7 8 9 10，依次类推 end if if request.QueryString("iPage")<>"" then iPage=CInt(request.QueryString("iPage")) 'if iPage<1 then iPage=1 'if iPage>rs.pageCount then iPage=rs.pageCount else iPage=1 end if rs.AbsolutePage=iPage%> 共有<%=rs.recordcount%>条留言 | 共<%=rs.pagecount%>页 | 当前为第<%=rs.AbsolutePage%>页

<% if rs.eof then response.write("暂无留言") else for i=0 to rs.pageSize-1 if rs.Eof or rs.bof then exit for %>

<%=rs("UserName")%> 标题：<%=rs("MsgTitle")%>

<%=rs("UserHeadPic")%>
QQ:<%=rs("UserQQ")%>| " title="发邮件给他/她">
<%=rs("MsgDate")%> <%=rs("MsgContent")%>

<%if rs("MsgReply")<>"" then%>

管理员回复：
(<%=rs("MsgReDate")%>) <%=rs("MsgReply")%>

<%end if%>

<%if session("$_name$")=rs("MsgAuthor") then%>">编辑 | <%end if%><%if session("$_name$")="admin" then%>">回复 | ">删除<%end if%>

<% rs.movenext next end if %>

<%if p<>0 then%> << <%else%> << <%end if%> <%for j=1 to q if(p*q+j<=rs.pageCount) then if(iPage<>q*p+j) then%> <%=q*p+j%> <%else%> <%=q*p+j%> <% end if end if next%> <%if p<>(rs.pageCount\q) then%> >> <%else%> >> <%end if%> <% rs.close set rs=nothing conn.close set conn=nothing%>

...展开收缩