📄 addressedit.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="../inc/def_color.asp"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then response.end
ID=trim(request("ID"))
if ID<>"" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from tblAddressbook where ID="& ID
	rs.open sql,Conn
	if not rs.eof then
		sName=trim(rs("Name"))
		sOfficeTel=trim(rs("Officetel"))
		sHomeTel=trim(rs("HomeTel"))
		sQQ=trim(rs("QQ"))
		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 if
	rs.close
	set rs=nothing
end if

if Request("cmdUp")<>"" then
	Name=replace(trim(request("Name")),"'","''")
	OfficeTel=replace(trim(request("Officetel")),"'","''")
	HomeTel=replace(trim(request("HomeTel")),"'","''")
	QQ=replace(trim(request("QQ")),"'","''")
	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>通讯记录已经成功添加！</font></h3><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>通讯记录已经成功修改！</font></h3><BR>谢谢！<BR>"
			response.write "<a href=index.asp><img src='../images/return.gif' border=0></a><BR>"
			response.end
		end if
	end if
end 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>QQ号码</b>
</td>
<td VALIGN="TOP" ><input class="input"  TYPE="TEXT" SIZE="30" MAXLENGTH="40" NAME="QQ" value="<%=sQQ%>">
</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,QQ,Mobile,PostCode,Address,Unit,Body) VALUES(" & LoginID & _
		",'" & Name & _
		"','"& OfficeTel & _
		"','"& HomeTel & _
		"','"& Email & _
		"','"& Homepage & _
		"','"& QQ & _
		"','"& Mobile & _
		"','"& Postcode & _
		"','"& Address & _
		"','"& Unit & _
		"','"& Body & _
		"')"
	Conn.execute (sql)
end sub

sub UpdateAddress(ID)
	sql="Update tblAddressbook set Name='"&Name&"', OfficeTel='"&OfficeTel&"', HomeTel='"&Hometel&"',Email='"&Email&"',Homepage='"&Homepage&"',QQ='"&QQ&"',Mobile='"&Mobile&"',PostCode='"&Postcode&"',Address='"&address&"',Unit='"&Unit&"',Body='"&Body&"' where ID="& ID
	Conn.execute (sql)
end sub

Function 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,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function
%>
<!--#include file="../inc/connclose.asp"-->
⌨️ 快捷键说明

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