Question

Microsoft VBScript 运行时错误 '800a01ad'

Microsoft VBScript 运行时错误 '800a01ad'

ActiveX 部件不能创建对象: 'Server.CreateObject'

\dushen.asp, line 17
我用的是免费空间。

<!--#include file="site.asp"-->
<%
if request("username")<>"" then
if request("upfile")<>"" then
ufp=request("upfile")
else
ufp="nopic.jpg"
end if
username=trim(left(request("username"),4))
sex=request("sex")
age=request("age")

Set Jpeg = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("yuan") & "\dushen.jpg"
Jpeg.Open PhotoPath

if request("upfile")<>"" then
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("temp\") &"\"& ufp
Logo.Open LogoPath

Logo.Width = 70
Logo.Height = 82

Jpeg.DrawImage 389, 36, Logo

Answer 1

你的空间不支持Persits.Jpeg这个东西