请大家帮忙用Dellphi把这段ASP代码写成DLL,用New Method,谢谢!

                            
请大家帮忙用Dellphi把这段ASP代码写成DLL,用New   Method,谢谢!   
  <%  
  Session("xyz")=""  
  un=Trim(Request.Form("yhm"))  
  pw=Trim(Request.Form("pwd"))  
                SQLQuery   =   "SELECT   *   FROM   ViewCj   Where   ViewCj.xh='"&   un   &"'"  
                Set   rsReco   =   Server.CreateObject("ADODB.Recordset")  
                rsReco.Open   SQLQuery,Conn,1,3    
                IF   rsReco.bof   or   rsReco.eof   THEN    
                      rsReco.close  
                      Conn.close  
                      Set   rsReco=Nothing  
                      Set   Conn=Nothing  
  %>  
  <html><head>  
  <link   rel=stylesheet   type=text/css   href=style.css></head>  
  <body>  
  <div   align="center"><font   size="5"   face="华文行楷"><strong>对不起,您的学号不存在,请重新输入!<br>  
      <a   href="default.htm">返回</a>   </strong></font>   </div>  
  </body>  
  </html>  
  <%  
          Else  
                  if   pw<>trim(rsReco("pwd"))   THEN    
                        rsReco.close  
                        Conn.close  
                        Set   rsReco=Nothing  
                        Set   Conn=Nothing  
  %>  
      <html><head>  
  <link   rel=stylesheet   type=text/css   href=style.css></head>  
          <body   bgcolor="EAFFE0">  
          <div   align="center"><font   size="5"   face="华文行楷"><strong>密码不正确,请重新进入!<br>  
    <a   href="default.htm">返回</a></strong>  
    </font></div>  
          </body>  
      </html>  
  <%  
                else  
                        Session("xyz")=un  
                        rsReco.close  
                        Conn.close  
                        Set   rsReco   =   Nothing  
                        Set   Conn   =   Nothing  
                        'Response.Redirect   "cjcx.asp?xh="&un  
                        Response.Redirect   "cjcx.asp"  
          END   IF  
      END   IF  
  %>

查看回复