guest_view.asp

来自「电子商务 物流 ASP+SQL2」· ASP 代码 · 共 142 行

ASP
142 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<% 
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="客户详细信息一览"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin="0"  onload="javascript:self.moveTo(0,0)">
<%
if isempty(session("username")) then
	call closedatabase
	Response.Write "请重新登入!"
	Response.End 
end if 
newcompanyid = request("companyid")
if newcompanyid = "" then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End 
elseif not isnumeric(newcompanyid) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
else
	newcompanyid = cint(newcompanyid) 
end if

guest_id = request("id")
if not isnumeric(guest_id) then
	call closedatabase
	Response.Write "<script language=javascript>"
	Response.Write "alert(""id必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	Response.End
end if
sql = "select * from guest where guest_id = "&guest_id&""
set rs_guest = conn.execute(sql)
if not rs_guest.eof then
	guest_user = rs_guest("guest_user")
	guest_address = trim(rs_guest("guest_address"))
	guest_tel = trim(rs_guest("guest_tel"))
	guest_fax = trim(rs_guest("guest_fax"))
	guest_idcard = trim(rs_guest("guest_idcard"))
	guest_takecode = trim(rs_guest("guest_takecode"))
	guest_email = trim(rs_guest("guest_email"))
	guest_city = trim(rs_guest("guest_city"))
	guest_contact = trim(rs_guest("guest_contact"))
	guest_beizu = trim(rs_guest("guest_beizu"))
else
	rs_guest.close
	set rs_guest = nothing
	call closedatabase
	Response.Write "该客户已经删除!"
	Response.End 
end if
rs_guest.close
set rs_guest = nothing
call closedatabase
	%>

<table align=center width=100%  cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC' border="1">
<tr>
 <td colspan=4 align=center bgcolor=red><b><font color=yellow>客户详细信息一览</font></b></td>
</tr>
<tr>
    <td width="15%">客户名称：</td>
    <td colspan="3" width="85%">
   <%response.write guest_user%></td>
 </tr>
<tr>
    <td width="15%">所在城市：</td>
    <td colspan="3" width="85%">
   <%response.write guest_city &"&nbsp;"%></td>
 </tr>
<tr>
    <td width="15%">客户地址：</td>
    <td colspan="3" width="85%">
   <%response.write guest_address & "&nbsp;"%></td>
 </tr>
<tr>
    <td width="15%">联系人：</td>
    <td colspan="3" width="85%">
   <%response.write guest_contact & "&nbsp;"%></td>
 </tr>
  
 <tr>
    <td width="15%">联系电话：</td>
    <td colspan="3" width="85%">
   <%response.write guest_tel & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">传真：</td>
    <td colspan="3" width="85%">
   <%response.write guest_fax & "&nbsp;" %></td>
 </tr>
 <tr>
    <td width="15%">身份证：</td>
    <td colspan="3" width="85%">
   <%response.write guest_idcard & "&nbsp;"%></td>
 </tr>
  
 <tr>
    <td width="15%">收货代码：</td>
    <td colspan="3" width="85%">
   <%response.write guest_takecode & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">客户Email：</td>
    <td colspan="3" width="85%">
   <%response.write guest_email & "&nbsp;"%></td>
 </tr>
 <tr>
    <td width="15%">备注：</td>
    <td colspan="3" width="85%">
   <%response.write guest_beizu & "&nbsp;"%></td>
 </tr>
 <tr bgcolor=white>
   <td colspan="4"><br><br>
   <center>
   <input class=buttonface type=button  onclick="javascript:history.go(-1)" name=ok value=' 后  退 '>　
	</center>
	<br><br>
 </tr>
</table>
<br><br>
 </body>
</html>

guest_view.asp - 源码说明

本页面展示了「电子商务 物流 ASP+SQL2」中的 guest_view.asp 源码文件，采用 ASP 编程语言编写，共 142 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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