s_add.asp

不是我做的一个留言板

<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<center>
<%
dim rs_c
dim sql
dim selected

web_id1="../language/"
web_id=web_id1&l_id&"/USER_INFO.ASP"
call include(web_id)


set rs_user=server.createobject("adodb.recordset")
sqlan_s="select * from [user] where username='"&session_cookie_name&"' and g_id='"&session_cookie_gid&"'"
rs_user.open sqlan_s,conn,1,1
if rs_user("s_yes")<>"没有投票" then
%>


<table width="99%" bgcolor=<%=td_bg_color%>>

<tr>
    <td width="20%">
<center>
<%
RESPONSE.WRITE L_WELCOM_S1&L_WELCOM_S4&rs_user("s_yes")
RESPONSE.WRITE "<br><a href='s_DISPLAY.ASP'>"
RESPONSE.WRITE L_WELCOM_S2
RESPONSE.WRITE "</a></td></tr></table>"
rs_user.close
set rs_user=nothing

else

selected=request.form("options")
Select case selected
case "1"
S_yess=request.form("option1")
case "2"
S_yess=request.form("option2")
case "3"
S_yess=request.form("option3")
case "4"
S_yess=request.form("option4")
case "5"
S_yess=request.form("option5")

End Select

sql="update search set sel"&selected&"=sel"&selected&"+1 where g_id='"&session_cookie_gid&"'"
conn.execute(sql)

sql="update [user] set s_yes='"&S_yess&"' where username='"&session_cookie_name&"' and g_id='"&session_cookie_gid&"'"
conn.execute(sql)
		
log_url="s_DISPLAY.ASP"
log_msg="<font size='5' face='华文行楷' color='#FF0000'>"&L_WELCOM_S3
log_msg=log_msg&"</font><br>"&L_WELCOM_S4&S_yess&"<br><a href='s_DISPLAY.ASP'>"&L_WELCOM_S2&"</a>" 
%>
                          
 <!--#include file="welcom.asp" -->

<%
end if
%>