asp中用VBscripy写过程出现了有关问题
日期：2014-05-17 浏览次数：21105 次
asp中用VBscripy写过程出现了问题
各位好：
我在asp页面里写了过程结果出现了500错误，请帮忙看看，谢谢！
过程如下：sub changeps，changeschool，changeurl
<html> <head>
<title> 用户信息修改 </title>
<style type= "text/css ">
<!--
a:link {text-decoration: underline none;color:#000077}
a:visited { text-decoration: underline none; color:#000077}
A:hover {text-decoration: underline none; color:#CC0000 }
td { font-size: 12px}
body { font-size: 12x ;color=#333333}
.hand {cursor : hand ; text-decoration: underline}
//-->
</style>
</head>
<body bgcolor= "#FFFBFF " topmargin= "0 " leftmargin= "0 ">
<!--#include file= "DAO3/INC/d3_condb1.inc "-->
<%
code_sql1= "select * from inform where username= ' "&session( "theuser ")& " ' "
set rs1=conn.execute(code_sql1)
code_sql2= "select * from schoolurl where id= ' "&mid(session( "theuser "),5,3)& " ' "
set rs2=conn.execute(code_sql2)
sub changeps(username as string,newpassword as string)
msql= "update inform set password= ' " & newpassword & " ' where username= ' " & username & " ' "
conn.execute(msql)
end sub
sub changeschool(id as string,newname as string)
msql= "update schoolurl set school= ' " & newname & " ' where id= ' " & mid(session( "theuser "),5,3) & " ' "
conn.execute(msql)
end sub
sub changeurl(id as string,newurl as string)
msql= "update schoolurl set url= ' " & newurl & " ' where id= ' " & mid(session( "theuser "),5,3) & " ' "
conn.execute(msql)
end sub
%>
<div align= "center ">
<center>
<table border= "0 " cellpadding= "0 " cellspacing= "0 " width= "778 " height= "100% ">
<tr>
<td colspan= "3 " height= "86 ">
<!--#include file= "inc/head.inc "-->
</td>
</tr>
<tr>
<td width= "150 " align= "center " valign= "top ">
<!--#include file= "inc/left.inc "-->
</td>
<td width= "1 " bgcolor= "#458D8D ">
各位好：
我在asp页面里写了过程结果出现了500错误，请帮忙看看，谢谢！
过程如下：sub changeps，changeschool，changeurl
<html> <head>
<title> 用户信息修改 </title>
<style type= "text/css ">
<!--
a:link {text-decoration: underline none;color:#000077}
a:visited { text-decoration: underline none; color:#000077}
A:hover {text-decoration: underline none; color:#CC0000 }
td { font-size: 12px}
body { font-size: 12x ;color=#333333}
.hand {cursor : hand ; text-decoration: underline}
//-->
</style>
</head>
<body bgcolor= "#FFFBFF " topmargin= "0 " leftmargin= "0 ">
<!--#include file= "DAO3/INC/d3_condb1.inc "-->
<%
code_sql1= "select * from inform where username= ' "&session( "theuser ")& " ' "
set rs1=conn.execute(code_sql1)
code_sql2= "select * from schoolurl where id= ' "&mid(session( "theuser "),5,3)& " ' "
set rs2=conn.execute(code_sql2)
sub changeps(username as string,newpassword as string)
msql= "update inform set password= ' " & newpassword & " ' where username= ' " & username & " ' "
conn.execute(msql)
end sub
sub changeschool(id as string,newname as string)
msql= "update schoolurl set school= ' " & newname & " ' where id= ' " & mid(session( "theuser "),5,3) & " ' "
conn.execute(msql)
end sub
sub changeurl(id as string,newurl as string)
msql= "update schoolurl set url= ' " & newurl & " ' where id= ' " & mid(session( "theuser "),5,3) & " ' "
conn.execute(msql)
end sub
%>
<div align= "center ">
<center>
<table border= "0 " cellpadding= "0 " cellspacing= "0 " width= "778 " height= "100% ">
<tr>
<td colspan= "3 " height= "86 ">
<!--#include file= "inc/head.inc "-->
</td>
</tr>
<tr>
<td width= "150 " align= "center " valign= "top ">
<!--#include file= "inc/left.inc "-->
</td>
<td width= "1 " bgcolor= "#458D8D ">
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
