📄 admin_expertadd.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
If Request.QueryString("Action")="Add" Then
Dim Name, Sex, Office, Speciality, TimeList
Name = Request.Form("Name")
Sex = Request.Form("Sex")
Office = Request.Form("Office")
Speciality = Request.Form("Speciality")
For I = 1 To 7 Step 1
For J=1 To 2 Step 1
If Request.Form("CB_"&I&J)<>"" Then
TimeList = TimeList&"["&I&","&J&"]"
End If
Next
Next
Conn.Execute("Insert Into [Expert](Name,Sex,Office,Speciality,TimeList) Values('"&Name&"','"&Sex&"','"&Office&"','"&Speciality&"','"&TimeList&"')")
Session("Expert_Cache")=""
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('添加成功!');" &Chr(13)
Response.write "location = 'Admin_Expert.asp'" &Chr(13)
Response.write "</script>" &Chr(13)
Response.End
End If
%>
<!--#include file="Inc/Head.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11" background="../Image/LeftMargin.gif"></td>
<td width="750" height="400" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<script LANGUAGE="JavaScript" SRC="../CheckForm.js"></script>
<form name="Form_ExpertAdd" method="post" action="Admin_ExpertAdd.asp?Action=Add" onSubmit="return CheckForm(this)">
<table width="600" align="center" class="TableInfo">
<tr>
<td height="50" align="center" colspan="2" class="TextTitle">添加专家</td>
</tr>
<tr>
<td height="15" align="center" colspan="2"><hr width="92%" color="#BBBBBB" size="1"></td>
</tr>
<tr>
<td height="23" width="171" align="right"> 姓名：</td>
<td height="23" align="left">
<input type="text" name="Name" size="20" class="Input" check="[\u4e00-\u9fa5]{2,}" warning="姓名必须为汉字,且至少有2个">
</td>
</tr>
<tr>
<td height="23" width="171" align="right"> 性别：</td>
<td height="23" align="left">
<INPUT TYPE="Radio" checked VALUE="男" NAME="Sex"> 男
<INPUT TYPE="Radio" VALUE="女" NAME="Sex"> 女
</td>
</tr>
<tr>
<td height="23" width="171" align="right"> 科室：</td>
<td height="23" align="left">
<input type="text" name="Office" size="20" class="Input" check="\S{1,}" warning="科室不能为空">
</td>
</tr>
<tr>
<td height="90" width="171" align="right"> 专长：</td>
<td height="90" align="left">
<textarea name="Speciality" cols="50" rows="5" class="Input"></textarea>
</td>
</tr>
<tr>
</tr>
</table><br>
<table width="600" align="center" class="TableInfo">
<tr>
<td height="22" colspan="8" align="center" ><strong>工作计划：</strong></td>
</tr>
<tr>
<td width="70" height="22" align="center">星期</td>
<td align="center">一</td>
<td align="center">二</td>
<td align="center">三</td>
<td align="center">四</td>
<td align="center">五</td>
<td align="center">六</td>
<td align="center">日</td>
</tr>
<tr>
<td width="70" align="center" >上午</td>
<%
For I=1 To 7 Step 1
Response.write "<td height='22' align='center' ><input type='checkbox' "
Response.write "name='CB_" & I &"1' value='["&I&",1]'></td>" & Chr(13)
Next
%>
</tr>
<tr>
<td width="70" align="center" >下午</td>
<%
For I=1 To 7 Step 1
Response.write "<td height='22' align='center' ><input type='checkbox' "
Response.write "name='CB_" & i &"2' value='["&i&",2]'></td>" & Chr(13)
Next
%>
</tr>
</table>
<table width="600" border="0" cellspacing="1" cellpadding="0" align="center">
<tr align="center">
<td height="31" colspan="3">
<input type="submit" name="Add" value="确定添加" class="Input">
<input type="reset" name="Reset" value="清除所有" class="Input">
<input name="Back" type="button" value="返回前页" class="Input" onClick="javascript:history.go(-1);">
</td>
</tr>
</table>
</form>
<%
RS.close
Set RS = nothing
Conn.close
Set conn=nothing
%>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
</td>
<td width="11" background="../Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -