会员登录 用户名： 密码： 登录 新会员注册 [找回密码]
当前位置：编程论坛 >> Web开发技术 >> ASP编程论坛 >> asp常用小例子具体应用改动一下吧
首页
中资源
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 1766 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子 浏览下一篇主题
 * 贴子主题：asp常用小例子具体应用改动一下吧 悬赏分50 [提问中] 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 小米稀饭 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：190
  专家分：0
  提问帖：1/0
  回答帖：0
  总帖数：6
  经验值：58
  注　册：2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子楼主
发贴心情 

asp常用小例子具体应用改动一下吧

第一集  先发个试下
<script LANGUAGE=vbscript>
function getchar(char)
charobj=65536+asc(char)
if(charobj>=45217 and charobj<=45252) then 
getchar= "A"
elseif(charobj>=45253 and charobj<=45760) then
getchar= "B"
elseif(charobj>=45761 and charobj<=46317) then
getchar= "C"
elseif(charobj>=46318 and charobj<=46825) then
getchar= "D"
elseif(charobj>=46826 and charobj<=47009) then 
getchar= "E"
elseif(charobj>=47010 and charobj<=47296) then 
getchar= "F"
elseif(charobj>=47297 and charobj<=47613) then 
getchar= "G"
elseif(charobj>=47614 and charobj<=48118) then
getchar= "H"
elseif(charobj>=48119 and charobj<=49061) then
getchar= "J"
elseif(charobj>=49062 and charobj<=49323) then 
getchar= "K"
elseif(charobj>=49324 and charobj<=49895) then 
getchar= "L"
elseif(charobj>=49896 and charobj<=50370) then 
getchar= "M"
elseif(charobj>=50371 and charobj<=50613) then 
getchar= "N"
elseif(charobj>=50614 and charobj<=50621) then 
getchar= "O"
elseif(charobj>=50622 and charobj<=50905) then
getchar= "P"
elseif(charobj>=50906 and charobj<=51386) then 
getchar= "Q"
elseif(charobj>=51387 and charobj<=51445) then 
getchar= "R"
elseif(charobj>=51446 and charobj<=52217) then 
getchar= "S"
elseif(charobj>=52218 and charobj<=52697) then 
getchar= "T"
elseif(charobj>=52698 and charobj<=52979) then 
getchar= "W"
elseif(charobj>=52980 and charobj<=53640) then 
getchar= "X"
elseif(charobj>=53689 and charobj<=54480) then 
getchar= "Y"
elseif(charobj>=54481 and charobj<=62289) then
getchar= "Z"
else 
getchar=char
end if
end function

function getpy(str)
for i=1 to len(str)
getpy=getpy&getchar(mid(str,i,1))
next
end function

点击浏览该文件

发帖：2007-10-12 14:56:00
  鲜花(0)  鸡蛋(0)
 小米稀饭 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：190
  专家分：0
  提问帖：1/0
  回答帖：0
  总帖数：6
  经验值：58
  注　册：2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第2楼
发贴心情 

忘了说明了 上面是自动获取汉字的拼音简码  需要这段源代码 把您的邮箱告送我 我发过去
发帖：2007-10-12 14:58:00
 小米稀饭 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：190
  专家分：0
  提问帖：1/0
  回答帖：0
  总帖数：6
  经验值：58
  注　册：2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第3楼
发贴心情 

第二集 获取对方的ip地址
<%
if request.form("Submit")<>"" then
   username=request.form("name")
   Image=request.Form("radiobutton")
   C_username=split(application("name"),",")
   ip=request.ServerVariables("REMOTE_ADDR")
   for i=0 to Ubound(C_username)
      if username=C_username(i) then
       Call MsgBox("重名了啊，从新弄个！","login.asp") 
       response.End()
   end if
    next
