% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function%> <% '请勿改动下面这三行代码 ShowSmallClassType=ShowSmallClassType_Default MaxPerPage=MaxPerPage_Default strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName %> <% if request("ac")="exit" then session("suser")="" response.redirect="index.asp" end if set rss=server.createobject("adodb.recordset") if request("logo")<>"" then sql="select * from member where sname='"&request("sid")&"'" rss.open sql,conn,1,3 if not rss.eof then if request("spwd")=rss("spassword") then session("suser")=rss("sname") else response.write"" end if else response.write"" end if rrs.close end if %>