📄 addaddress.asp
字号:
<!--#include file="../inc/Secure.asp"--><!--#include file="../inc/conn.asp"--><!--#include file="../inc/def_color.asp"--><%LoginID=trim(session("LoginID"))if LoginID="" then response.endID=trim(request("ID"))if ID<>"" thenset rs=server.createobject("adodb.recordset")sql="select * from tblAddressbook where ID="& IDrs.open sql,oConnif not rs.eof then sName=trim(rs("Name")) sOfficeTel=trim(rs("Officetel")) sHomeTel=trim(rs("HomeTel")) sPager=trim(rs("Pager")) sMobile=trim(rs("Mobile")) sPostCode=trim(rs("PostCode")) sEmail=trim(rs("Email")) sHomepage=trim(rs("Homepage")) sBody=trim(rs("Body")) sAddress=trim(rs("Address")) sUnit=trim(rs("Unit"))end ifrs.closeset rs=nothingend ifif Request("cmdUp")<>"" then Name=replace(trim(request("Name")),"'","''") OfficeTel=replace(trim(request("Officetel")),"'","''") HomeTel=replace(trim(request("HomeTel")),"'","''") Pager=replace(trim(request("Pager")),"'","''") Mobile=replace(trim(request("Mobile")),"'","''") PostCode=replace(trim(request("PostCode")),"'","''") Email=replace(trim(request("Email")),"'","''") Homepage=replace(trim(request("Homepage")),"'","''") Body=replace(trim(request("Body")),"'","''") Address=replace(trim(request("Address")),"'","''") Unit=replace(trim(request("Unit")),"'","''") if Name="" then errName="<img src='../images/error.gif' border=0 height=15 alt='必须输入姓名'>" if Name<>"" then if ID="" then AddAddress() response.write "<h3><font FACE=Verdana>Address Records Added!（通讯记录已经成功添加！）</font></h3><BR>谢谢！<BR>" 'response.write "还要增加下级到该任务吗？<a href=AddUnder.asp?planID="&NewID&"><img src=""../images/add.gif"" border=0></a><BR><BR>" response.write "<a href=index.asp><img src='../images/return.gif' border=0></a><BR>" response.end else UpdateAddress(ID) response.write "<h3><font FACE=Verdana>Address Records Updated!（通讯记录已经成功修改！）</font></h3><BR>谢谢！<BR>" response.write "<a href=index.asp><img src='../images/return.gif' border=0></a><BR>" response.end end if end ifend if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link rel="stylesheet" type="text/css" href="../css/main.css"> </head><body BGCOLOR="FFFFFF"><p ALIGN="center">添加/修改个人通讯资料</p><form NAME="eventfrm" ACTION="<% =Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"><div align=center><table CELLSPACING="1" CELLPADDING="1" border=0 WIDTH="80%" bgcolor="<%=bgcolor%>"><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT" WIDTH="20%"><b>姓名</b><font COLOR="RED">*</td><td VALIGN="TOP" WIDTH="80%"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Name" value="<%=sName%>"><%=errName%></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>E-mail</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="30" NAME="Email" value="<%=sEmail%>"> </td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>电话(O)</b></td><td VALIGN="TOP" ><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="OfficeTel" value="<%=sOfficeTel%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>电话(H)</b></td><td VALIGN="TOP" ><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="HomeTel" value="<%=sHomeTel%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>传呼</b></td><td VALIGN="TOP" ><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Pager" value="<%=sPager%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>手机</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Mobile" value="<%=sMobile%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>工作单位</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Unit" value="<%=sUnit%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>邮政编码</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Postcode" value="<%=sPostCode%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>详细地址</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="Address" value="<%=sAddress%>"></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>个人主页</b></td><td VALIGN="TOP"><input class="input" TYPE="TEXT" SIZE="30" MAXLENGTH="100" NAME="Homepage" <%if sHomepage="" THEN%>VALUE="http://"<%ELSE%>VALUE="<%=sHomepage%>"<%END IF%>></td></tr><tr bgcolor=#FFFFFF><td VALIGN="TOP" ALIGN="RIGHT"><b>其他</b></td><td VALIGN="TOP"><textarea COLS="48" ROWS="5" NAME="Body" WRAP="PHYSICAL"><%=sbody%></textarea></td></tr><tr bgcolor=#ffffff><td colspan=2 align=center><INPUT TYPE="submit" name="cmdUp" value="提 交" class=font9boldwhite><INPUT TYPE="reset" name="reset1" value="重 置" class=font9boldwhite></td></tr><tr bgcolor=#FFFFFF><td colspan=3><a href="index.asp"><img src="../images/return.gif" border=0></a></td></tr></table></div><BR><INPUT TYPE="hidden" name="ID" value="<%=ID%>"></form></body></html><%sub AddAddress() sql=" INSERT INTO tblAddressbook(ManageID, Name, OfficeTel, HomeTel,Email,Homepage,Pager,Mobile,PostCode,Address,Unit,Body) VALUES(" & LoginID & _ ",'" & Name & _ "','"& OfficeTel & _ "','"& HomeTel & _ "','"& Email & _ "','"& Homepage & _ "','"& Pager & _ "','"& Mobile & _ "','"& Postcode & _ "','"& Address & _ "','"& Unit & _ "','"& Body & _ "')" oConn.execute (sql) end subsub UpdateAddress(ID) sql="Update tblAddressbook set Name='"&Name&"', OfficeTel='"&OfficeTel&"', HomeTel='"&Hometel&"',Email='"&Email&"',Homepage='"&Homepage&"',Pager='"&Pager&"',Mobile='"&Mobile&"',PostCode='"&Postcode&"',Address='"&address&"',Unit='"&Unit&"',Body='"&Body&"' where ID="& ID oConn.execute (sql) end subFunction GetTableValue(TableName,Field,ValueField,Value) if TableName<>"" and Value<>"" then Set RsTmp = Server.Createobject("Adodb.recordset") strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'" Rstmp.open strSql,oConn,1,1 If not Rstmp.eof then GetTableValue=trim(Rstmp(Field)) else GetTableValue="" end if Rstmp.close 'set RsTmp = Nothing else GetTableValue="" end ifEnd Function%><!--#include file="../inc/conn_close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -