?? editcustomer.asp
字號:
<%Option Explicit%>
<!--#include file="config.asp"-->
<%
If session("admin")<>"ok" Then
response.redirect"index.asp"
End If
Dim Id,Company,Address,Name,eTitle,Tel1,Tel2,VIP,Demo
Id=request.querystring("Id")
If Id="" Then
Dim strJS
strJS=strJS+"<script language='javascript'>"
strJS=strJS+"alert('頁面參數不正確，請返回！');"
strJS=strJS+"location.href='main.asp';"
strJS=strJS+"</script>"
response.write strJS
End If
%>
<!--#include file="conn.asp"-->
<%
Dim objRS,strSQL
set objRS=Server.createobject("adodb.recordset")
strSQL="select * from customer where Id="&Id
objRS.Open strSQL,objConn,1,3
Company=objRS("Company")
Address=objRS("Address")
Name=objRS("Name")
eTitle=objRS("Title")
Tel1=objRS("Tel1")
Tel2=objRS("Tel2")
VIP=objRS("VIP")
Demo=objRS("Demo")
objRS.Close
objConn.Close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=title%></title>
<style type="text/css">
td{font-size:10pt;font-family:宋體;color:#000000;height:30px}
textarea,input{border-top:1 solid #cccccc;border-left:1 solid #cccccc;}
</style>
<script language="javascript">
function check(f){
var f1=f.Company.value;
if(!f1){
alert("請輸入客戶單位名稱！");
f.Company.focus();
return false;
}
var f2=f.Tel1.value;
if(!f2){
alert("請輸入該客戶的聯系電話！");
f.Tel1.focus();
return false;
}
return true;
}
</script>
</head>
<body bgcolor="#000000">
<table width="500" align="center" bordre=0 bgcolor="#ffffff"><tr><td width="100%">
<table align="center" border=0 width="98%" cellspacing=0 cellpadding=0>
<tr>
<td width="100%" align="center" valign="middle" style="font-size:11pt"><b><%=cnVersion%></b></td>
</tr>
</table>
<table align="center" border=1 width="98%" cellspacing="0" cellpadding="0" bordercolorlight="#D4D0C8" bordercolordark="#999999">
<tr bgcolor="#D4D0C8">
<td width="100%" align="left" colspan=2> ++編輯客戶資料++</td>
</tr>
<form name="addForm" method="post" onsubmit="return check(this);" action="editcustomerok.asp">
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">單位名稱</td>
<td width="75%" align="left"> <input type="text" name="Company" style="width:250px" value="<%=Company%>"> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">單位地址</td>
<td width="75%" align="left"> <input type="text" name="Address" style="width:250px" value="<%=Address%>"></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">聯 系 人</td>
<td width="75%" align="left"> <input type="text" name="Name" style="width:250px" value="<%=Name%>"></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">現任職務</td>
<td width="75%" align="left"> <input type="text" name="Title" style="width:250px" value="<%=eTitle%>"></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">辦公電話</td>
<td width="75%" align="left"> <input type="text" name="Tel1" style="width:250px" value="<%=Tel1%>"> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">個人電話</td>
<td width="75%" align="left"> <input type="text" name="Tel2" style="width:250px" value="<%=Tel2%>"></td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">重要程度</td>
<td width="75%" align="left">
<%If 1=VIP Then%>
<input type="radio" name="VIP" value="1" checked>普通 <input type="radio" name="VIP" value="2"><font color="#008000">重要</font> <input type="radio" name="VIP" value="3"><font color="#ff0000">非常重要</font>
<%ElseIf 2=VIP Then%>
<input type="radio" name="VIP" value="1">普通 <input type="radio" name="VIP" value="2" checked><font color="#008000">重要</font> <input type="radio" name="VIP" value="3"><font color="#ff0000">非常重要</font>
<%ElseIf 3=VIP Then%>
<input type="radio" name="VIP" value="1">普通 <input type="radio" name="VIP" value="2"><font color="#008000">重要</font> <input type="radio" name="VIP" value="3" checked><font color="#ff0000">非常重要</font>
<%End If%>
</td>
</tr>
<tr>
<td width="25%" align="center" bgcolor="#D4D0C8">備 注</td>
<td width="75%" align="left"> <textarea name="Demo" style="width:250px;height:80px" rows="1" cols="20"><%=Demo%></textarea></td>
</tr>
<tr bgcolor="#D4D0C8">
<td width="100%" align="center" colspan=2>
<input type="hidden" name="Id" value="<%=Id%>">
<input type="submit" name="S1" value="<修改>" style="border:0">
<input style="border:0" type="reset" name="r1" value="<重寫>">
<a href="main.asp">返回</a>
</td>
</tr>
</form>
</table>
<table align="center" border=0 width="98%" cellspacing=0 cellpadding=0>
<tr>
<td width="100%" align="center" valign="middle" style="font-size:10pt"><%=enVersion%></td>
</tr>
</table>
</td></tr></table>
</body>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -