📄 appendlist.asp
字号:
<!--#INCLUDE FILE="setup.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%
locat="附加通信录"
if membername="" then
errmsg=errmsg+"<br>"+"<li>您还没有<a href=login.asp>登录</a>。"
call top(1,1)
call error("Information",errmsg)
else
joinstatus=chkjoinclass(clsid)
if joinstatus<>"" then
call top(1,1)
call error("Exclamation",joinstatus)
else
select case request("action")
case "add"
act="添加同学信息"
call top(2,1)
call addform()
case "save"
act="添加同学信息"
call top(2,1)
call savedata()
case "delete"
act="删除同学信息"
call top(2,1)
call delete()
case "confirm"
act="删除同学信息"
call top(2,1)
call confirm()
case "modify"
act="修改同学信息"
call top(2,1)
call modify()
case "edit"
act="修改同学信息"
call top(2,1)
call editform()
case else
call top(2,1)
call dispappends()
end select
end if
end if
sub dispappends()
%>
<br><br>
<table width=380 align=center><tr><td><a href=appendlist.asp?action=add><IMG SRC="IMAGES/friend.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""hspace=2>添加附加通讯录</td></tr></table>
<%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
%>
<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></td>
</tr>
<tr>
<td width="345" colSpan="2"><font color="#476992"> 姓 名：<font
color="red"></font></font></td>
</tr>
<tr>
<td width="345" colSpan="2"><font color="#476992"> 联系电话：</font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><p align="left"><font
color="#476992"> 通信地址：</font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><font color="#476992"><p align="left"> 邮政编码：</font></td>
</tr>
<tr>
<td class="ourfont" align="right" width="345" colSpan="2"><font color="#476992"><p align="left"> 其他信息：</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>
<%
else
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 sysadmin 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
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%>>
<th colspan=2 align=center>添加附加通信录</th></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/reminder.gif> 注意:只有你和班级管理员才有权修改和删除你录入的通信资料！</td>
</tr>
<tr bgcolor=<%=tablebodycolor1%>>
<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("Critical",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)
rURL="appendlist.asp"
rtitle="添加同学信息成功"
rmsg="<FONT COLOR="&TableContentcolor&">本页面将在2秒后自动返回附加通讯录页面<br><ul>"&_
"<li><a href=appendlist.asp><font color="&TableContentcolor&">返回附加通讯录</font></a></li>"&_
"</ul>"
redirect 2,rurl,rtitle,rmsg
end if
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -