www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/addressList/addressList_update.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage=65001
response.Charset=utf-8
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../connDB.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>通讯录</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css">
<link href="../themes/frmRight/frameRight.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="addressList_manage.asp">通讯录管理</a> | <a href="addressList_add.asp">添加</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>通讯录管理</dt>
<dd>
<br />
<%
if (request.Form("fName")<>"" and request.Form("fTel")<>"") then
'response.Write("这里添加数据")
fName =request.Form("fName")
fTel=request.Form("fTel")
fQQ=request.Form("fQQ")
fEmail=request.Form("fEmail")
fAddress=request.Form("fAddress")
fNote=request.Form("fNote")
fCreateTime=request.Form("fCreateTime")
fid=request.Form("fid")
sql="update tAddressList set fName='"&fName&"',fTel='"&fTel&"',fQQ='"&fQQ&"',fEmail='"&fEmail&"',fAddress='"&fAddress&"',fNote='"&fNote&"',fCreateTime='"&fCreateTime&"' where fid=" & fid
conn.execute(sql)
response.Write("修改 ["&fName&"] 成功!")
else
sql_cha="select * from tAddressList where fid=" & request.QueryString("id")
set rsCha=conn.execute(sql_cha)
if (rsCha.eof and rsCha.bof)then
response.Write("没有记录")
else
%>
<form id="form1" name="form1" method="post" action="">
<table width="90%" class="tableBoderForm">
<tr>
<td colspan="2"><h2>修改信息</h2></td>
</tr>
<tr>
<td width="100">姓名：</td>
<td><div align="left">
<input name="fName" type="text" id="fName" value="<%=rsCha("fName")%>" />
</div></td>
</tr>
<tr>
<td>电话：</td>
<td><div align="left">
<input name="fTel" type="text" id="fTel" size="50" value="<%=rsCha("fTel")%>" />
</div></td>
</tr>
<tr>
<td>QQ：</td>
<td><div align="left">
<input type="text" name="fQQ" id="fQQ" value="<%=rsCha("fQQ")%>" />
</div></td>
</tr>
<tr>
<td>e-mail:</td>
<td><div align="left">
<input name="fEmail" type="text" id="fEmail" size="50" value="<%=rsCha("fEmail")%>"/>
</div></td>
</tr>
<tr>
<td>地址：</td>
<td><div align="left">
<input name="fAddress" type="text" id="fAddress" size="50" value="<%=rsCha("fAddress")%>"/>
</div></td>
</tr>
<tr>
<td>备注：</td>
<td><div align="left">
<textarea name="fNote" cols="50" rows="6" id="fNote"><%=rsCha("fNote")%></textarea>
</div></td>
</tr>
<tr>
<td>日期：</td>
<td><div align="left">
<input name="fCreateTime" type="text" id="fCreateTime" value="<%=rsCha("fCreateTime")%>" size="50" />
</div></td>
</tr>
<tr>
<td>
<input name="fid" type="hidden" value="<%=rsCha("fid")%>" />
</td>
<td><input type="submit" name="button" id="button" value="提交" />
<input type="reset" name="button2" id="button2" value="重置" /></td>
</tr>
</table>
</form>
<%
end if
end if
%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%call closeConnDB()%>