% ' FP_ASP FrontPage 组件自动产生 ASP 。请勿编辑。 On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 936 Session.LCID = 2052 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "无法创建连接" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "无法创建记录集" fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "无法打开数据库" fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "无法打开记录集" fp_rs.AddNew FP_DumpError strErrorUrl, "无法将新记录集添加到数据库" Dim arFormFields0(0) Dim arFormDBFields0(0) Dim arFormValues0(0) FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "无法更新数据库" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=gb2312",_ "表单确认",_ "感谢您提交下列信息:",_ "new_page_9.dwt",_ "返回到表单。" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
|
刊登金融时报 获得金子般回报 |
||
|
广告合同
合同单填写 |
||
|
地址:北京市海淀区中关村南大街甲18号 北京·国际 D座18层 邮编:100081 E-mail:likewei0422@vip.sina.com MSN:likewei0422@hotmail.com QQ:250523142 电话:010-82198216 传真:010-82198226/82198228 手机:13801017179 |
||