📄 sedit.asp

📁 一个学校的医务管理
💻 ASP
字号:
<!--#include file="conn1.asp"-->
<%
t=0
id=request("id")
yw=request("yw")
money=request("money")
if yw<>"" then
t=1
	sql="delete * from helthy where sid='"& id &"'"
	conn.execute sql
	sql="insert into helthy (sid,wfname,wf) values ('"& id &"','"& yw &"','"& money &"')"
	conn.execute sql
	ywyw=split(yw,",")
	for i=0 to ubound(ywyw)
		a=instr(ywyw(i),"(")
        b=instr(ywyw(i),")")
		'response.write right(ywyw(i),8)
		'response.end
        sql="insert into yck (yname,cnt,ydate) values('"& left(ywyw(i),a-1) &"','"& mid(ywyw(i),a+1,b-a-1) &"','"& right(ywyw(i),9) &"')"
		conn.execute sql
			next
end if 

fw=request("fw")
sql="select * from student where id="&id
set rs1=conn.execute (sql)
sql1="select * from helthy where sid='"& id  &"'"
set rs2=conn.execute (sql1)
yw=rs2("wfname")
yw1=split(yw,",")
for i=0 to ubound(yw1)
a=instr(yw1(i),"(")
b=instr(yw1(i),")")
sql="select * from yck where yname='"& left(yw1(i),a-1)&"' and ydate='"& right(yw1(i),8)&"'and cnt='"& mid(yw1(i),a+1,b-a-1) &"'"
set rst=conn.execute (sql)
if not rst.eof then
	sql="delete * from yck where id="&rst("id")
	conn.execute sql
end if
next

		sql="select * from yck where ydate like '%)%'"
		set rse=conn.execute (sql)
		if not rse.eof then
			do while not rse.eof 
				sql="update yck set ydate='"&mid(rse("ydate"),2)&"'where id="&rse("id")
				conn.execute sql
			rse.movenext
			loop
		end if

%>
<%=left(yw1(i-1),a-1)%>
<%=right(yw1(i-1),8)%><%=mid(yw1(i-1),a+1,b-a-1)%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link rel="stylesheet" href="style.css">
<style type="text/css">
<!--
body {
	background-color: #d6dff7;
}
-->
</style></head>

<body>
<table width="454" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="42">-----&gt; 用户药物修改 </td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="sedit.asp?id=<%=rs1("id")%>&fw=<%=fw%>">
      <table width="442" border="1" cellpadding="0" cellspacing="0" bordercolor="#BFCDF2">
        <tr>
          <td width="400" height="25"> 　姓　名：<%=rs1("sname")%>  <%if t=1 then%> <font color="red">您的信息已成功修改！</font><%end if%></td>
        </tr>
		<%if fw="学生" then%>
        <tr>
          <td height="25">　年　级：<%=rs1("grade")%> 　　　　　　　班　级：<%=rs1("classes")%></td>
        </tr>
		<% else %>
        <tr>
          <td height="24">　部　门：<%=rs1("bm")%></td>
        </tr>
		<% end if %>
        <tr>
          <td height="25">　未付药物：</td>
        </tr>
        <tr>
          <td height="94">　            
            <textarea name="yw" cols="60" rows="10"><%=yw%></textarea></td>
        </tr>
        <tr>
          <td height="40">　未付金额：
            <input name="money" type="text"  size="15" value="<%=rs2("wf")%>">
            元</td>
        </tr>
        <tr>
          <td align="center"><input type="submit" name="Submit" value="提交">
            　　　　
            <input type="reset" name="Submit2" value="取消"></td>
        </tr>
      </table>
    </form></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -