<% function showstring(fString) if not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = replace(fString, chr(13), "") fString = replace(fString, chr(10), "
") fString = replace(fString, chr(34), """) fString = replace(fString, chr(39), "'") fString = replace(fString, "script", "script") showstring = fString end if end function id=Request.QueryString("id") if id="" or not isnumeric(id) then Response.Write ("") Response.End() end if SQL="Select * from Photo where ok=0 and id="&id Set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,3 if rs.eof then Response.Write ("") Response.End() end if %> <% '///检测得票显示开关 sql="Select info from Mu where id=6" set t=conn.execute(sql) if t(0)="开" then %> <% end if %>
<%=rs("name")%>
" target=_blank>" border="0" />
网站简介: <%=rs("info")%>
得 票 数 <%=rs("hit")%>
">