📄 look.asp

📁 大家好

💻 ASP

字号:

<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="SELECT top 10 xfz.xm as xm, xfz.lxfs as lxfs, xfz.riqi as riqi, guanggao.neirong as neirong, guanggao.lianxiren as lianxiren, guanggao.dianhua as dianhua FROM guanggao, xfz WHERE guanggao.ID = xfz.id ORDER BY xfz.riqi DESC"
'sqlstr="select top 10 xfz.xm,xfz.lxfs,xfz.riqi,guanggao.neirong,guanggao.lianxiren,guanggao.dianhua where guanggao.id=xfz.id order by xfz.riqi desc"
rs.open sqlstr,conn
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="REFRESH" CONTENT=300>



</head>

<body bgcolor="#FFFFFF">
<%
	for i=1 to 10
%>
<table width="60%" border="1" align="center" bordercolor="#CCCCFF" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="22%" bordercolor="#CCCCFF" nowrap bgcolor="#FFCCFF">顾客姓名:</td>
    <td width="78%"><%=rs("xm")%></td>
  </tr>
  <tr> 
    <td width="22%" bgcolor="#FF99FF" nowrap>联系方式:</td>
    <td width="78%"><%=rs("lxfs")%></td>
  </tr>
  <tr> 
    <td width="22%" bgcolor="#FF9999" nowrap>时间:</td>
    <td width="78%"><%=formatdatetime(rs("riqi"),1)%> <%=formatdatetime(rs("riqi"),4)%></td>
  </tr>
  <tr> 
    <td width="22%" bgcolor="#CCFFCC" nowrap>信息:</td>
    <td width="78%"><%=rs("neirong")%></td>
  </tr>
  <tr> 
    <td width="22%" bgcolor="#CCFF99" nowrap>信息主:</td>
    <td width="78%"><%=rs("lianxiren")%></td>
  </tr>
  <tr> 
    <td width="22%" bgcolor="#33FF33" nowrap>信息联系方式:</td>
    <td width="78%" bgcolor="#00FFFF"><%=rs("dianhua")%></td>
  </tr>
</table>
<%
	rs.movenext
	if rs.eof then exit for end if
	next
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -