请大家帮忙用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
%>