⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 guest_view.asp

📁 1.多种查询方式
💻 ASP
字号:
<%@ 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>

⌨️ 快捷键说明

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