atxbbs.asp

来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 145 行

ASP
145 行
字号 
<%@ Language=VBScript %>

<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->

<%dim ks,ksks
  
   set rs=server.CreateObject ("adodb.recordset")
   set rs1=server.CreateObject ("adodb.recordset")
   ksks=Request.Form("txtZT")
   ks=cint(Request.Form("select1"))
 if  Request.form("itj")="insert" then
   if Request.ServerVariables("request_method")="POST" then
      dim sNR,sSJ,rstj
   set rstj=server.CreateObject ("adodb.recordset")
      sNR=Request.Form("txtNR")
      sNR=replace(sNR," ","&nbsp;")   
      sNR=replace(sNR,chr(13),"<br>")
      rstj.Open "select * from yy_tbbs where 1=0",conn,3,2
      rstj.AddNew 
      rstj("zt")=Request.Form("txtZT")
      rstj("JSKS")=cint(Request.form("select1"))
      rstj("JSR")=cint(Request.Form("select2"))
      rstj("nr")=sNR
      rstj("fbr")=session("yhid")
      rstj("fbsj")=Request.Form("txtSJ")
      ksks=""
      rstj.Update 
      rstj.Close
      set rstj=nothing
   end if
 end if

%>
<script language=vbscript> 
     Sub select1_onchange()
       frmBBS.submit
     End Sub
     function tj()
        if frmBBS.txtZT.value="" then 
           msgbox "请输入主题！",64,"提示"
           frmBBS.txtZT.focus
           exit function
        end if
       if frmBBS.txtSJ.value="" then 
           msgbox "请输入发布时间！",64,"提示"
           frmBBS.txtSJ.focus
           exit function
        end if
         if not isdate(frmBBS.txtSJ.value) then 
           msgbox "请输入发布时间！",64,"提示"
           frmBBS.txtSJ.focus
           exit function
        end if
        frmBBS.itj.value="insert"
        frmBBS.submit
        frmBBS.txtZT.value=""
     end function
    
</script>
<HTML>
<HEAD>
<body topmargin=0 leftmargin=0>
<input type=hidden id=iry name=iry>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
</HEAD>
<BODY>

<FORM action="" method=POST id=frmBBS name=frmBBS><input type=hidden id="itj" name="itj">

<table width='<%=session("screen_width")%>'  height='<%=session("screen_height")%>' border=0 cellspacing="0" cellpadding="0"  bgcolor="<%=tableBGCOLOR%>">
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left  width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>填写公告栏<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%></td><TD nowrap width="10%">&nbsp;</td>
<TD nowrap  width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()>&nbsp;</td>
<TD nowrap  width=25px align=right nowrap valign=center><img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()>&nbsp;</td></tr>
 <TR><TD nowrap  colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">



<tr>
<td colspan=1><font color=red>主题：<input class="longtext1" type=text id=txtZT name=txtZT style="height: 18px;width: 150px" value=<%=ksks%>></td><td><font color=red>接收科室：
<SELECT id=select1 name=select1 style="height: 18px;width:100px" >
<Option  value="0" selected >---全院---</option> <%    rs.Open "select * from GGZD_tKS  where sfsc=0 and ksid>0 order by ksdh ",conn
            do while not rs.EOF   
			   if cint(ks)=cint(rs("ksid")) then 
			   	Response.Write "<OPTION selected value=" & rs("KSID") &">"   
			   else
			   	Response.Write "<OPTION  value=" & rs("KSID") &">"   
			   end if
			   Response.Write rs("KSMC")
			   Response.Write "</OPTION>"
            rs.MoveNext 
            loop
       rs.Close 
%>
      </SELECT></td>

<td><font color=red>接收人：<SELECT id="select2" name="select2" style="height: 18px;width:100px" >
<Option  value="0" >---全部科室---</option> <%  if cint(ks)<>0 then
          rs1.Open "select * from GGZD_tGZRY  where ryzt=1 and ryid>1 and ryid<>407 and ks="&cint(Request.Form("select1"))&" order by rybm ",conn
                     do while not rs1.EOF   
							Response.Write "<OPTION  value=" & rs1("ryid") &">"   
							Response.Write rs1("xm")
						Response.Write "</OPTION>"
                     rs1.MoveNext 
                     loop
                     rs1.Close 
                 end if
 %>
</SELECT>
</tr>


<tr>
<td><font color=red>内容 >></td>
<td ><font color=red>有效时间至：&nbsp;<input class="longtext1" id=txtSJ name=txtSJ style="height: 18px;width:100px" value='<% =cstr(date())%>' >
</td><td>&nbsp;</td></tr>



<tr>
<td colspan=4 height=100%>
<textarea name=txtnr id=txtnr rows=26 cols=80 style='width:100%'></textarea></td></tr></table></td></tr>
<tr><td colspan=3 align=right><table border=0>
<tr>
<td onclick=vbscript:tj style="cursor:hand" background=../../images/button1.gif align=center width=55 height=22>提　交
    </td><tr></table>
</td></tr></table>
</FORM>

</BODY>
</HTML>
<%
   conn.Close 
      set conn=nothing
%>

atxbbs.asp - 源码说明

本页面展示了「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」中的 atxbbs.asp 源码文件，采用 ASP 编程语言编写，共 145 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与报告相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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