addnew20.asp

功能齐全的oa系统

<%option explicit%>

<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'---------------	使用数据库连接包含	DataEnvi.asp	---------------
'---------------	使用字符串包含	String.asp	-----------------------
'---------------	使用分页操作包含	Page.asp	-------------------
'----------------------------------------------------------------------
%>

<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->

<%
	Dim objDB,strSQL,objRS
	Dim TempletID
	TempletID = Request.QueryString("TempletID")
	Set objDB = server.CreateObject("ADODB.Connection")
	Set objRS = server.CreateObject("ADODB.Recordset")
	OpenDB objDB
	strSQL = "select * from T_CRM_Stock_Application"
	objrs.Open strSQL,objDB,1,3
	objrs.AddNew()
	objrs.Fields("AccountID")	= "168"
	objrs.Fields("Title")		= "NewTitle"
	objrs.Fields("MsgType")		= 2
	objrs.Update()
	Dim IntID
	IntID = objrs.Fields("ID")
	objDB.Close
	set objDB = nothing
	Response.Redirect "addnew2.asp?IntID=" & IntID & "&TempletID=" & TempletID
%>