Question

ASP跳转菜单的值如何提去啊!!

<% if session("uname")="" then
response.Redirect "../index.asp"
end if%>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<%
Server.ScriptTimeout=999
%>
<!--#include file="conn.asp"-->
<!--#include file="UpLoadClass.asp"-->
<%
dim myrequest

set myrequest=New UpLoadClass
myrequest.AutoSave=2
myrequest.MaxSize = 10000*1024
myrequest.FileType = "jpg/gif/bmp/png"
myrequest.Savepath = "../UpLoadFile/"
myrequest.open
%>
<%
ptype=myRequest.querystring("type") `~~~不支持此对像
xtype=myRequest.querystring("xtype")

price_t=CLng(myrequest.form("price"))
session("pname")=myrequest.Form("pname")
myrequest.MaxSize=1024000
if myrequest.Save("small_img",0) then
session("small_img")=myrequest.SavePath&myrequest.Form("small_img")
end if
content_t=myrequest.Form("content")
shopname_t=myrequest.form("shopname")
shopurl_t=myrequest.form("shopurl")
adtime=left(now(),(instr(now()," ")-1))
%>
<% session("int_id")="pro"&replace(replace(replace(replace(replace(session("small_img"),"../UpLoadFile/",""),".jpg",""),".png",""),".gif",""),".bmp","")
set rs=server.CreateObject("adodb.recordset")
sql="select * from [Tab_pro]"
rs.open "Tab_pro",conn,3,3
sql="insert into [Tab_pro](type,xtype,price,pname,small_img,content,shopname,shopurl,int_id,adtime)values('"& ptype_t &"','"& xtype_t &"','"& price_t &"','"& session("pname") &"','"& replace(session("small_img"),"../","") &"','"& content_t &"','"& shopname_t &"','"& shopurl_t &"','"& session("int_id") &"','"& adtime &"')"
conn.execute(sql)

'response.Write sql
'response.end()
int_id=session("int_id")
sql="create table "&int_id&"(id decimal identity primary key,user_id varchar(50),ip varchar(50),adtime datetime,code varchar(50),biao char(10))"
conn.execute sql
'rs.update
' session.Abandon()
if err then %>
<script language="javascript">
alert("ujmk上传失败,请稍后再试~!")
history.back()
</script>
<% else
response.Redirect "cs_1.asp"
end if
set myrequest=nothing
%>

Answer 1

是type吗，在ASP中不可以使用type的，换一个变量就好了。你可能想我是取值又不是定义变量，但你的值是从组件中取出来的，那组件中要给这个变量赋值的。一赋值就会出错。