gl_ad_ok.asp

来自「学校网站」· ASP 代码 · 共 27 行

<!--#include file="conn.asp"-->
<%
guideline=request.form("guideline")
Set rs1=Server.CreateObject("ADODB.Recordset")
sql = "select * from guidel where guideline='" &guideline& "' "
    rs1.open sql,conn,3,2  
    if rs1.EOF then
	rs1.addnew
	rs1.Fields("guideline")=guideline
        rs1.Fields("explain")=explain
	rs1.update
	response.write "<script language=JavaScript>" & chr(13) & "alert('信息添加成功！');"&" </script>" 
Response.redirect "gl_edit.asp" 
else
   response.write "<script language=JavaScript>" & chr(13) & "alert('该指标名已经存在！');" & "history.back()" & "</script>" 
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing 
if Err.number <> 0 then
	'打印错误语句，便于查找原因
	Response.write "<script language=JavaScript> alert('" & Err.description &"');" & "</script>"
end if	

%>