application("name")=application("name")+","+username
application("Image")=application("Image")+","+Image
session("name")=username
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from iptable",conn,1,3
rs.addnew
rs("adddate")=now()
rs("ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.Redirect "chat.asp"
end if
%>
需要源代码 留邮箱
发帖：2007-10-12 15:09:00
 索引越界 帅哥哟，离线，有人找我吗？
  
  
  头　衔：情剩
  等　级：初级剑客
  积　分：14670
  专家分：9883
  提问帖：0/0
  回答帖：730
  总帖数：1033
  经验值：1083
  注　册：2006-11-19
给索引越界发送一个短消息 把索引越界加入好友 查看索引越界的个人资料 搜索索引越界在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第4楼
发贴心情 

不错，为什么不把源码直接上传上来呢？
和你最亲密的人因为亲密，所以会暴露出很多缺点给你。
和你很疏远的人因为疏远，所以可以有选择的展示优点。

所以，不要对身边最亲密的人要求太苛刻！
所以，更不能拿别人的优点来对比你身边最亲密的人。

发帖：2007-10-12 15:51:00
 小米稀饭 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：190
  专家分：0
  提问帖：1/0
  回答帖：0
  总帖数：6
  经验值：58
  注　册：2007-10-12
给小米稀饭发送一个短消息 把小米稀饭加入好友 查看小米稀饭的个人资料 搜索小米稀饭在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第5楼
发贴心情 

这样能多认识几个喜欢用asp的人，多弄点人气吧  如果不方便 不好意思拉  下次直接把代码弄上
发帖：2007-10-12 16:20:00
 newkedison 帅哥哟，离线，有人找我吗？
  
  
  头　衔：无聊之人
  等　级：贵宾
  积　分：7231
  专家分：3101
  提问帖：7/7
  回答帖：303
  总帖数：422
  经验值：461
  注　册：2007-7-18
给newkedison发送一个短消息 把newkedison加入好友 查看newkedison的个人资料 搜索newkedison在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第6楼
发贴心情 

路过，支持下
编程编程，不编咋成？

对于初级的程序员来说，养成良好的习惯往往比追求哪种语言/开发工具好用更有意义

发帖：2007-10-12 19:20:00
 st515832 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：205
  专家分：0
  提问帖：0/0
  回答帖：1
  总帖数：2
  经验值：54
  注　册：2007-9-5
给st515832发送一个短消息 把st515832加入好友 查看st515832的个人资料 搜索st515832在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第7楼
发贴心情 

254318522@qq.com
发帖：2007-11-5 20:09:00
 文华 美女呀，离线，快来找我吧！
  
  
  等　级：初出江湖
  积　分：165
  专家分：0
  提问帖：2/0
  回答帖：1
  总帖数：8
  经验值：69
  注　册：2007-11-7
给文华发送一个短消息 把文华加入好友 查看文华的个人资料 搜索文华在ASP编程论坛的所有贴子  引用回复这个贴子 回复这个贴子第8楼
发贴心情 

发帖：2007-11-7 17:37:00
 gongyun08 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：220
  专家分：0
  提问帖：0/0
  回答帖：2
  总帖数：3
  经验值：53
  注　册：2007-11-7
给gongyun08发送一个短消息 把gongyun08加入好友 查看gongyun08的个人资料 搜索gongyun08在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第9楼
发贴心情 

发帖：2007-11-7 20:05:00
 星梦缘 帅哥哟，离线，有人找我吗？
  
  
  等　级：初出江湖
  积　分：210
  专家分：0
  提问帖：0/0
  回答帖：2
  总帖数：3
  经验值：54
  注　册：2007-11-11
给星梦缘发送一个短消息 把星梦缘加入好友 查看星梦缘的个人资料 搜索星梦缘在ASP编程论坛的所有贴子 引用回复这个贴子 回复这个贴子第10楼
发贴心情 

谢谢了
发帖：2007-11-11 15:44:00

本主题贴数15，分页：[上一页] [1] [2] [下一页]
 *快速回复：asp常用小例子具体应用改动一下吧  [ 回帖是一种美德 :) ]
会员账号 用户名：    还没注册?    密码：    忘记密码?
内容
  • HTML标签： 不可用
  • UBB标签： 可用
  • 贴图标签： 可用
  • 多媒体标签：可用
  • 表情字符转换：可用
  • 上传图片：不可用
  • 最多15KB
    		•
    点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告