links.asp

电子商城代码

<!--#include file="top.asp"-->
<%
strwebtitle=www56770com_word425
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
www56770com_help_menu()

dim wordlink,url,logo
wordlink=safereplace(trim(request("wordlink")))
url=safereplace(trim(request("url")))
logo=safereplace(trim(request("logo")))
if request("action")="add" then
if wordlink="" and url<>"http://" then
        response.redirect"links.asp"
end if

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_huoban]", conn, 1, 3
rs.AddNew
rs("wordlink")=trim(request("wordlink"))
rs("url")=trim(request("url"))
rs("logo")=trim(request("logo"))
rs("show")=0
rs("bs")=0
rs.Update
rs.Close
set rs=nothing
Response.Write("<script>alert('"&www56770com_word426&"');location.href=""links.asp"";</script>")
response.end
end if
%>
<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"> 
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="1" BORDER="0" CLASS="bk">
<tr>
<td width="100%" align="left" height="25" CLASS="bk_h" colspan="2"> == <%=www56770com_word425%> ==</td>
</tr>
<tr>
<td colspan=2 height=8 style="line-height: 260%">
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<tr>
<%
dim ii
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_huoban] where xs=0 and show=1", conn, 1, 3
ii=1
do while not rs.eof
response.Write "<td height='30'><a href="&trim(rs("url"))&" target=_blank>"&trim(rs("wordlink"))&"</a></td>"
if (ii mod 8 = 0) then
        response.write("</tr>")
end if
rs.movenext
ii=ii+1
loop
rs.close
%>
</table>
</td>
</tr>
<tr>
<td colspan=2 height=8 style="line-height: 260%">
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0">
<tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [56770_huoban] where xs=1 and show=1", conn, 1, 3
i=1
do while not rs.eof
response.Write "<td height='40'><a href="""&trim(rs("url"))&""" target=""_blank""><img src="""&trim(rs("logo"))&""" border=""0"" width=""88"" height=""31"" alt="""&trim(rs("wordlink"))&"""></a></td>"
if (i mod 6 = 0) then
        response.write("</tr>")
        end if
rs.movenext
i=i+1
loop
rs.close
%>
</table>
</td>
</tr>
</table>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0" BORDER="0"><tr><td height=3></td></tr></table>
<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="1" BORDER="0" CLASS="bk">
<tr>
<td width="100%" align="left" height="25" CLASS="bk_h" colspan="4"> == <%=www56770com_word465%> ==</td>
</tr>
<form name="form2" method="post" action="links.asp?action=add">
<tr>
<td height="17" ><div align="center"><%=www56770com_word541%></div></td>
<td  height="17"><div align="center"><%=www56770com_word542%></div></td>
<td  height="17"><div align="center"><%=www56770com_word466%></div></td>
<td  height="17"></td>
</tr>
<tr>
<td height="15" ><div align="center"><input name="wordlink" type="text" id="wordlink" size="20" class="form"></div></td>
<td ><div align="center"><input name="url" type="text" id="url" size="25" class="form" value="http://"></div>
</td>
<td ><div align="center"><input name="logo" type="text" id="logo" size="25" class="form"></div></td>
<td ><div align="center"><input type="submit" name="Submit2" value="<%=www56770com_word455%>" class="wenbenkuang1"><input type="hidden" name="action" value="add"></div></td>
</tr>
</form>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="footer.asp"-->
<%connclose()%>