易截截图软件、单文件、免安装、纯绿色、仅160KB

[高分求助]帮忙转下代码(ASP(VBSCRIPT) TO C#)谢谢~!

function mistake(preString)
      Dim texts
      Dim seed
      Dim i,length
      prestring = trim(preString)
      length = len(preString)
      seed = length
      Randomize(length)
      texts = ""
      for i = 1 to length
            seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
            texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
      next
dim dist
dist=""
for i = 1 to len(texts)
  if mid(texts,i,1) <>"'"  then
      dist=dist+mid(texts,i,1)
      end if
    next
    mistake = dist
end function
在线等啊!~!~!~!~!~!~!~!~  来人啊!~!~!~!~

啊啊啊啊啊啊啊啊啊

我倒!~


C# code:
public String mistake(string preString)
{
int i;
preString = preString.Trim();
int length = preString.Length;
int seed = length;
VBMath.Randomize(length);


相关问答:

asp中用javascript动态改变Image的src的路径问题

<form id="form1" runat="server">
  <div>
  <script type="text/javascript">
  function oo(a){
  document.getEleme ......

假前最后一帖ASP调用VB组件

我用VB按MVC的构架写组件供ASP调用
BLL层
VB code:

Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub

ASP中调用
VB c ......

ASP 文件上传后将文件信息插入数据库的问题

能上传但不能插入数据库信息。ASP文件代码如下:

<%
  Response.Buffer = True
  Server.ScriptTimeOut=9999999
  On Error Resume Next
%>
<!DOCTYPE html PUBLIC ......

我想问下,在asp中这段函数什么意思

Function listPages(LinkFile)
  if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HT ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号