谁能帮我指出以下这段话的语法错误
来源:百度知道 编辑:UC知道 时间:2024/05/17 19:11:06
Role and Purpose: To improve skin and hair, regulate metabolism, cause hair regeneration, promote fur repair, cells update, increase hair volume and reduce hair removal obviously, cause a more shiny and soft hair. In addition, it has an effectiveness of preventing dermatitis and was an adjuvant therapy for various skin diseases. It also can provide a help to sensitive skin.
USE: Add the product in food directly and uniform mixing
Juvenile dogs and
Sub Image_Obj_1(Imagename,TempFilename,FileExt)
' 读取要处理的原文件
Dim Draw_X,Draw_Y,Logobox
Draw_X = 0
Draw_Y = 0
FileExt = Lcase(FileExt)
On Error Resume Next
ImageObj.Open Trim(Server.MapPath(Imagename))
If Err Then
err.Clear
Exit Sub
End If
If ImageObj.OriginalWidth<View_ImageWidth or ImageObj.Originalheight<View_ImageHeight Then
TempFilename = ""
Exit Sub
Else
If FileExt<>"gif" and ImageObj.OriginalWidth > Draw_ImageWidth * 2 and Draw_Type >0 Then
Draw_X = DrawImage_X(ImageObj.OriginalWidth,Draw_ImageWidth,2)
Draw_Y = DrawImage_y(ImageObj.Originalheight,Draw_ImageHeight,2)
If Draw_Type=2 Then
Set Logobox = Server.CreateObject("Persits.Jpeg")
'*添加水印图片 添加时请关闭水印字体*
'//读取添加的图片
Logobox.Open Server.MapPath(Draw_Info)
Logobox.Width = Draw_ImageWidth '// 加入图片的原宽度
Logobox.Height = Dr