set rs=Server.CreateObject("adodb.recordset")
sql="select item_name from KJXMGL where item_name='"&item_name&"'"
rs.Open sql,conn,1,3
if not rs.Eof then
Response.Write"<script>alert('该项目名称已经存在或者已经申报');history.go(-1);</script>"
response.end
else
sql="insert into KJXMGL values ('" &Item_name&"','" &Item_unit&"','" &Item_fzr&"','" &Item_invest&"','" &Speciality&"','" &Disquisition_personne&"','" &content&"','" &benefit&"','" &File1&"','" &wzsm&"','" &Start_time&"','" &Complete_time&"','"&NewId&"')"