透明代码（Transparent code）.docVIP

透明代码（Transparent code） 1.html ! DOCTYPE HTML PUBLIC - / / W3C / / DTD XHTML 1.0 Transitional / / en http: / / www.w3. Org / TR / DTD / xhtml1 / xhtml1-transitional.dtd html xmlns = http: / / www.w3. Org / 1999 / XHTML head META HTTP EQUIV = Content type content = text / HTML; GB2312 charset = / title title 无标题文档 Href = link rel = CSS / 1.css Stylesheet type = text / CSS / head body div id = D3 div id = D2 / div div id = D1 / div / div / a html 1cl.asp ! DOCTYPE HTML PUBLIC - / / W3C / / DTD XHTML 1.0 Transitional / / en http: / / www.w3. Org / TR / DTD / xhtml1 / xhtml1-transitional.dtd html xmlns = http: / / www.w3. Org / 1999 / XHTML head META HTTP EQUIV = Content type content = text / HTML; GB2312 charset = / title 庆丰新天地购物广场 - 楼层介绍 1层 - / title Href = link rel = CSS / fenye.css Stylesheet type = text / CSS Href = link rel = CSS / toubu.css Stylesheet type = text / CSS Href = link rel = CSS / shangpin.css Stylesheet type = text / CSS ! - # include file = ICC / conn.asp -- ! - # include file = ICC / function.asp -- % Function cutstr (tempstr, tempwid) If len (tempstr) tempwid then Cutstr = left (tempstr, tempwid) ... Else Cutstr = tempstr End if End function% % Dim strfilename Maxperpage CONST = 16 Dim totalput, CurrentPage, totalpages Dim I, J Dim smallclassid Dim title Dim SQL, RS Dim bigclassname, smallclassname Dim purviewchecked Dim stradmin, arradmin Purviewchecked = false TITLE = Trim (Request (title) Smallclassid = request (smallclassid) Bigclassname = Trim (Request (bigclassname)) Smallclassname = Trim (Request (smallclassname)) Lc1.asp strfilename = ? Bigclassname = bigclassname = smallclassname smallclassname If request (Page then CurrentPage = cint (Request (Page)) Else CurrentPage = 1 End if Sql = select * from smallclass where smallclassid 0 If Title then SQL SQL = title and title like % % End if If bigclassname then Sql = and bigclassname SQL = bigclassname 如果smallclassname “