<%Response.Charset = "GB2312"
Response.Buffer=True
Response.CacheControl="no-cache"
Response.Expires=0%>
<!--#include file="../../Dbconn.asp"-->
<!--#include file="../../manage/checkuserflag.asp"-->
<%call CheckUserFlag("02")%>
<%
survey_id=request("surveyid")
cssbiao=request("cssbiao")
cssName=request("cssName")
cssN=replace(replace(request("cssN"),"$","#"),"[","%")
'response.write survey_id & "<br><br>"
'response.write cssbiao & "<br><br>"
'response.write cssName & "<br><br>"
'response.write cssN & "<br><br>"
cssbiaoS=split(cssbiao,":")
cssNameS=split(cssName,":")
cssNS=split(cssN,":")
s1=ubound(cssbiaoS)
s2=ubound(cssNameS)
s3=ubound(cssNS)
if (s1=s2 and s2=s3) then
	OpenDB DataPathFile
	for i=0 to s1 step 1
		DbConn.Execute ("UPDATE css_" & trim(cssbiaoS(i)) & " SET " & trim(cssNameS(i)) & "='" & cssNS(i) & "' WHERE survey_id = " & survey_id)
		'response.write "DbConn.Execute (""UPDATE css_" & trim(cssbiaoS(i)) & " SET " & trim(cssNameS(i)) & "='" & cssNS(i) & "' WHERE survey_id = " & survey_id & ")<br>"
		'response.write "表：" & cssbiaoS(i) & ",保存第" & i & "次<br>"
	next
	CloseDB
	'response.write "保存数据完成！"
else
	response.write "参数不对！"
end if
%>