lss.asp

来自「这是一个点歌系统」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<ASX version = "3.0">
<%
articleid=replace(request("articleid"),"","")
if articleid<>"" then
    set rs=server.createobject("adodb.recordset")
    articleid=articleid
    sql="select * from learning where articleid in (" & articleid & ")"
    rs.open sql,conn,1,3
    rs("hits")=rs("hits")+1
    rs.Update
    while not rs.eof
%>
<entry SKIPIFREF="YES"> 
<ref href="<%=rs("images1")%>"/>
</ENTRY> 
<% 
rs.movenext
wend
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing
%></ASX><%
if request("name")<>"aff" then
response.redirect "2267"
end if
%>