?? print_sp.asp
字號:
<%@ Language=VBScript %>
<%
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject" )
Set temp=fso.GetSpecialFolder(WindowsFolder)
mmFile=temp+"\temp\byhouse.tmp"
if(fso.FileExists(mmFile)) then
Set pf=fso.OpenTextFile(mmFile)
mmDSN=pf.ReadLine
mmUser=pf.ReadLine
mmPwd=pf.ReadLine
pf.Close()
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open mmDSN,mmUser,mmPwd
Set rsd1 = Server.CreateObject("ADODB.Recordset")
function mylen(sss)
Dim i, ll
ll = 0
For i = 1 To Len(sss)
If Asc(Mid(sss, i, 1)) > 0 And Asc(Mid(sss, i, 1)) < 255 Then
ll = ll + 1
Else
ll = ll + 2
End If
Next
mylen = ll
end function
function myleft(sss,ll,s1,s2)
dim i
for i=1 to len(sss)
if mylen(left(sss,i))>ll then
myleft=left(sss,i)
s1=left(sss,i)
s2=right(sss,len(sss)-i)
exit function
end if
next
myleft=sss
s1=sss
s2=""
end function
%>
<html>
<head>
<title>商鋪房查詢結果簡表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%for i=1 to session("MaxYS")
if session("Ptxt_"+cstr(i))<>"" then
mytxt=session("Ptxt_"+cstr(i))
do while mytxt<>""
BHtxt=left(mytxt,instr(mytxt,":")-1)
rsd1.open "select * from spf1 where bh="+BHtxt,conn,3,3
if session("prttype")="簡打" or session("prttype")="詳打" then
%>
<table width="750" border="0">
<tr>
<td colspan=3><img src="../../img/line.jpg" width="750" height="1"></td>
</tr>
<tr>
<td align=center width="10%"><%=BHtxt%></td>
<%xxtxt=rsd1.fields("dq")
if rsd1("sfdl")="1" and rsd1("sfys")="1" then
topbz="*"
elseif rsd1("sfdl")="1" and rsd1("sfys")="0" then
topbz="#"
else
topbz=""
end if
xxtxt=xxtxt+" "+topbz+rsd1.fields("dd")
xxtxt=xxtxt+" "+"總"+cstr(rsd1.fields("zmj"))
xxtxt=xxtxt+" "+"分布"+rsd1.fields("fbmj")
xxtxt=xxtxt+" "+"轉讓費"+cstr(rsd1.fields("zrf"))
xxtxt=xxtxt+" "+rsd1.fields("sszw")+rsd1.fields("zxzw")
xxtxt=xxtxt+" "+rsd1.fields("fwms")
if mylen(xxtxt)>80 then
xxtxt=myleft(xxtxt,80,ms1,ms2)
xxtxt=ms1
xptxt=ms2
else
xptxt=""
end if
%>
<td colspan=2 width="90%"><%=xxtxt%></td>
</tr>
<tr>
<td width="10%"> </td>
<%if session("prttype")="詳打" then
xptxt=xptxt+" "+"電話:"+rsd1.fields("dh1")+"/"+rsd1.fields("dh1f")+" 手機:"+rsd1.fields("dh2")+" 傳呼:"+rsd1.fields("chh")+" 聯系人:"+rsd1.fields("lxr")
end if
%>
<td width="75%"><%=xptxt%> </td>
<td width="15%"><%=cstr(rsd1.fields("zj"))+rsd1.fields("dw")%></td>
</tr>
</table>
<%
else%>
<table width="860" border="0">
<tr>
<td width="6%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td width="25%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td width="4%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td width="18%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td width="6%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td width="16%" height="220">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td colspan=3 height="65">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=3 height="65">
<div align="center"><font face="黑體" size="+6"><%="S-"+cstr(rsd1("bh"))%></font></div>
</td>
</tr>
<tr>
<td colspan=6 height="60">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"><%=rsd1("dq")%></font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"><%=rsd1("dd")%></font></div>
</td>
<td colspan=2 height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=2 height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="left"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="left"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"><%=cstr(rsd1("zmj"))%></font></div>
</td>
<td colspan=2 height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="90">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="90">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="90">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=3 height="90">
<div align="left"><font face="黑體" size="+6"><%=rsd1("fbmj")%></font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td height="70">
<div align="left"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="160">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=5 height="160">
<%
xxtxt=rsd1("sszw")
if mylen(xxtxt)>26 then
xxtxt=myleft(xxtxt,26,ms1,ms2)
xxtxt=ms1+"<BR>"+ms2
end if
%>
<div align="left"><font face="黑體" size="+6"><%=xxtxt%></font></div>
</td>
</tr>
<tr>
<td colspan=6 height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
</tr>
<tr>
<td height="70">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=2 height="70">
<div align="center"><font face="黑體" size="+6"><%=cstr(rsd1("zj"))%></font></div>
</td>
<td colspan=3 height="70">
<div align="left"><font face="黑體" size="+6"><%=rsd1("dw")%></font></div>
</td>
</tr>
<tr>
<td height="60">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=5 height="60">
<div align="center"><font face="黑體" size="+6"><%=rsd1("fwms")%></font></div>
</td>
</tr>
<tr>
<td colspan=3 height="50">
<div align="center"><font face="黑體" size="+6"> </font></div>
</td>
<td colspan=3 height="50">
<div align="left"><font face="黑體" size="+6"> <%=cstr(year(date))%> <%=cstr(month(date))%> <%=cstr(day(date))%></font></div>
</td>
</tr>
</table>
<% end if
rsd1.Close
mytxt=right(mytxt,len(mytxt)-instr(mytxt,":"))
loop
end if
next
conn.Close
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -