Invalid procedure call or parameter mid urgent! ASP master, please go into 20

tmpstr=mid(tmpbody,bstr+len(str1),estr-bstr-len(str1))

There must be a problem with the use of parameters, it is recommended to see if the last two values are out of bounds, and whether the last value is negative. Preceding it is to insert two statements.

bstr+len(str1)

estr-bstr-len(str1)

Comment out the mid sentence, debug and you will definitely be. Check and check to know what the error is.

The problem should lie in: tmpstr=mid(tmpbody,bstr+len(str1),estr-bstr-len(str1)).

The value of bstr+len(str1) is not 0, or the value of estr-bstr-len(str1) is greater than the total character length of tmpbody.

You add a judgment before this sentence, if (bstr+len(str1))>0 and (estr-bstr-len(str1))<=len(tmpbody) then

The character is wrong! "

end if

divider=leftb(imgdata,clng(instrb(imgdata,hcrlf))-1)

When imgdata does not contain HCRLF, divider=leftb(imgdata, -1) will appear, and an error will occur.

A judgment statement should be placed in front of it, and if it does not contain HCRLF, it will prompt and exit.

Either your laughing ruler parameter is null, or your second and third arguments are negative.

The specific situation of which reputation is lifted into the sky still needs to be determined by dividing the celebration and blind analysis.

However, this problem is easy to fix.

When the act typepath variable is not included"/", the third argument of the mid function is equal to -1, and the error "Invalid procedure call or argument" will appear.

Change it to look like this (typedata, I didn't see the specific **)if s<1 then s=0

for ii=maxperpage*(page-1) to stemptext=temptext&""

temp=""&typedata(7,ii)&"

"&typedata(2,ii)&""&left(typedata(6,ii),30)&""

"end if

next

Don't use Table, use div+css.

for...

subject

next %>

css.

This is because of the rs( of one of your records"content") in none"[/img]", all instr(pic dy,"[/img]"The result is 0, and then subtract 1 to -1, and the length parameter in the left function cannot be negative, so if there is an error, you can judge instr(pic dy,"[/img]") is greater than 0, and then process accordingly.

The homework still has to be written by yourself, and the more you write the program, the more skilled you are, and you can't be opportunistic, that would be a mistake for yourself.

When do you want it?

100 points to help do haha.

It's better to ask the landlord to study hard, do your own homework, the pillars of the motherland, hehe.

Here's the ASP source code, you put it in your page and then output Datestr where you need to output the text.

936 'Set the output encoding.

gb2312" 'Set the encoding format.

dim typestr,datestr : typestr = request("type") defines a variable to get the type value, and outputs the literal string variable datestr

- Method one, use an if statement.

if typestr = today"thendatestr = Today"

elseif typestr = nextday"thendatestr = tomorrow"

elseif typestr = week"thendatestr = This week"

elseif typestr = month"thendatestr = this month"

elseif typestr = year"thendatestr = this year"

elsedatestr = The time parameter was not obtained or the parameter is invalid"

end if

- Method 2: Use the select case statement.

select case typestr

case "today":d atestr = Today"

case "nextday": datestr = tomorrow"

case "week":d atestr = this week"

case "month":d atestr = this month"

case"year":d atestr = this year"

case else : datestr = no time parameter obtained or invalid argument"

end select

Output variables, using the location you want to use datestr

= 936 'Set the output encoding.

gb2312" 'Set the encoding format.

dim typestr,datestr : typestr = request("type") defines a variable to get the type value, and outputs the literal string variable datestr

if typestr = today"thendatestr = Today"

elseif typestr = nextday"thendatestr = tomorrow"

elseif typestr = week"thendatestr = This week"

elseif typestr = month"thendatestr = this month"

elseif typestr = year"thendatestr = this year"

elsedatestr = The time parameter was not obtained or the parameter is invalid"

end if

Output variables.

In the page, first get the value of the received type, and then combine this value with toda

nextday, week, month, year comparison, which one meets the output of the corresponding day, I don't know if it meets your requirements.

I don't understand what you mean by not using a database.

dim strsource,strdest,strtemp,i,j

strsource="012346|0123789|0123456789"

strtemp=split(strsource,"|")

strdest=""

for i=0 to ubound(strtemp)

for j=1 to len(strtemp(i))

strdest=strdest & mid(strtemp(i),j,1) &","

nextstrdest=left(strdest,len(strdest)-1) &"|" 'Avoid the "'" sign at the end of each section.

nextstrdest=left(strdest,len(strdest)-1)'According to the format given by the landlord, remove the last one of the final results"|".

strdest

I'm not the best, but it's certainly the easiest to understand.