WEB源码(ASP,PHP,...)

开发平台：
DOS

help.asp：源码内容
							<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<%
actiont=request("action")
set rss=server.CreateObject("adodb.recordset")
if actiont="" then
rss.open "select * from kind where anclassidorder=1",conn,1,1
else
rss.open "select * from kind where anclass='"&actiont&"'",conn,1,1
end if
%>
<title>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。--<%=rss("anclass")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=des%>">
<meta name="keywords" content="<%=keya%>">
<link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/head.asp"-->
<%
 
action=request.QueryString("action")
if InStr(action,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
%>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="39" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
      </tr>
      <tr>
        <td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
      </tr>
      <tr>
        <td height="30">&nbsp;</td>
      </tr>
    </table></td>
    <td width="190"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td ><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="logins.asp"--></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/index_4.gif" width="190" height="12" ></td>
      </tr>
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td align="center"><img src="images/body/left06.gif"></td>
              </tr>
              <tr> 
                <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from kind",conn,1,1
do while not rs.eof
%>
                    <tr>
                      <td height="24">　<img src="images/body/dian2.gif"> <a href="help.asp?action=<%=server.urlencode(rs("anclass"))%>"><%=rs("anclass")%></a> </td>
                    </tr>
                    <tr>
                      <td height="1" background="images/bfh.gif"></td>
                    </tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
                    <tr>
                      <td height="24"> </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
      </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="165" valign="top" bgcolor="#FFFFFF">
<%
Function   URLDecode(enStr)   
  dim   deStr   
  dim   c,i,v   
  deStr=""   
  for   i=1   to   len(enStr)   
  c=Mid(enStr,i,1)   
  if   c="%"   then   
  v=eval("&h"+Mid(enStr,i+1,2))   
  if   v<128   then   
  deStr=deStr&chr(v)   
  i=i+2   
  else   
  if   isvalidhex(mid(enstr,i,3))   then   
  if   isvalidhex(mid(enstr,i+3,3))   then   
  v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))   
  deStr=deStr&chr(v)   
  i=i+5   
  else   
  v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))   
  deStr=deStr&chr(v)   
  i=i+3     
  end   if     
  else     
  destr=destr&c   
  end   if   
  end   if   
  else   
  if   c="+"   then   
  deStr=deStr&"   "   
  else   
  deStr=deStr&c   
  end   if   
  end   if   
  next   
  URLDecode=deStr   
  end   function   
    
  function   isvalidhex(str)   
  isvalidhex=true   
  str=ucase(str)   
  if   len(str)<>3   then   isvalidhex=false:exit   function   
  if   left(str,1)<>"%"   then   isvalidhex=false:exit   function   
  c=mid(str,2,1)   
  if   not   (((c>="0")   and   (c<="9"))   or   ((c>="A")   and   (c<="Z")))   then   isvalidhex=false:exit   function   
  c=mid(str,3,1)   
  if   not   (((c>="0")   and   (c<="9"))   or   ((c>="A")   and   (c<="Z")))   then   isvalidhex=false:exit   function   
  end   function
dim action
action=request("action")
action=URLDecode(action)
set rs=server.CreateObject("adodb.recordset")
if action="" then
rs.open "select * from kind where anclassidorder=1",conn,1,1
else
rs.open "select * from kind where anclass='"&action&"'",conn,1,1
end if
%>
                  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      
                <td height="28" background="skin/skin<%=skinid%>/pdbg01.gif"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <a href=index.asp>网软天下购物系统，网络购物系统,asp购物系统,免费购物系统,网上商城购物系统。</a> >> <%=rs("anclass")%> </td>
                    </tr>
                  </table><br>&nbsp;
                  <img src="images/top_img01.gif"><br><br>
                  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td><%=rs("content")%></td>
                    </tr>
                  </table>
<%
rs.close
set rs=nothing%>
               </td>
            </tr>
        </table></td>
    <td width="68" style="BORDER-left:<%=skincolor%> 1px solid;">&nbsp;</td>
  </tr>
</table>
<!--#include file="include/foot.asp"-->
</body>
</html>

						