UC知道100分求助：ASP后台无法导入风格模板
来源：百度知道 编辑：UC知道 时间：2024/06/27 03:49:41
错误提示：
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'Mid'
/admin/admin_temploadsave.asp, 第 65 行
部分源码：
<script>
function change(obj,i) {
he=parseint(obj.style.height);
if (he>=90&&he<=400)
obj.style.height=he+i+'px';
else
obj.style.height='90px';
}
</script>
<%
dim url
localfile=replace(trim(request("localfile")),"'","")
url=localfile
function gethttppage(url)
' on error resume next
dim http
set http=server.createobject("microsoft.xmlhttp")
http.open "get",url,false
http.send()
if http.readystate<>4 then
exit function
end if
gethttppage=bytestobstr(http.responsebody,"gb2312")
set http=nothing
if err.number<>0 then err.clear
end function
function bytesto
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'Mid'
/admin/admin_temploadsave.asp, 第 65 行
部分源码：
<script>
function change(obj,i) {
he=parseint(obj.style.height);
if (he>=90&&he<=400)
obj.style.height=he+i+'px';
else
obj.style.height='90px';
}
</script>
<%
dim url
localfile=replace(trim(request("localfile")),"'","")
url=localfile
function gethttppage(url)
' on error resume next
dim http
set http=server.createobject("microsoft.xmlhttp")
http.open "get",url,false
http.send()
if http.readystate<>4 then
exit function
end if
gethttppage=bytestobstr(http.responsebody,"gb2312")
set http=nothing
if err.number<>0 then err.clear
end function
function bytesto
要带后台就必须要有数据库做为支持，没有数据库的ASP页面也就是把静态页面的后缀HTML改成了ASP，没实际意义。
如果简单介绍几样东西的几个页面，不必做成动态带有数据库的，图片可以处理好放在上面，FLASH动画可以找一些代码来实现
如果实在想搞成动态的，有后台可以随时候修改的，在网上找一些现成的CMS管理系统都可以达到您的要求，最后祝你成功
根据页面和功能,虽然用模板,但是如果页面多,工作量还是很大.此外还需要考虑做图的部分,动画flash部分的工作量,这方面比较会影响价格
不懂