📄 payer_add.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<%
If Request.QueryString("action")="add" Then
Call PaySave
Else
%>
<script language="JavaScript">
<!--
function chk(theForm){
if (theForm.payer.value == ""){
alert("请输入费用类型!");
theForm.payer.focus();
return (false);
}
}
//-->
</script>
<body text="#000000">
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<form action="?action=add" method=post id=form1 name=form1 onSubmit="return chk(this)">
<tr bgcolor=ffffff>
<th height=25 colspan=2 align="center"> </th>
</tr>
<tr bgcolor=ffffff>
<td width="28%" class=forumrow><div align="right">报销人：</div></td>
<td class=forumrow><input name="payer" type="text" id="payer" size="20" maxlength="30">
</td>
</tr>
<tr bgcolor=ffffff>
<td class=forumrow> </td>
<td class=forumrow><input type="submit" name="Submit" value=" 提 交 "></td>
</tr>
</form>
</table>
<%
Conn.Clsoe
Set Conn=Nothing
End if%>
</html>
<%
Sub PaySave
Dim payer,payadd,Sql
Dim fai
payer = Trim(Request.Form("payer"))
Set fai=Conn.Execute("Select Payer From [Payer] Where Payer='"&payer&"'")
If Not (fai.Eof or fai.Bof) Then
Response.Write "<script language=javascript>alert('该报销人已经存在!');"
Response.Write "window.document.location.href='Payer_List.asp';</script>"
Else
Set payadd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Payer] Where (ID is null)"
payadd.Open Sql,Conn,1,3
payadd.addNew
payadd("Payer") = payer
payadd.Update
payadd.Close
Set payadd=Nothing
fai.Close
Set fai=Nothing
Response.Write "<script language=javascript>alert('报销人添加成功!');"
Response.Write "window.document.location.href='Payer_List.asp';</script>"
End if
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -