📄 info_add.htm

📁 全方面的OA管理程序代码
💻 HTM
字号:
<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<HTML>
<HEAD>
<TITLE>  </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<%
LoginID=trim(session("LoginID"))
if LoginID="" then response.end
ClassID=trim(request("ClassID"))
if ClassID="" then ClassID=1

if request("cmdUp")<>"" then
	FromID=trim(request("FromID"))
	FromName=trim(request("FromName"))
	body=trim(request("body"))
	Title=trim(request("Title"))
	ClassID=trim(request("ClassID"))
	if Title="" then
		response.write "主题不能为空。<a href='javascript:history.back(-1);'>[返回]</a>"
		oconn.close
		response.end
	end if
	'set rs=server.createobject("adodb.recordset")
	'sql="select * from tblwatch where department="& department &" and EndTime>'"& StartTime &"' and 'StartTime<'"& EndTime &"'"
	'rs.open sql,oConn
	'if not rs.eof then
	'	response.write "该部门这段时间内已经安排有人值班，请重新选择，谢谢！<a href='javascript:history.back(-1);'>[返回]</a>"
	'	oConn.close
	'	response.end
	'else
		AddData()
		response.write "您录入的信息已经提交，谢谢！<a href=info_admin.htm?classID="&classID&">[返回]</a>"
		oConn.close
		response.end
	'end if
end if

%>
<div align=center>

<form name="OrderForm" method="post" action="">
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td width=100>登陆用户：</td>
<td><input type="text" name="FromName" size=12 readonly class="input"></td>
</tr>
<tr>
<td width=100>主题：</td>
<td><input type="text" name="Title" value="" size=42 class="input"></td>
</tr>
<tr>
<td>内容描述</td>
<td>
<textarea name="body" cols=50 rows=5>
</textarea>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td colspan=3 align=center>
<INPUT TYPE="submit" name="cmdUp" value="确  定" class="font9boldwhite">
<INPUT TYPE="button" name="cmdreturn" value="返  回" class="font9boldwhite" onclick="javascript:history.back(-1);">
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="FromID" value="<%=LoginID%>">
<INPUT TYPE="hidden" name="ClassID" value="<%=ClassID%>">
</form>
</div>
</BODY>
</HTML>
<!--#include file="../inc/conn_close.htm"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,oConn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function

Sub AddData()
	sql=" INSERT INTO tblinfo(FromID,ClassID,FromName,title,body) VALUES(" & FromID & _
		","& ClassId & _
		",'"& FromName & _
		"','"& Title & _
		"','"& body & _
		"');"
		'response.write sql
	oConn.execute (sql)
end sub

%>
⌨️ 快捷键说明

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