update_type.asp

这是一个很好的图书管理借阅登记系统,有这爱好的可以下载下来看看,很完整的

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<center><br>
<table align="center" class="table4" width="768">
<tr>
<td><!-- #include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<!-- #include file="LHB_DengLuQX_Top.asp"-->
<!-- #include file="config.asp" -->
<%
TypeID=request("id")
L_MingCheng=request("LouHB_typeMC")

if L_MingCheng="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('工种名称未填写');" & "history.back()" & "</script>" 
    Response.End
end if

Lousql="select L_MingCheng from LHB_GongYong where L_MingCheng='"&L_MingCheng&"'"
set Lours1=Louconn.execute(Lousql)
if not Lours1.eof then
  Lours1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('对不起，该工种名称已经存在！');" & "history.back()" & "</script>"
  response.End
end if
%>
<%
sql="update LHB_GongYong set L_MingCheng='"&L_MingCheng&"' where id="&TypeID
'response.write sql
'response.end
Lours.Open sql,Louconn,1,3

response.write "<script language=JavaScript>" & chr(13) & "alert('工种名称修改成功');"&"window.location.href = 'manage_type.asp'"&" </script>" 

set Lours=nothing
set Louconn=nothing
%>
<!-- #include file="LHB_DengLuQX_Down.asp"-->
<!--#include file="LHB_copy.asp"-->
<%else
Response.Redirect "login.asp"
end if%>