help.asp

电子商城代码

<!--#include file="top.asp" -->
<%
'On Error Resume Next
Dim news_type,sqll,rsl,newstype,newstype_gb,message
news_type=safereplace(request("newstype"))
If request("action")<>"" And request("action")<>"system" Then 
        If news_type<>"" And news_type<>0 Then 
                sqll="select * from [56770_newstype] where type_id="&news_type&""
                set rsl=server.CreateObject("adodb.recordset")
                rsl.open sqll, conn, 1, 1
                If Not rsl.eof then
                        newstype_gb=rsl("newstype")
                        'if request.cookies(""&cookiesname&"")("lan")=""&lanname&"" then
                        '        newstype=rsl("newstype_lan1")
                        'Else
                                newstype=newstype_gb
                        'End If
                End if
                rsl.close:set rsl=Nothing
        Else
                newstype=www56770com_txt27
        End If
End If 
If request("action")="help_class" Then strwebtitle=newstype&" - "&www56770com_word185
If request("action")="" Then strwebtitle=www56770com_word185
If request("action")="system" Then strwebtitle=www56770com_word184
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
www56770com_help_menu()
%>
<table width="<%=webwidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%=c_skin_56770(c_skin_word(skin_help_menu))%>
<td width="5"></td>
<td valign="top"> 
<%=c_skin_56770(c_skin_word(skin_help_rtop))%>
<%
Select Case request("action")
       Case "help_class" : help_class()
	   Case "system" : system()
	   Case Else 
	            help_index()
End Select 
Sub help_index
%>
<tr>
<td width="100%" align="left" height="25" CLASS="bk_h" colspan="2"><%=www56770com_word186%></td>
</tr>
<tr>
<td align="right" valign="top" class="bg_l">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="25"><%=c_skin_56770(c_skin_word(help_word1))%></td></tr>
</table>
</td>
</tr>
<%
End Sub 

Sub help_class
response.write"<tr><td width='100%' align='left' height='25' CLASS='bk_h' colspan='2' valign='top'>"&www56770com_word186&"==>>"&newstype&"</td></tr>"
response.write"<tr><td><table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr>"
If news_type<>0 Then 
        sql="select * from [56770_news] where newstype='"&newstype&"' order by id DESC"
Else
        sql="select * from [56770_news] where syxs=1 order by id DESC"
End If 
set rs=server.CreateObject("adodb.recordset")
rs.open sql, conn, 1, 1
help_sub_num=1
If Not rs.eof then
   do while not rs.eof
   If Trim(rs(""&lan_subject&""))<>"" Then 
%>
<td height="25" width="40%"> 鈽