productpl.asp

修改迅易在线评选管理系统,,功能能用,下载的迅易功能不全,

<!--#include file="Head.asp"-->
<%
function showstring(fString)
	if not isnull(fString) then
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		fString = replace(fString, chr(13), "")
		fString = replace(fString, chr(10), "<br />")
		fString = replace(fString, chr(34), "&quot;")
		fString = replace(fString, chr(39), "&#39;")
		fString = replace(fString, "script", "&#115cript")
		showstring = fString
	end if
end function
%>
  <table width="900" border="0" align="center" cellpadding="0" cellspacing="0" class="Outside">
    <tr>
      <td valign="top" bgcolor="#F2F2F2">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
	    <tr>
	      <td width="26" height="32" align="center" bgcolor="#F4F4F4"><img src="../Images/Arrow_01.gif" width="14" height="11"></td>
            <td width="674" bgcolor="#F4F4F4" class="Location"><a href="../index.asp">棣栭〉</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='ProductList.asp'>鍙傝禌浜虹墿</a>
            <% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %></td>
            <td width="80" bgcolor="#F4F4F4" class="Location">          </td>
        </tr>
	    </table>
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center"><% =WebMenu("ameav_ProductSort",0)%></td>
        </tr>
      </table>
	   <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="12"></td>
            <td></td>
            <td width="30"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><%=WebContent()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table>

</td>
    </tr>
</table>
</div>
<%
Function WebMenu(DataFrom,ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
  rs.open sql,conn,1,1
  response.write("<table width='98%' border='0' cellspacing='0' cellpadding='0'><tr class='WebMenu'>")
  if id=0 and rs.bof and rs.eof then
    response.write "<td align='center'>鏆傛棤鐩稿叧淇℃伅</td></tr>"
  else
    while not rs.eof
      response.write ""
      response.write "<td  align='center'><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td>"
      rs.movenext
	wend
  end if
  response.write("</tr></table>")
  rs.close
  set rs=nothing
end function

Function WebLocation(ID)
  Dim rs,sql,LocationText
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From ameav_ProductSort where ViewFlag and ID="&ID
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "<img src='../Images/Arrow_02.gif' align='absmiddle'>"&"閿欒