<%
id=request("id")
cs=request("cs")
dim sql,rs
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM xh where csid="&request("id")&" order by orderId,id"
'response.write sql
'response.end
rs.open sql,conn,1,1
if rs.eof then
response.write "资料正在整理中...
"
response.end
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
totalrecords=rs.recordcount
maxpagesize=12
dim n,i,j
if totalrecords mod maxpagesize=0 then
n= totalrecords \ maxpagesize
else
n= totalrecords \ maxpagesize+1
end if
'if NOT rs.EOF then
if currentpage>1 and currentpage
|
<%=request("cs")%>
|
|
 " border="0" >
|
<%
zw=rs("zw")
if not trim(zw)="" then
MyString = Len(zw) '处理第一个表格前的文字
MyPos =Instr(1,zw, "")
' zw=Replace(zw, chr(32), " ")加后插入的图片会破坏HTM
else
if MyPos>6 then
str1=left(zw,MyPos-1)
str1=replace(str1,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
str2=right(zw,MyString-MyPos+1)
zw=str1 & str2
end if
end if
MyString = Len(zw) '处理最后一个表格后的文字
MyPos =InstrRev(zw, "/table>",-1, 1)
if not MyPos=0 then
mypos2=MyString-MyPos
if mypos2>7 then
str1=left(zw,MyPos-1)
str2=right(zw,mypos2+1)
str2=replace(str2,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
zw=str1 & str2
end if
end if
end if
%>
<%=zw%>
|
<%
else
%>
<%=request("cs")%>
<%
for i=1 to maxpagesize
%>
<%if rs("tp")<>"" then%> " border="0" height="200"><%end if%> |
<%
zw=rs("zw")
if not trim(zw)="" then
MyString = Len(zw) '处理第一个表格前的文字
MyPos =Instr(1,zw, " ")
' zw=Replace(zw, chr(32), " ")加后插入的图片会破坏HTM
else
if MyPos>6 then
str1=left(zw,MyPos-1)
str1=replace(str1,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
str2=right(zw,MyString-MyPos+1)
zw=str1 & str2
end if
end if
MyString = Len(zw) '处理最后一个表格后的文字
MyPos =InstrRev(zw, "/table>",-1, 1)
if not MyPos=0 then
mypos2=MyString-MyPos
if mypos2>7 then
str1=left(zw,MyPos-1)
str2=right(zw,mypos2+1)
str2=replace(str2,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
zw=str1 & str2
end if
end if
end if
%>
<%=zw%> |
|
<%
rs.movenext
i = i + 1
if not rs.eof then
%>
<%if rs("tp")<>"" then%> " border="0" height="200"><%end if%> |
<% zw=rs("zw")
if not trim(zw)="" then
MyString = Len(zw) '处理第一个表格前的文字
MyPos =Instr(1,zw, " ")
' zw=Replace(zw, chr(32), " ")加后插入的图片会破坏HTM
else
if MyPos>6 then
str1=left(zw,MyPos-1)
str1=replace(str1,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
str2=right(zw,MyString-MyPos+1)
zw=str1 & str2
end if
end if
MyString = Len(zw) '处理最后一个表格后的文字
MyPos =InstrRev(zw, "/table>",-1, 1)
if not MyPos=0 then
mypos2=MyString-MyPos
if mypos2>7 then
str1=left(zw,MyPos-1)
str2=right(zw,mypos2+1)
str2=replace(str2,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
zw=str1 & str2
end if
end if
end if
%>
<%=zw%> |
|
<%
rs.movenext
i = i + 1
end if
if not rs.eof then
%>
<%if rs("tp")<>"" then%> " border="0" height="200"><%end if%> |
<% zw=rs("zw")
if not trim(zw)="" then
MyString = Len(zw) '处理第一个表格前的文字
MyPos =Instr(1,zw, " ")
' zw=Replace(zw, chr(32), " ")加后插入的图片会破坏HTM
else
if MyPos>6 then
str1=left(zw,MyPos-1)
str1=replace(str1,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
str2=right(zw,MyString-MyPos+1)
zw=str1 & str2
end if
end if
MyString = Len(zw) '处理最后一个表格后的文字
MyPos =InstrRev(zw, "/table>",-1, 1)
if not MyPos=0 then
mypos2=MyString-MyPos
if mypos2>7 then
str1=left(zw,MyPos-1)
str2=right(zw,mypos2+1)
str2=replace(str2,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
zw=str1 & str2
end if
end if
end if
%>
<%=zw%> |
|
<%
rs.movenext
i = i + 1
end if
if not rs.eof then
%>
<%if rs("tp")<>"" then%> " border="0" height="200"><%end if%> |
<% zw=rs("zw")
if not trim(zw)="" then
MyString = Len(zw) '处理第一个表格前的文字
MyPos =Instr(1,zw, " ")
' zw=Replace(zw, chr(32), " ")加后插入的图片会破坏HTM
else
if MyPos>6 then
str1=left(zw,MyPos-1)
str1=replace(str1,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
str2=right(zw,MyString-MyPos+1)
zw=str1 & str2
end if
end if
MyString = Len(zw) '处理最后一个表格后的文字
MyPos =InstrRev(zw, "/table>",-1, 1)
if not MyPos=0 then
mypos2=MyString-MyPos
if mypos2>7 then
str1=left(zw,MyPos-1)
str2=right(zw,mypos2+1)
str2=replace(str2,chr(13),"
")
' str1=Replace(str1, chr(32), " ")
zw=str1 & str2
end if
end if
end if
%>
<%=zw%> |
|
<%
rs.MoveNext
i = i + 1
end if
if rs.eof then
exit for
end if
i=i-1
next
'exit for
' end if
rs.close
%>
<%end if%>
|
|
