<% dim rs1,sql1 if Request.Form("ok")="提交" Then if request("mail_name")="" then response.write"" response.end else mail_name=request("mail_name") end if if request("mail_email")="" then response.write"" response.end else mail_email=request("mail_email") end if if request("mail_content")="" then response.write"" response.end else mail_content=request("mail_content") end if mail_type=request("mail_type") mail_tel=request("mail_tel") end if set rs1=server.CreateObject("adodb.recordset") rs1.Open "jjh_mail",conn,3,3 rs1.addnew rs1("mail_name")=mail_name rs1("mail_tel")=mail_tel rs1("mail_email")=mail_email rs1("mail_type")=mail_type rs1("mail_content")=mail_content rs1.update rs1.close %>

站内搜索

<%call search()%>

机构设置

<% sql = "SELECT * FROM jjh_department ORDER BY department_id asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 i=1 if rs.bof and rs.eof then rs.close response.write "没有信息" else do while not rs.eof %> <% i=i+1 rs.movenext %> <% i=i+1 rs.movenext %> <% loop rs.close end if %>

"><%= rs("department_name") %>

<% if not rs.eof then %>

<% End If %> "><%= rs("department_name") %>

本站调查


留言成功！