%dim action
action=request.QueryString("action")%>
<%select case action
case ""
%>
北京都市绿叶净化设备有限公司专业生产空调过滤网:机房空调过滤器
<%
case "save"
set rssss=server.CreateObject("adodb.recordset")
rssss.open "select * from shop_fk",conn,1,3
rssss.addnew
rssss("fksubject")=trim(request("fksubject"))
rssss("fkcontent")=request("fkcontent")
rssss("fkusername")=trim(request("fkusername"))
rssss("fkemail")=trim(request("fkemail"))
rssss("fktel")=trim(request("fktel"))
rssss("fklaizi")=trim(request("fklaizi"))
rssss("fkdate")=now
rssss("fkip")=Request.ServerVariables("remote_addr")
rssss.update
rssss.close
set rssss=nothing
session("fkfk")=minute(now)
response.redirect "fk.asp"
end select%>