ASP类生成器 ASP Class Generator

来源：互联网发布：剑灵人女捏脸数据编辑：程序博客网时间：2024/06/11 19:54

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>VBScript Class Maker</TITLE>
<STYLE type="text/css">
BODY,DIV,INPUT,TEXTAREA,TABLE,TR,TD,P {font-family:verdana;font-size:9pt;}
.btn {background-color:#b7c0c7;padding:2px 4px 0px 4px;margin:0px 10px 0px 0px;}

</STYLE>
</HEAD>
<BODY>

<div align="center">VBScript Class Maker</div>

<table align="center" cellpadding="3" cellspacing="1" width="80%" border="0">
<tr><td bgcolor="#b7c0c7" height="1"></td></tr>
<tr><td>请输入类名</td></tr>
<tr><td><input id="clsname" style="width:300;" value=""></td></tr>
<tr><td>请输入类的属性，以逗号分隔，每个属性前三个字符为属性类型，如int、bln、lng、dtm等等...</td></tr>
<tr>
  <td><textarea id="src" cols="80" rows="8"></textarea></td>
</tr>
<tr><td><input class="btn" onclick="genCode();" type="button" value="生成代码">
   <input class="btn" onclick="setdata();" type="button" value="复制到剪贴板">
   </td></tr>
<tr><td bgcolor="#b7c0c7"><div id="dest"></div></td></tr>
</table>

  if (clsname=="") {
   alert("请输入类名!");
   return false;
  }

  if (s == "") {
   alert("请输入属性！");
   return false ;
  }

  var ss = s.split(",");
  var i ;

  var s1,s2,s3,s4
  s4 = "Class " + clsname + "<br><br>" ;

  for (i=0;i<ss.length;i++){
   s4 += sep + "Private " + ss[i] + "<br>"
  }
  s4+="<br>"

  dest.innerHTML = "";


  for(i=0;i<ss.length;i++){
   s1 = ss[i]; //all
   s2 = s1.substr(0,3); //prefix
   s3 = s1.substr(3); //body

   s4 += sep + "Public Property Let " + s3 + "(" + s2 + ")<br>"
   s4 += sep + sep + s1 + " = " + s2 + "<br>"
   s4 += sep + "End Property<br><br>"

   s4 += sep + "Public Property Get " + s3 + "()<br>"
   s4 += sep + sep + s3 + " = " + s1 + "<br>"
   s4 += sep + "End Property<br><br>"

  }

  s4 += "End Class<br><br>";
  dest.innerHTML ="<&#37<br><br>" + s4 + "%>";
}

</script>

</BODY>
</HTML>