Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <!--#include file="inc/readImg.asp" -->
- <!--#include file="inc/dbconn.asp" -->
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- <title>-=- KAKADU -=-</title>
- <link href="css/aobeike.css" rel="stylesheet" type="text/css">
- </head>
- <body>
- <table width="1000" height="1194" border="0" cellpadding="0" cellspacing="0" background="images/beijing.jpg">
- <tr>
- <td width="111" valign="top"> </td>
- <td valign="top"><table width="778" border="0">
- <tr>
- <td height="25"> </td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- <tr>
- <td>
- <!--start website navigation-->
- <table width="778" border="0">
- <tr>
- <td width="170"> </td>
- <td width="577" class="yaoqiu"><div align="right"><a href="productlist.asp?Category=jackets" class="yaoqiu">Jackets</a> / <a href="productlist.asp?Category=shirts" class="yaoqiu">Shirts</a> / <a href="productlist.asp?Category=pants" class="yaoqiu">Pants</a> / <a href="productlist.asp?Category=bags" class="yaoqiu">Bags</a> / <a href="productlist.asp?Category=vests" class="yaoqiu">Vests</a> / <a href="productlist.asp?Category=hats" class="yaoqiu">Hats</a> / A<a href="productlist.asp?Category=accessories" class="yaoqiu">ccessories</a> / <a href="company.html" class="yaoqiu">Home</a></div></td>
- <td width="17"> </td>
- </tr>
- </table>
- <!--end website navigation-->
- </td>
- </tr>
- <%
- page=request("page")
- Category=request("Category")
- if Category<>"" then
- temp=Ucase(left(Category,1))
- 'Category=temp & right(Category,len(Category)-1)
- end if
- %>
- <tr>
- <td>
- <%
- if Category<>"" then
- %>
- <span style="font-size:30px;font-family:Monotype Corsiva;"><%=temp & right(Category,len(Category)-1)%></span>
- <%
- end if
- %>
- </td>
- </tr>
- </table>
- <!--start product list-->
- <%
- if Category<>"" then
- openconn
- set rs=server.createobject("adodb.recordset")
- sql="select * from [product] where category='" & category & "' order by updateTime desc"
- rs.open sql,conn,1,1
- if not rs.eof then
- rs.pagesize=12
- rs.absolutepage=1
- if page<>"" then
- rs.absolutepage=page
- end if
- page=rs.absolutepage
- %>
- <table width="778" border="0">
- <%
- n=1
- do while not rs.eof and n<5
- %>
- <tr>
- <%
- for j=1 to 3
- %>
- <td align="center" width="33%">
- <%
- if not rs.eof then
- %>
- <table border="0">
- <tr>
- <td align="center">
- <%
- imgFile=rs("Img")
- productImg=imgFile
- if imgFile<>"" then
- imgFile=server.mappath(imgFile)
- set f=server.createobject("Scripting.FileSystemObject")
- if f.FileExists(imgFile) then
- set getImgsize=new GPS
- pd=getImgsize.getImageSize(imgFile)
- temp=pd(1)/pd(2)
- if temp>1 and pd(1)>200 then
- PWidth=200
- PHeight=200/temp
- elseif temp<1 and pd(2)>200 then
- PHeight=200
- PWidth=200*temp
- elseif temp=1 and pd(1)>200 then
- PWidth=200
- PHeight=200
- else
- PWidth=pd(1)
- PHeight=pd(2)
- end if
- set getImgsize=nothing
- end if
- set f=nothing
- end if
- %>
- <a href="<%=rs("html")%>"><img src="<%=productImg%>" width="<%=PWidth%>" height="<%=PHeight%>" border="0"> </a> </td>
- </tr>
- <tr>
- <td align="center"><div class="yaoqiu1" style="font-family:Monotype Corsiva;font-size:20px;"><%=rs("productName")%></div></td>
- </tr>
- </table>
- <%
- rs.movenext
- end if
- %>
- </td>
- <%
- next
- %>
- </tr>
- <%
- n=n+1
- loop
- %>
- </table>
- <table width="778" border="0">
- <tr>
- <td width="650"> </td>
- <td width="118"> </td>
- </tr>
- </table>
- <table width="600" height="56" border="0" align="center">
- <tr>
- <td><table width="95%" align=center>
- <form action="<%=request("Script_name")%>?Category=<%=Category%>" method="post">
- <tr>
- <td width="80" align="center" class="yaoqiu"><%
- if page>1 then
- %>
- <a href="<%=request("Script_name")%>?page=1&Category=<%=Category%>">First</a>
- <%
- else
- %>
- First
- <%
- end if
- %>
- </td>
- <td width="80" align="center" class="yaoqiu"><%
- if page>1 then
- %>
- <a href="<%=request("Script_name")%>?page=<%=page-1%>&Category=<%=Category%>">Previous</a>
- <%
- else
- %>
- Previous
- <%
- end if
- %>
- </td>
- <td width="80" align="center" class="yaoqiu"><%
- if page<rs.pagecount then
- %>
- <a href="<%=request("Script_name")%>?page=<%=page+1%>&Category=<%=Category%>">Next</a>
- <%
- else
- %>
- Next
- <%
- end if
- %>
- </td>
- <td width="80" align="center" class="yaoqiu"><%
- if page<rs.pagecount then
- %>
- <a href="<%=request("Script_name")%>?page=<%=rs.pagecount%>&Category=<%=Category%>">Last</a>
- <%
- else
- %>
- Last
- <%
- end if
- %>
- </td>
- <td width="105" align="center" class="yaoqiu"><div align="right">Goto</div></td>
- <td width="38" class="yaoqiu"><div align="right">
- <select name="page" onChange="javascript:submit();">
- <%
- for i=1 to rs.pagecount
- %>
- <option value="<%=i%>"
- <%
- if i=page then
- %>
- selected
- <%
- end if
- %>
- ><%=i%></option>
- <%
- next
- %>
- </select>
- </div></td>
- <td width="69" class="yaoqiu">page</td>
- </tr>
- </form>
- </table></td>
- </tr>
- </table>
- <%
- end if
- rs.close
- set rs=nothing
- closeconn
- end if
- %>
- <!--end product list-->
- </td>
- <td width="111" valign="top"> </td>
- </tr>
- </table>
- </body>
- </html>
Microsoft JET Database Engine error '80004005'
Selected collating sequence not supported by the operating system.
/productlist.asp, line 61
If I remove the first 3 lines - I get this message:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'openconn'
/productlist.asp, line 55
Can anyone give me some assistance?