gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/XinQing.asp
<!--#include file="Inc/conn.asp"--> <% action=CheckStr(Trim(request("action"))) id=LaoYRequest(request("id")) typee=CheckStr(Trim(request("typee"))) if action="show" then set rs=server.createobject("adodb.recordset") sql="Select * from "&tbname&"_XinQing Where ArticleID="&id&"" rs.open sql,conn,1,1 If Not(rs.Eof And rs.Bof) Then mood1=rs("mood1") mood2=rs("mood2") mood3=rs("mood3") mood4=rs("mood4") mood5=rs("mood5") mood6=rs("mood6") mood7=rs("mood7") mood8=rs("mood8") Rs.Close Set Rs = Nothing Response.Write(""&mood1&","&mood2&","&mood3&","&mood4&","&mood5&","&mood6&","&mood7&","&mood8&"") else conn.execute("Insert Into "&tbname&"_XinQing(ArticleID)values('"&id&"')") Response.Write("0,0,0,0,0,0,0,0") end if else if action="mood" then Select case typee case "mood1" conn.execute("Update "&tbname&"_XinQing set mood1=mood1+1 where ArticleID="&id&"") case "mood2" conn.execute("Update "&tbname&"_XinQing set mood2=mood2+1 where ArticleID="&id&"") case "mood3" conn.execute("Update "&tbname&"_XinQing set mood3=mood3+1 where ArticleID="&id&"") case "mood4" conn.execute("Update "&tbname&"_XinQing set mood4=mood4+1 where ArticleID="&id&"") case "mood5" conn.execute("Update "&tbname&"_XinQing set mood5=mood5+1 where ArticleID="&id&"") case "mood6" conn.execute("Update "&tbname&"_XinQing set mood6=mood6+1 where ArticleID="&id&"") case "mood7" conn.execute("Update "&tbname&"_XinQing set mood7=mood7+1 where ArticleID="&id&"") case else conn.execute("Update "&tbname&"_XinQing set mood8=mood8+1 where ArticleID="&id&"") End Select set rs=server.createobject("adodb.recordset") sql="Select * from "&tbname&"_XinQing Where ArticleID="&id&"" rs.open sql,conn,1,1 mood1=rs("mood1") mood2=rs("mood2") mood3=rs("mood3") mood4=rs("mood4") mood5=rs("mood5") mood6=rs("mood6") mood7=rs("mood7") mood8=rs("mood8") Rs.Close Set Rs = Nothing Response.Write(""&mood1&","&mood2&","&mood3&","&mood4&","&mood5&","&mood6&","&mood7&","&mood8&"") else Response.Write("0,0,0,0,0,0,0,0") end if end if %>