日期:2014-05-17  浏览次数:21045 次

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 ">