Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/websystem/save_product.asp, line 103
<%
if session("sysuser")="" then
Response.Redirect "login.asp"
end if
%>
<!--#include file="../public/conn.asp"-->
<%
'OPTION EXPLICIT
Server.ScriptTimeOut=500000
%>
<!--#include FILE="UpLoadClass.asp"-->
<%
dim request2
'建立上传对象
set request2=New UpLoadClass
'以默认设置打开上传对象
'建议直接修改类的63，64，65，66行为自己需要的默认设置
'类的初始默认值分别为
'p_MaxSize = 153600 单文件最大150K
'p_FileType = "jpg/gif" 允许上传jpg/gif格式文件
'p_SavePath = "" 在当前目录保存文件，这里是相对路径，如：“UpLoadFile/”
'p_AutoSave = 0 自动生成无重复文件名保存目标文件
'这样每次就不要设置同样的参数了
request2.open()
dim errtext
if request2.form("pr_name")="" then
errtext="产品名称没有填写，请点击<a href='javascript:history.back(-1)' class='br'><font color='#FF0000'>返回</font></a>重新输入！！"
else
'pr_typenumber=request2.form("pr_typenumber")
if request2.form("pr_typenumber")="" then
errtext="产品型号没有填写，请点击<a href='javascript:history.back(-1)' class='br'><font color='#FF0000'>返回</font></a>重新输入！！"
else
'pr_values=request2.form("pr_values")
if request2.form("pr_values")="" then
errtext="产品型号没有填写，请点击<a href='javascript:history.back(-1)' class='br'><font color='#FF0000'>返回</font></a>重新输入！！"
dim mysql,myrs,product_class,temp
set myrs=server.createobject("adodb.recordset")
mysql="select * from pr_info"
myrs.open mysql,conn1,1,3
myrs.addnew
myrs("pr_name")=request2.form("pr_name")
myrs("addtime")=request2.form("addtime")
myrs("adduser")=request2.form("addman")
myrs("pr_photo")=request2.form("upphoto")
myrs("pr_class")=request2.form("product_class")
myrs("pr_typenumber")=request2.form("pr_typenumber")
myrs("pr_gg")=request2.form("pr_gg")
myrs("pr_values")=request2.form("pr_values")
myrs("pr_option")=cint(request2.form("product"))
myrs("pr_kc")=request2.form("pr_kc")
myrs("pr_useArea")=request2.form("pr_useArea")
myrs("pr_sm")=request2.form("pr_sm")
myrs("pr_download_doc")=request2.form("pr_download_doc")
myrs("pr_tj")="no"
myrs.update
myrs.Close
errtext="产品添加成功，是否继续添加<br><a href='add_product.asp' class='br'><font color='#FF0000'>是</font></a> / <a href='list_product.asp' class='br'><font color='#FF0000'>否</font></a>"
end if
end if
'释放上传对象
set request2=nothing
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>::::福州盛博电子公司::::</title>
<link href="../css/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="../public/header2.asp"-->
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32" align="center" valign="middle" background="../images/br_004.jpg" class="gray">网站后台管理系统</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" valign="middle"><table width="300" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF">
<%=errtext%></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="770" height="1" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CECFCE">
<tr>
<td></td>
</tr>
</table>
<!--#include file="../public/footer.asp"-->
</body>
</html>
