📄 user_index.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
					<input class="button" type="submit" value="提交申请" name="submit">
					<input class="button" type="reset" value="重置表单" name="reset">
					</td>
				</tr>
			</table>
			</td>
		</tr>
	</form>
</table>
<%end sub
Sub box()%>

<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#ffffff" border="0">
								<tr>
									<td>
									<table cellSpacing="1" cellPadding="3" width="100%" border="0">
										<tr>
											<td bgColor="#588fc7" colSpan="6" class="head">
											<font color="#FFFFFF"><b><%=UserName%> 的藏书架</b></font></td>
										</tr>
										<tr align="middle" bgColor="#588fc7">
											<td class="head">
											<font color="#FFFFFF">作品名称</font></td>
											<td class="head">
											<font color="#FFFFFF">作者</font></td>
											<td class="head">
											<font color="#FFFFFF">收藏日期</font></td>
											<td class="head">
											<font color="#FFFFFF">最近更新章节</font></td>
											<td class="head">
											<font color="#FFFFFF">章节书签</font></td>
											<td class="head">
											<font color="#FFFFFF">删除</font></td>
										</tr>
										<%
set rs=server.createobject("adodb.recordset")
sql="select * from [User_box] where UserID="&UserID&" order by id desc"
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
do while not rs.eof%>
										<%
										dim list_bookid
										list_bookid=rs("list_bookid")
										set rs_u=server.createobject("adodb.recordset")
										sql_u="select id,list_name,list_user,newviewid,newviewname from [list_book] where id="&list_bookid&""
										rs_u.open sql_u,conn,1,1
										if not (rs_u.bof and rs_u.eof) then%>
										<tr>
											<td align="middle" bgColor="#ffffff">
											<a target="_blank" style="color: #1A53FF; text-decoration: none; background-color: transparent" target="_blank" href="look_book.asp?id=<%=rs_u("id")%>">
											<%=rs_u("list_name")%></a></td>
											<td align="middle" bgColor="#dfefff">
											<%=rs_u("list_user")%></td>
											<td align="middle" bgColor="#ffffff">
											<%=rs("live_date")%></td>
<td align=middle bgColor=#dfefff >
<a style="color: #1A53FF; text-decoration: none; background-color: transparent" target="_blank" href="view_book.asp?id=<%=rs_u("newviewid")%>"><%if rs_u("newviewname")<>"" then%><%=rs_u("newviewname")%><%else response.write "暂无更新"
end if%></a>
</td>
											<td align="middle" bgColor="#ffffff"><%
if rs("list_viewid")<>"" then
										set rs_v=server.createobject("adodb.recordset")
										sql_v="select view_type from [list_view] where id="&rs("list_viewid")&""
										rs_v.open sql_v,conn,1,1
										if not (rs_v.bof and rs_v.eof) then%>
<a style="color: #1A53FF; text-decoration: none; background-color: transparent" target="_blank" href="view_book.asp?id=<%=rs("list_viewid")%>"><%=rs_v("view_type")%></a>
<%else
 response.write "暂无书签"
End If
else
 response.write "暂无书签"
End If
%></td>
											<td align="middle" bgColor="#dfefff">
											<input class="stbtm" onclick="javascript:location.href='user_save.asp?info=boxdelbook&id=<%=rs("id")%>'" type="submit" value="删除"></td>
										</tr>
										<%else
										End If%>
										<%rs.movenext
										 loop
										 %>
										<tr align="right">
											<td bgColor="#588fc7" colSpan="6" height="25" class="head">
											</td>
										</tr>
										<% else  %>
										<tr>
										    <td align="center" height="30" bgcolor="#FFFFFF" colspan="6">您还没有收藏任何作品~</td>
										</tr>
										<tr align="right">
											<td bgColor="#588fc7" colSpan="6" height="25" class="head">
											</td>
										</tr>
										<%End If
										rs.close
										set rs=nothing
										%>
									</table>
									</td>
								</tr>
						</table>
<%end sub
Sub pm()%>
<script language="javascript">
function view(id){
var id;
window.open('user_showduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=430');
} 
</script>
<script language="javascript">
function viewss(id){
var id;
window.open('user_showsitiduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=430');
} 
</script>
<script language="JavaScript">
<!--
function views(id)
{
	var filename=""+id;
	window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=580,height=420");
}
//-->
</script>
<script>
function test()
{
  if(!confirm('您确认删除吗？')) return false;
}
</script>
<% set rsu=server.CreateObject("ADODB.RecordSet")
           rsu.open "select usermessenge,messenge from [Userinfo] where ID="&UserID&"",conn,1,1%>
<table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor="#588fc7">
	<tr>
		<td class="head"><font color="#FFFFFF"><b>短信箱 『 共可存短信<%=rsu("usermessenge")%>条，现剩余<%=rsu("messenge")%>条 
		』</b></font></td>
	</tr>
</table>
<%
rsu.close
set rsu=nothing
%>
<table width="100%" height="22" border="0" align="center" cellspacing="1" cellpadding="4" bgcolor="#CCCCCC">
	<tr bgcolor="#dfefff">
		<td width="56%" height="22" align="center">留言内容</td>
		<td width="14%" align="center">留言人</td>
		<td width="20%" align="center">留言时间</td>
		<td width="10%" align="center">管理</td>
	</tr>
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [siti_duanxin] where sitis=1 order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:viewss(<%=rs("id")%>)">
		<font color="#800000">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">  </td>
	</tr>
	<%
rs.movenext
	loop
end if
rs.close
set rs=nothing

Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [siti_duanxin] where nickname='"&UserName&"' order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:viewss(<%=rs("id")%>)">
		<font color="#800000">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">  </td>
	</tr>
	<%
rs.movenext
	loop
end if
rs.close
set rs=nothing

Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if

Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [duanxin] where nickname='"&UserName&"' order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
   Rs.PageSize=MaxPerPage
   Allpage=Rs.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rs.RecordCount
   Rs.MoveFirst
   Rs.AbsolutePage=CurrentPage
   i=0
	Do While Not Rs.Eof%>
	<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:view(<%=rs("id")%>)">
		<font color="#<%if rs("yd")=1 then Response.Write "008000" else Response.Write "FF0000"%>">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">
		<a href="user_save.asp?info=pmdel&id=<%=rs("id")%>" onclick="return test();">
		删除</a>
		<a href="javascript:views('user_duanxinadd.asp?custom=<%=rs("custom")%>')">
		回复</a> </td>
	</tr>
<%      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rs.MoveNext
   Loop
End If
Rs.Close
Set  Rs=Nothing
%>
</table>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td align="center"><%
Response.Write ShowPage("user_index.asp?info=pm",CurrentPage,Num,MaxPerPage,True,True," 条纪录")
%></td>
	</tr>
</table>
</tr>
</table>
<br />
<p align="center"><font color="#FF0000">红色</font>为未阅读&nbsp;&nbsp; 
|<font color="#008000">&nbsp;&nbsp; 绿色</font>为已阅读&nbsp;&nbsp;
|<font color="#800000">&nbsp;&nbsp; 褐色</font>为系统短信&nbsp;&nbsp; 
<br />
</p>
<p align="center"><a href="javascript:views('user_duanxinadd.asp')">
写新短信</a></p>
<%end sub
Sub gxuser()%>

<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#ffffff" border="1" bordercolordark="#588FC7">
	<form name="formgx" method="post" action="User_save.Asp?info=gxuser">
	<tr>
		<td>
		<table cellSpacing="1" cellPadding="4" width="100%" border="0" bordercolorlight="#588FC7">
			<tr>
				<td bgColor="#588fc7" colSpan="2" class="head">
				<font color="#FFFFFF">
				<b>申请更新员</b></font></td>
			</tr>
			<tr bgColor="#ffffff">
				<td vAlign="top">申请理由及你想更新的作品名称<br>请附加作品新内容以便审核通过:<br>请同时提供你的会员ID号码<br>（在会员控制面版中可以看到）<br>
				限制字数：<%=GXuserwritmix%> 字到 <%=GXuserwritmax%> 字</td>
				<td vAlign="top" width="60%">
						<textarea name="GO_GXuserAnswer" cols="100" rows="10" style="font-family: Tahoma,'MS Shell Dlg',宋体; font-size: 12px; font-weight: normal; background-color: #EEEEEE"></textarea> 
				</td>
			</tr>
			<tr align="middle" bgColor="#588fc7">
				<td colSpan="2" class="head">
				<input class="button" type="submit" value="  提交  ">
				<input class="button" type="reset" value="  重置  "> 
				</td>
			</tr>
		</table>
		</td>
	</tr>
</form>
						</table>
<%end sub%>
上一页 12
💿 文件大小 667 K
👤 上传用户 ccdn2615
📂 所属分类 VC书籍
🏷️ 相关标签

#家 #模块 #发布 #更新
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -