📄 appendlist.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="const.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<html><head>
<title><%=SchoolmateName%>——附加通信录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">
</head>
<body alink=#333333 vlink=#333333 link=#333333 topmargin=0 leftmargin=0 bgColor="<%=bodycolor%>">
<%
call isjoinclass(1)
bisystemadmin=issystemadmin(0)
if request("action")="add" then
call addform()
elseif request("action")="save" then
call savedata()
elseif request("action")="delete" then
call delete()
elseif request("action")="confirm" then
call confirm()
elseif request("action")="modify" then
call modify()
elseif request("action")="edit" then
call editform()
else
call dispappends()
end if
sub dispappends()
dim rs,sql
sql="select [append].*,[student].realname from [append],[student] where "&_
"append.classid="&clsid&" and student.userid=append.collector order by append.id desc"
set rs=conn.execute(sql)
if rs.eof or rs.bof then
Errmsg="<br>"+"<li>对不起，目前附加通信录为空!"
call error(Errmsg)
else
response.write "<br><br>"
do until rs.eof
%>
<table cellSpacing="1" width="361" bgColor="#603460"
border="0" align=center>
<TBODY>
<tr vAlign="top" bgColor="#ffffff">
<td vAlign="top"><img src="images/appendbar.gif" width="380">
<table cellSpacing="0" borderColorDark="#ffffff" width="380" borderColorLight="#000000"
border="1">
<tr>
<td align="right" colSpan="2" valign=center>本信息由<font color=brown><%=htmlencode(rs("realname"))%></font>提供
<%if membername=rs("collector") or isclassadmin(0)=true or bisystemadmin =true then%>
<a href=appendlist.asp?action=edit&id=<%=rs("id")%>><img src=images/edit.gif border=0></a> <a href=appendlist.asp?action=confirm&id=<%=rs("id")%>><img src=images/recycle.gif border=0></a>
<%end if%></td>
</tr>
<tr>
<td width="345" colSpan="2"><font color="#476992"> 姓 名：<font
color="red"><%=htmlencode(rs("name"))%></font></font></td>
</tr>
<tr>
<td width="345" colSpan="2"><font color="#476992"> 联系电话：<%=htmlencode(rs("telephone"))%></font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><p align="left"><font
color="#476992"> 通信地址：<%=htmlencode(rs("address"))%></font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><font color="#476992"><p align="left"> 邮政编码：<%=htmlencode(rs("zipcode"))%></font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><font color="#476992"><p align="left"> 其他信息：<%=htmlencode(rs("other"))%></font></td>
</tr>
</table>
</td>
</tr>
</TBODY>
</table>
<div align="center"><center><table cellSpacing="0" cellPadding="0"
width="380" border="0">
<TBODY>
<tr>
<td align="right"><img height="12" src="images/more2.gif" width="69"></td>
</tr>
</TBODY>
</table>
</center></div><p><br>
</p>
<%
rs.movenext
loop
end if
set rs=nothing
call endconnection()
end sub
sub addform()
%>
<br><br>
<script language="JavaScript" src="script/jsfun.js"></script>
<form style="MARGIN: 0px" name="frmappend" action="appendlist.asp" method="post"
onsubmit="return submitonce(this)">
<input type="hidden" name="action" value="save">
<table border="0"
cellspacing="1" width="400" cellpadding="6" bgcolor="<%=tablebordercolor%>" align=center>
<tr bgcolor=<%=tabletitlecolor%>>
<td colspan=2 align=center><img height="35" src="images/icon04.gif" width="35" align="absMiddle"> 添加附加通信录</td></tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td height="13" align=center>同学姓名 </td>
<td><input size="30" name="name" maxlength=16></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td height="13" align=center>联系电话 </td>
<td><input size="30" name="telephone"></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td align=center>通信地址 </td>
<td><input size="30" name="address"></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td align=center>邮政编码 </td>
<td><input size="30" name="zipcode" maxlength=6></td>
</tr>
<tr bgcolor=<%=tablebodycolor2%>>
<td valign="center" align=center>其他信息 </td>
<td><textarea rows="4" cols="30" name="other"></textarea></td>
</tr>
<tr bgcolor=<%=tablebodycolor1%>>
<td colspan=2 valign=center><img src=images/passwd.gif> 注意:只有你和班级管理员才有权修改和删除你录入的通信资料！</td>
</tr>
<tr bgcolor=<%=tabletitlecolor%>>
<td height="30" align="center" bordercolor="#EBEBEB" colspan=2>
<input style="WIDTH: 80px; HEIGHT: 20px" type="submit" value="添加(S)" name="submit">
<input style="WIDTH: 80px; HEIGHT: 20px" type="reset" value="重置(R)"
name="reset"> </td>
</tr>
</table>
</form>
</body>
</html>
<%
end sub
sub savedata()
action=request.form("action")
if action<>"save" then
errmsg=errmsg+"<br>"+"<li>没有操作请求，您正试图进行非法操作！"
founderr=true
call error(errmsg)
exit sub
end if
if chkinput=true then
name=trim(request.form("name"))
telephone=trim(request.form("telephone"))
address=trim(request.form("address"))
zipcode=trim(request.form("zipcode"))
other=rtrim(request.form("other"))
rem adddate=year(date())&"年"&month(date())&"月"&day(date())&"日"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "append",conn,1,3
rs.addnew
rs("name")=name
if telephone<>"" then rs("telephone")=telephone
if address<>"" then rs("address")=address
if zipcode<>"" then rs("zipcode")=zipcode
rs("collector")=membername
rs("classid")=clsid
rem rs("adddate")=adddate
if other<>"" then rs("other")=other
rs.update
rs.close
set rs=nothing
sql="update [student] set point=point+"&pAddappend&" where userid='"&membername&"'"
conn.execute(sql)
call endconnection()
call addsuccess()
end if
end sub
sub addsuccess()
response.write "<meta http-equiv=refresh content=""2;URL=appendlist.asp"">"
response.write "<br><br><table cellpadding=0 cellspacing=1 border=0 width=85% bgcolor="&tablebordercolor&" align=center>"&_
"<tr><td><table cellpadding=3 cellspacing=1 border=0 width=""100%"">"&_
"<tr align=center><td width=100% bgcolor="&tabletitlecolor&"><b><FONT COLOR="&TableFontcolor&">状态：成功添加同学信息</font></b></td>"&_
"</tr><tr><td width=100% bgcolor="&tablebodycolor2&">"&_
"<FONT COLOR="&TableContentcolor&">本页面将在2秒后自动返回附加通讯录页面<br><ul>"&_
"<li><a href=appendlist.asp><font color="&TableContentcolor&">返回附加通讯录</font></a></li>"&_
"</ul></td></tr></table></td></tr></table>"
end sub
sub confirm()
AppendID=request("id")
set rs=conn.execute("select * from [append] where id="&AppendID)
if rs.eof or rs.bof then
errmsg=errmsg+"<br>"+"<li>非法操作，该同学的信息不存在"
call error(errmsg)
else
%><br><br>
<script language="JavaScript" src="script/jsfun.js"></script>
<form style="MARGIN: 0px" name="frmteach" action="appendlist.asp" method="post"
onsubmit="return submitonce(this)">
<input type="hidden" name="appendid" value="<%=AppendID%>">
<input type="hidden" name="action" value="delete">
<table cellpadding=0 cellspacing=0 border=0 width=350 bgcolor=<%=TableborderColor%> align=center>
<tr>
<td>
<table cellpadding=5 cellspacing=1 border=0 width=100%>
<tr align="center">
<td width="100%" bgcolor=<%=TabletitleColor%>><font color="<%=TableFontColor%>"><b>同学录提示信息</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor=<%=TablebodyColor2%> class=mp align=center valign=center><font color="<%=TableContentColor%>"><br>
<img src=images/question1.gif> 您是否真的要删除同学<font color="#cc0000"><b><%=rs("name")%></b></font>的信息？<br><br></font>
</td>
</tr>
<tr align="center">
<td width="100%" bgcolor=<%=TabletitleColor%>>
<input style="WIDTH: 80px; HEIGHT: 20px" type="submit" value="确认" name="submit">
<input style="WIDTH: 80px; HEIGHT: 20px" type="button" value="取消"
onclick="javascript:history.go(-1)">
</td>
</tr>
</table> </td></tr></table></form>
<%
end if
set rs=nothing
call endconnection()
end sub
sub delete()
appendid=request.form("appendid")
if appendid="" then
errmsg=errmsg+"<br>"+"<li>没有操作请求，您正试图进行非法操作！"
founderr=true
call error(errmsg)
exit sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -