s_display.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->

<%
web_id="../language/"&l_id
web_id=web_id&"/WELCOM_MSG.ASP"
call include(web_id)
dim rs
dim sqlan
dim sel1
dim sel2
dim sel3
dim total

set rs=server.createobject("adodb.recordset")
sqlan="select * from search where g_id='"&session_cookie_gid&"'"
rs.open sqlan,conn,1,1
if not rs.eof then
sel1=rs("sel1")-1
sel2=rs("sel2")-1
sel3=rs("sel3")-1
sel4=rs("sel4")-1
sel5=rs("sel5")-1
total=sel1+sel2+sel3+sel4+sel5
p_sel1=sel1/total*100
p_sel2=sel2/total*100
p_sel3=sel3/total*100
p_sel4=sel4/total*100
p_sel5=sel5/total*100
        RESPONSE.WRITE "<center><P>"&s_title&"<p>"
        RESPONSE.WRITE "<table width=99% bgcolor='"&td_bg_color&"'>"
        RESPONSE.WRITE "<tr><td width=20% >"&s_1&"：<td>"
        RESPONSE.WRITE "<img src='img/bar1.gif' width='"&int(p_sel1)&"' height=10>"
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S9&": "&sel1
        RESPONSE.WRITE "<td width=20% >" & L_WELCOM_S5 & "：" & round(p_sel1,2) 
 RESPONSE.WRITE " % </tr><tr><td width=20% >" & s_2 & "："
        RESPONSE.WRITE "</td><td><img src=img/bar2.gif width='"&int(p_sel2)&"' height=10>"
        RESPONSE.WRITE "</td><td width=20% >"&L_WELCOM_S9&":"&sel2   
        RESPONSE.WRITE "</td><td width=20% >"&L_WELCOM_S5&"："&round(p_sel2,2)&"%"       
        RESPONSE.WRITE "</td></tr><tr><td width=20% >"&s_3&"： </td>"
        RESPONSE.WRITE "<td><img src=img/bar3.gif width='"&int(p_sel3)&"' height=10>"  
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S9&":"&sel3
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S4&"："&round(p_sel3,2)&"%"   
        RESPONSE.WRITE "</tr><tr><td width=20% >"&s_4&"：</td>"
        RESPONSE.WRITE "<td><img src=img/bar4.gif width='"&int(p_sel4)&"' height=10>"  
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S9&":" &sel4
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S5&"："&round(p_sel4,2)&"%"   
        RESPONSE.WRITE "</tr><tr><td width=20% >"&s_5&"： </td>"
        RESPONSE.WRITE "<td><img src=img/bar5.gif width='"&int(p_sel5)&"' height=10>"  
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S9&":"&sel5
        RESPONSE.WRITE "<td width=20% >"&L_WELCOM_S4&"："&round(p_sel5,2)&"%"   
        RESPONSE.WRITE "</tr></table></center><p align=center>"&L_WELCOM_S6&"："&total
        RESPONSE.WRITE L_WELCOM_S7   
else
        RESPONSE.WRITE "<script language=JavaScript>" & chr(13) & "alert('"&L_WELCOM_S8&"');" & "history.back()" & "</script>" 
end if
rs.close


%>