📄 payer_edit.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim perid,payer
Dim rs
perid = Request("id")
Set rs=Conn.Execute("Select Payer From [Payer] Where ID="&perid)
payer = rs(0)
rs.Close
Set rs=Nothing
%>
<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")="edit" 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="?id=<%=perid%>&action=edit" 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" value="<%=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 paytype,payadd,Sql
paytype = Trim(Request.Form("payer"))
Conn.Execute("Update [PayList] Set Payer='"&paytype&"' Where Payer='"&payer&"'")
Set payadd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Payer] Where ID="&Request("id")
payadd.Open Sql,Conn,1,3
payadd("Payer") = paytype
payadd.Update
payadd.Close
Set payadd=Nothing
Response.write "<script language='javascript'>alert('修改成功!');" & chr(13)
Response.write "window.document.location.href='Payer_List.asp';</script>"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -